Re: [Jscheme-devel] passing parameters to JScheme servlets

[Geoffrey K. <ge...@kn...>]

Ken and Tim  -- Thanks for your suggestions.  What I discovered was 
close to what Ken suggested (hidden parameters), but I can see utility 
for Tim suggested (session parameters).  Here is the test code I used.

Geoffrey
--
Geoffrey S. Knauth | http://knauth.org/gsk

;;;;; send.servlet

(servlet
  ()
  (define (buttonSend buttonValue action att val)
    (sa-form (catt (s-method "post") (s-action action))
             (s-input (s-type "submit") (s-value buttonValue))
             (s-input (s-name att) (s-type "hidden") (s-value val))))
  (load "webapp/jscheme/test/html.scm")
  (buttonSend "Send my name" "recv.servlet" "firstName" "Geoffrey"))

;;;;; recv.servlet

(servlet
  ()
  (load "webapp/jscheme/test/html.scm")
  (let ((name (.getParameter request "firstName")))
    (s-html
     (s-p "Your first name is: " name)
     (go-button "again" "send.servlet"))))