make forms POSTing

2002-10-09 15:14:54 +00:00 · 2002-10-09 15:14:54 +00:00 · 044c27e292
parent db331ad0e3
commit 044c27e292
2 changed files with 2 additions and 0 deletions
--- a/scheme/httpd/surflets/web-server/root/surflets/admin-profiling.scm
+++ b/scheme/httpd/surflets/web-server/root/surflets/admin-profiling.scm
@ -59,6 +59,7 @@
 			      (br)
 			      (servlet-form
 			       ,new-url
+			       POST
 			       (p "This uses " (var "gnuplot") " that is searched at "
 				  ,input-field ,change-button)))
 			  (li (URL ,(reset-address new-url)
--- a/scheme/httpd/surflets/web-server/root/surflets/admin-servlets.scm
+++ b/scheme/httpd/surflets/web-server/root/surflets/admin-servlets.scm
@ -39,6 +39,7 @@
 		    ,header
 		    (servlet-form
 		     ,new-url
+		     POST
 		     (table
 		      ,@(cons '(th) header-row)
 		      ,@(map (lambda (checkbox table-element)