scsh-conservatory
/
sunet
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

adapt to recent change in creating form input fields

This commit is contained in:
interp 2002-09-30 15:58:50 +00:00
parent 516d8221d7
commit 3e9486573a
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
scheme/httpd/surflets/web-server/root/surflets/calculate.scm
View File

@ -55,14 +55,14 @@
(td ,(operator-symbol operator-pair)) (td ,(operator-symbol operator-pair))
(td ,number-field2) (td ,number-field2)
(td " = ") (td " = ")
(td ,(make-submit-button '(value "calculate")))))) (td ,(make-submit-button '(@ (value "calculate")))))))
(hr) (hr)
(p "You may choose another operator:") (p "You may choose another operator:")
(servlet-form (servlet-form
,change-operator-callback ,change-operator-callback
(table (table
(tr (td ,operator-input-field) (tr (td ,operator-input-field)
(td ,(make-submit-button '(value "change operator")))))))))) (td ,(make-submit-button '(@ (value "change operator")))))))))))
(define (change-operator to-operation) (define (change-operator to-operation)
(show-page to-operation)) (show-page to-operation))