Index: openacs-4/packages/dotlrn-homework/www/folder-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-homework/www/folder-delete.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/dotlrn-homework/www/folder-delete.tcl	7 Aug 2017 23:48:10 -0000	1.6
+++ openacs-4/packages/dotlrn-homework/www/folder-delete.tcl	3 Sep 2024 15:37:38 -0000	1.7
@@ -8,7 +8,7 @@
     @cvs-id $Id$
 } {
     folder_id:integer,notnull
-    {confirmed_p:boolean "f"}
+    {confirmed_p:boolean,notnull f}
 } -validate {
     valid_folder -requires {folder_id:integer} {
 	if {![fs_folder_p $folder_id]} {
@@ -31,7 +31,7 @@
 
 permission::require_permission -object_id $folder_id -privilege delete
 
-if {$confirmed_p == "t"} {
+if {$confirmed_p} {
     # they have confirmed that they want to delete the folder
     db_1row parent_id {}
     db_exec_plsql folder_delete {}