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

Correct self-links.

This commit is contained in:
interp 2003-02-17 10:10:26 +00:00
parent 21f62d5d8e
commit a767f7b84b
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -24,7 +24,7 @@
(input (@ (type "submit")))))) (input (@ (type "submit"))))))
(hr) (hr)
(p (URL "/" "Return to main menu") (br) (p (URL "/" "Return to main menu") (br)
(URL "add.scm" "Start new calculation.")))))))) (URL "add-html.scm" "Start new calculation."))))))))
(let* ((bindings (form-query (let* ((bindings (form-query
(http-url-search (surflet-request-url result)))) (http-url-search (surflet-request-url result))))
(number (string->number (number (string->number

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

@ -45,7 +45,7 @@
(body (h2 "Result") (body (h2 "Result")
(p ,(number->string (+ number1 number2))) (p ,(number->string (+ number1 number2)))
(hr) (hr)
(p (URL "add2.scm" "Make new calculation.") (br) (p (URL "add-surflet.scm" "Make new calculation.") (br)
(URL "javascript:history.go(-2)" "New calculation (same session)") (URL "javascript:history.go(-2)" "New calculation (same session)")
(br) (br)
(URL "/" "Return to main menu."))))) (URL "/" "Return to main menu.")))))