Index: openacs-4/packages/dotlrn-homework/www/folder-create.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-homework/www/folder-create.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/dotlrn-homework/www/folder-create.tcl	20 Apr 2004 21:13:31 -0000	1.3
+++ openacs-4/packages/dotlrn-homework/www/folder-create.tcl	27 Oct 2014 16:41:21 -0000	1.4
@@ -10,7 +10,7 @@
     return_url:notnull
 } -validate {
     valid_folder -requires {parent_id:integer} {
-	if ![fs_folder_p $parent_id] {
+	if {![fs_folder_p $parent_id]} {
 	    ad_complain [_ dotlrn-homework.lt_spec_parent]
 	}
     }
@@ -33,7 +33,7 @@
 # to upload homework files but only class admins can create new homework
 # subfolders.
 
-ad_require_permission $parent_id admin
+permission::require_permission -object_id $parent_id -privilege admin
 
 ad_form -name homework_form -form {
     {return_url:text(hidden)         {value $return_url}}