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

Reindent.

This commit is contained in:
interp 2003-01-17 17:48:20 +00:00
parent 4183ec85ce
commit 104802b3ae
1 changed files with 17 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
scheme/httpd/surflets/web-server/root/surflets/add-html.scm
View File

@ -8,22 +8,23 @@
(define (get-number input-text . maybe-title) (define (get-number input-text . maybe-title)
(let* ((title (if (pair? maybe-title) (car maybe-title) #f)) (let* ((title (if (pair? maybe-title) (car maybe-title) #f))
(result (send-html/suspend (result
(lambda (new-url) (send-html/suspend
`(html ,(if title (lambda (new-url)
`(title ,title) '()) `(html ,(if title
(body `(title ,title) '())
,(if title `(h2 ,title) '()) (body
(p ,(if title `(h2 ,title) '())
(form (@ (method "get") (p
(action ,new-url)) (form (@ (method "get")
,input-text " " (action ,new-url))
(input (@ (type "text") ,input-text " "
(name "number")) (input (@ (type "text")
(input (@ (type "submit")))))) (name "number"))
(hr) (input (@ (type "submit"))))))
(p (URL "/" "Return to main menu") (br) (hr)
(URL "add.scm" "Start new calculation.")))))))) (p (URL "/" "Return to main menu") (br)
(URL "add.scm" "Start new calculation."))))))))
(let* ((bindings (form-query (let* ((bindings (form-query
(http-url-search (request-url result)))) (http-url-search (request-url result))))
(number (string->number (number (string->number