Index: openacs-4/packages/dotlrn-homework/www/file-move-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-homework/www/file-move-2.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/dotlrn-homework/www/file-move-2.tcl	13 Jan 2005 13:57:29 -0000	1.3
+++ openacs-4/packages/dotlrn-homework/www/file-move-2.tcl	27 Oct 2014 16:41:21 -0000	1.4
@@ -9,22 +9,22 @@
     parent_id:integer,notnull
 } -validate {
     valid_file -requires {file_id} {
-	if ![fs_file_p $file_id] {
+	if {![fs_file_p $file_id]} {
 	    ad_complain "[_ dotlrn-homework.lt_specified_file]"
 	}
     }
 
     valid_folder -requires {parent_id} {
-	if ![fs_folder_p $parent_id] {
+	if {![fs_folder_p $parent_id]} {
 	    ad_complain "[_ dotlrn-homework.lt_spec_parent]"
 	}
     }
 }
 
 # check for write permission on both the file and the target folder
 
-ad_require_permission $file_id write
-ad_require_permission $parent_id write
+permission::require_permission -object_id $file_id -privilege write
+permission::require_permission -object_id $parent_id -privilege write
 
 set creation_user [ad_conn user_id]
 set creation_ip [ns_conn peeraddr]
@@ -36,7 +36,7 @@
     db_exec_plsql file_move {}
     db_dml context_update {}
 
-    if { ![string equal $correction_file_id ""] } {
+    if { $correction_file_id ne "" } {
         db_exec_plsql correction_file_move {}
         db_dml correction_context_update {}
     }