use INPUT-FIELD-VALUE for check-box

2003-02-19 18:48:24 +00:00 · 2003-02-19 18:48:24 +00:00 · e6e4ea0f1a
parent ca7e42cfa0
commit e6e4ea0f1a
1 changed files with 1 additions and 3 deletions
--- a/scheme/httpd/surflets/web-server/root/surflets/admin-handler.scm
+++ b/scheme/httpd/surflets/web-server/root/surflets/admin-handler.scm
@ -66,9 +66,7 @@
 		     (error "not a positive integer"))
 		 (handler-options req "Please enter a valid, positive integer number"))))
 	 ((returned-via? submit-cache bindings)
-	  (let ((cache-plugins? (if (input-field-binding cache-checkbox bindings)
-				    #t 
-				    #f)))
+	  (let ((cache-plugins? (input-field-value cache-checkbox bindings)))
 	    (set-options-cache-surflets? cache-plugins?)
 	    (handler-options req 
 			     (format #f "Caching turned ~s."