Index: openacs-4/packages/dotlrn-homework/www/file-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-homework/www/file-delete.tcl,v
diff -u -r1.4 -r1.4.12.1
--- openacs-4/packages/dotlrn-homework/www/file-delete.tcl	13 Jan 2005 13:57:29 -0000	1.4
+++ openacs-4/packages/dotlrn-homework/www/file-delete.tcl	18 Aug 2014 21:53:42 -0000	1.4.12.1
@@ -9,7 +9,7 @@
     {confirmed_p "f"}
 } -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]"
 	}
     }
@@ -35,7 +35,7 @@
 where  item_id = :file_id
 and    acs_permission.permission_p(revision_id,:user_id,'delete') = 'f'"] 0 f t]
 
-if {[string equal $confirmed_p "t"] && [string equal $blocked_p "f"] } {
+if {$confirmed_p == "t" && $blocked_p == "f" } {
     # they confirmed that they want to delete the file
 
     db_1row parent_id "select parent_id from cr_items where item_id = :file_id"