Index: openacs-4/packages/survey/www/admin/survey-toggle.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/survey/www/admin/survey-toggle.tcl,v
diff -u -r1.5.4.2 -r1.5.4.3
--- openacs-4/packages/survey/www/admin/survey-toggle.tcl	9 Feb 2020 16:24:14 -0000	1.5.4.2
+++ openacs-4/packages/survey/www/admin/survey-toggle.tcl	22 Oct 2023 16:30:01 -0000	1.5.4.3
@@ -11,17 +11,13 @@
     @cvs-id $Id$
 } {
     survey_id:naturalnum,notnull
-    enabled_p:boolean
+    {enabled_p:boolean,notnull "f"}
     {target "./"}
 }
 
 permission::require_permission -object_id $survey_id -privilege survey_admin_survey
 
-if {$enabled_p == "f"} {
-    set enabled_p "t"
-} else {
-    set enabled_p "f"
-}
+set enabled_p [expr {$enabled_p ? "f" : "t"}]
 
 db_dml survey_active_toggle ""