From 46f5ef44bdcd544b559c1b57dee9cfc94cf1dd3c Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Wed, 5 Aug 2009 23:58:05 +0000 Subject: [PATCH] added the computer language info back in svn: r15678 --- collects/help/bug-report.ss | 29 ++++++++++++++++------------- 1 file changed, 16 insertions(+), 13 deletions(-) diff --git a/collects/help/bug-report.ss b/collects/help/bug-report.ss index 61808b0c0a..0b7c01250c 100644 --- a/collects/help/bug-report.ss +++ b/collects/help/bug-report.ss @@ -332,19 +332,22 @@ (new grow-box-spacer-pane% [parent button-panel])) (define (get-query) - (list (cons 'help-desk "true") - (cons 'replyto (preferences:get 'drscheme:email)) - (cons 'originator (preferences:get 'drscheme:full-name)) - (cons 'subject (send summary get-value)) - (cons 'severity (send severity get-string-selection)) - (cons 'class (translate-class (send bug-class get-string-selection))) - (cons 'release (send version get-value)) - (cons 'description (apply string-append (map (lambda (x) (string-append x "\n")) - (get-strings description)))) - (cons 'how-to-repeat (apply string-append - (map (lambda (x) (string-append x "\n")) - (get-strings reproduce)))) - (cons 'platform (get-environment)))) + (append (list (cons 'help-desk "true") + (cons 'replyto (preferences:get 'drscheme:email)) + (cons 'originator (preferences:get 'drscheme:full-name)) + (cons 'subject (send summary get-value)) + (cons 'severity (send severity get-string-selection)) + (cons 'class (translate-class (send bug-class get-string-selection))) + (cons 'release (send version get-value)) + (cons 'description (apply string-append (map (lambda (x) (string-append x "\n")) + (get-strings description)))) + (cons 'how-to-repeat (apply string-append + (map (lambda (x) (string-append x "\n")) + (get-strings reproduce)))) + (cons 'platform (get-environment))) + (map (λ (bri) (cons (string->symbol (format "~a" (bri-label bri))) + (bri-value bri))) + (get-bug-report-infos)))) (define (get-environment) (string-append (send environment get-value)