Add javascript code

2003-01-19 17:27:15 +00:00 · 2003-01-19 17:27:15 +00:00 · 751ee1d6ca
parent 400e4b916f
commit 751ee1d6ca
1 changed files with 2 additions and 0 deletions
--- a/scheme/httpd/surflets/web-server/root/surflets/add-servlet.scm
+++ b/scheme/httpd/surflets/web-server/root/surflets/add-servlet.scm
@ -45,6 +45,8 @@
 			(p ,(number->string (+ number1 number2)))
 			(hr)
 			(p (URL "add2.scm" "Make new calculation.") (br)
+			   (URL "javascript:history.go(-2)" "New calculation (same session)")
+			   (br)
 			   (URL "/" "Return to main menu.")))))

 	"this string will never be evaluated"))