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

FORM -> SERVLET-FORM

This commit is contained in:
interp 2002-09-27 15:32:05 +00:00
parent db3c5ef04e
commit 52566ea00a
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
scheme/httpd/surflets/web-server/root/surflets/add2.scm
View File

@ -20,10 +20,10 @@
(p (a (@ href "reset") (p (a (@ href "reset")
"click here to reset server's plugin cache")) "click here to reset server's plugin cache"))
(p (p
(form ,new-url (servlet-form ,new-url
,input-text ,input-text
,number-input-field ,number-input-field
,(make-submit-button))))))))) ,(make-submit-button)))))))))
(if result (if result
(input-field-value number-input-field (input-field-value number-input-field
(form-query (http-url:search (request:url result)))) (form-query (http-url:search (request:url result))))