scsh-conservatory
/
sunet
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

use INPUT-FIELD-VALUE for check-box

This commit is contained in:
interp 2003-02-19 18:48:24 +00:00
parent ca7e42cfa0
commit e6e4ea0f1a
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
scheme/httpd/surflets/web-server/root/surflets/admin-handler.scm
View File

@ -66,9 +66,7 @@
(error "not a positive integer")) (error "not a positive integer"))
(handler-options req "Please enter a valid, positive integer number")))) (handler-options req "Please enter a valid, positive integer number"))))
((returned-via? submit-cache bindings) ((returned-via? submit-cache bindings)
(let ((cache-plugins? (if (input-field-binding cache-checkbox bindings) (let ((cache-plugins? (input-field-value cache-checkbox bindings)))
#t
#f)))
(set-options-cache-surflets? cache-plugins?) (set-options-cache-surflets? cache-plugins?)
(handler-options req (handler-options req
(format #f "Caching turned ~s." (format #f "Caching turned ~s."