Index: openacs-4/packages/acs-subsite/www/admin/attributes/delete-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/attributes/delete-2.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-subsite/www/admin/attributes/delete-2.tcl	13 Mar 2001 22:59:26 -0000	1.1
+++ openacs-4/packages/acs-subsite/www/admin/attributes/delete-2.tcl	10 Jan 2007 21:22:06 -0000	1.2
@@ -14,7 +14,7 @@
     { operation "" }
 }
 
-if { [string eq $operation "Yes, I really want to delete this attribute"] } {
+if {$operation eq "Yes, I really want to delete this attribute"} {
     db_transaction {
 	set object_type [db_string select_object_type {
 	    select attr.object_type 
@@ -23,12 +23,12 @@
 	} -default ""]
 
 	# If object type is empty, that means the attribute doesn't exist
-	if { ![empty_string_p $object_type] && [attribute::delete $attribute_id] } {
+	if { $object_type ne "" && [attribute::delete $attribute_id] } {
 	    # Recreate all the packages to use the new attribute
 	    package_recreate_hierarchy $object_type
 	}
     }
-} elseif { [empty_string_p $return_url] } {
+} elseif { $return_url eq "" } {
     set return_url one?[ad_export_vars attribute_id]
 }