From e6e4ea0f1adc7226cdd3101a086c9265a5ac416f Mon Sep 17 00:00:00 2001 From: interp Date: Wed, 19 Feb 2003 18:48:24 +0000 Subject: [PATCH] use INPUT-FIELD-VALUE for check-box --- .../httpd/surflets/web-server/root/surflets/admin-handler.scm | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/scheme/httpd/surflets/web-server/root/surflets/admin-handler.scm b/scheme/httpd/surflets/web-server/root/surflets/admin-handler.scm index 1f17098..a2be593 100644 --- 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."