From 751ee1d6ca33f4a9bad19839c961766d85027ddd Mon Sep 17 00:00:00 2001 From: interp Date: Sun, 19 Jan 2003 17:27:15 +0000 Subject: [PATCH] Add javascript code --- scheme/httpd/surflets/web-server/root/surflets/add-servlet.scm | 2 ++ 1 file changed, 2 insertions(+) diff --git a/scheme/httpd/surflets/web-server/root/surflets/add-servlet.scm b/scheme/httpd/surflets/web-server/root/surflets/add-servlet.scm index abb2844..35049af 100644 --- 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"))