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

Comments indicating how to add an attachment field to the bugs form, if

Browse Source 
it becomes possible to deal with the cgi side in the future.
This commit is contained in:
Eli Barzilay 2010-07-02 01:15:39 -04:00
parent e339081fd0
commit 6e947fef90
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/meta/web/minis/bugs.rkt
View File

@ -190,6 +190,7 @@
[(tr) (tr (td title) (td input))] [(tr) (tr (td title) (td input))]
[else (error 'field "internal error")]))) [else (error 'field "internal error")])))
@form[action: bug-report-cgi method: 'post id: 'BugForm @form[action: bug-report-cgi method: 'post id: 'BugForm
;; enctype: "multipart/form-data"
style: '("border: 2px solid #44f; padding: 6px;" style: '("border: 2px solid #44f; padding: 6px;"
" background-color: #eef;") " background-color: #eef;")
onsubmit: "return CheckSubmit();"]{ onsubmit: "return CheckSubmit();"]{
@ -224,6 +225,10 @@
" reproduce the problem")]{ " reproduce the problem")]{
@textarea[name: 'how-to-repeat rows: 8 cols: 70 @textarea[name: 'how-to-repeat rows: 8 cols: 70
style: "font-family: monospace;"]{}} style: "font-family: monospace;"]{}}
@; An attachement requires a cgi script that can deal with input
@; that is in "multipart/form-data" format.
@; @field['line "Attachment"]{
@; @input[type: 'file name: 'attachment size: 20]}
@(let* ([c (captcha-file)] @(let* ([c (captcha-file)]
[c (and c (img src: (cgi-link c) align: "middle"))]) [c (and c (img src: (cgi-link c) align: "middle"))])
(and c @field['line @list{Please type @c}]{ (and c @field['line @list{Please type @c}]{