suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fixed url-change related bug

Browse Source 
svn: r1759
This commit is contained in:
Robby Findler 2006-01-04 00:38:00 +00:00
parent f90eb12e24
commit b22f27d21f
1 changed files with 4 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
collects/help/bug-report.ss
View File

@ -352,13 +352,10 @@
;; initiates sending the bug report and switches the GUI's mode ;; initiates sending the bug report and switches the GUI's mode
(define (send-bug-report) (define (send-bug-report)
(letrec ([query (get-query)] (letrec ([query (get-query)]
[url (make-url "http" [url
#f (string->url (format "http://~a:~a/cgi-bin/bug-report"
bug-www-server bug-www-server
bug-www-server-port bug-www-server-port))]
(list "cgi-bin" "bug-report")
'() ;query
#f)]
[post-data [post-data
(parameterize ([current-alist-separator-mode 'amp]) (parameterize ([current-alist-separator-mode 'amp])
(string->bytes/utf-8 (alist->form-urlencoded query)))] (string->bytes/utf-8 (alist->form-urlencoded query)))]