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

Add javascript code

This commit is contained in:
interp 2003-01-19 17:27:15 +00:00
parent 400e4b916f
commit 751ee1d6ca
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -45,6 +45,8 @@
(p ,(number->string (+ number1 number2))) (p ,(number->string (+ number1 number2)))
(hr) (hr)
(p (URL "add2.scm" "Make new calculation.") (br) (p (URL "add2.scm" "Make new calculation.") (br)
(URL "javascript:history.go(-2)" "New calculation (same session)")
(br)
(URL "/" "Return to main menu."))))) (URL "/" "Return to main menu.")))))
"this string will never be evaluated")) "this string will never be evaluated"))