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

slight modifications

This commit is contained in:
interp 2003-06-22 16:23:16 +00:00
parent dca13aabde
commit 7d188b8269
1 changed files with 14 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
scheme/httpd/surflets/web-server/root/surflets/add-surflet.scm
View File

@ -35,16 +35,21 @@
(get-number "Addition - Step two" "Second number:")) (get-number "Addition - Step two" "Second number:"))
(define (main req) (define (main req)
(let ((number-1 (get-number-1))
(number-2 (get-number-2)))
(show-result (+ number-1 number-2))))
(define (show-result result)
(send-html (send-html
`(html (title "Result") `(html (title "Result")
(body (h2 "Result") (body (h2 "Result")
(p ,(+ (get-number-1) (get-number-2)) (p ,result
(hr) (hr)
(p (url "add-surflet.scm" "Make new calculation.") (br) (p (a (@ (href "add-surflet.scm"))
(url "javascript:history.go(-2)" "New calculation (same session)") "Make new calculation.") (br)
(br) (a (@ (href "/"))
(url "/" "Return to main menu.")))))) "Return to main menu."))))))
"This string will never be evaluated.")
"this string will never be evaluated")
)) ))