Index: openacs-4/packages/dotlrn-homework/www/version-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-homework/www/version-delete.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/dotlrn-homework/www/version-delete.tcl	13 Jan 2005 13:57:29 -0000	1.4
+++ openacs-4/packages/dotlrn-homework/www/version-delete.tcl	27 Oct 2014 16:41:21 -0000	1.5
@@ -9,7 +9,7 @@
     {confirmed_p "f"}
 } -validate {
     valid_version -requires {version_id} {
-	if ![fs_version_p $version_id] {
+	if {![fs_version_p $version_id]} {
 	    ad_complain "[_ dotlrn-homework.lt_spec_version]"
 	}
     }
@@ -22,14 +22,14 @@
 
 # check for delete permission on the version
 
-ad_require_permission $version_id delete
+permission::require_permission -object_id $version_id -privilege delete
 
 db_1row item_select "
 select item_id
 from   cr_revisions
 where  revision_id = :version_id"
 
-if {[string equal $confirmed_p "t"]} {
+if {$confirmed_p == "t"} {
     # they have confirmed that they want to delete the version
 
     db_transaction {