Index: openacs-4/packages/acs-subsite/www/admin/rel-types/delete-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/rel-types/delete-2.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-subsite/www/admin/rel-types/delete-2.tcl	20 Aug 2001 05:15:29 -0000	1.2
+++ openacs-4/packages/acs-subsite/www/admin/rel-types/delete-2.tcl	10 Jan 2007 21:22:07 -0000	1.3
@@ -14,9 +14,9 @@
     { return_url "" }
 }
 
-if { ![string eq $operation "Yes, I really want to delete this relationship type"] } {
+if { $operation ne "Yes, I really want to delete this relationship type" } {
     # set the return_url to something useful if we are not deleting
-    if { [empty_string_p $return_url] } {
+    if { $return_url eq "" } {
 	set return_url "one?[ad_export_vars rel_type]"
     }
 } else {
@@ -56,7 +56,7 @@
 	    relation_remove $rel_id
 	}
 	
-	if { ![empty_string_p $segment_id] } {
+	if { $segment_id ne "" } {
 	    rel_segments_delete $segment_id
 	}