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.3 -r1.4
--- openacs-4/packages/dotlrn-homework/www/folder-delete.tcl	20 Apr 2004 21:13:31 -0000	1.3
+++ openacs-4/packages/dotlrn-homework/www/folder-delete.tcl	27 Oct 2014 16:41:21 -0000	1.4
@@ -11,7 +11,7 @@
     {confirmed_p "f"}
 } -validate {
     valid_folder -requires {folder_id:integer} {
-	if ![fs_folder_p $folder_id] {
+	if {![fs_folder_p $folder_id]} {
 	    ad_complain "[_ dotlrn-homework.lt_spec_folder]"
 	}
     }
@@ -29,9 +29,9 @@
 
 # check for delete permission on the folder
 
-ad_require_permission $folder_id delete
+permission::require_permission -object_id $folder_id -privilege delete
 
-if { [string equal $confirmed_p "t"] } {
+if {$confirmed_p == "t"} {
     # they have confirmed that they want to delete the folder
     db_1row parent_id {}
     db_exec_plsql folder_delete {}