From 044c27e292eb1616aeb707f29699187bdda3c358 Mon Sep 17 00:00:00 2001 From: interp Date: Wed, 9 Oct 2002 15:14:54 +0000 Subject: [PATCH] make forms POSTing --- .../httpd/surflets/web-server/root/surflets/admin-profiling.scm | 1 + .../httpd/surflets/web-server/root/surflets/admin-servlets.scm | 1 + 2 files changed, 2 insertions(+) diff --git a/scheme/httpd/surflets/web-server/root/surflets/admin-profiling.scm b/scheme/httpd/surflets/web-server/root/surflets/admin-profiling.scm index eca0f5f..177fd4c 100644 --- 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) diff --git a/scheme/httpd/surflets/web-server/root/surflets/admin-servlets.scm b/scheme/httpd/surflets/web-server/root/surflets/admin-servlets.scm index 18c3481..23b2e10 100644 --- 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)