Index: openacs-4/packages/acs-subsite/www/admin/rel-segments/constraints/delete-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/rel-segments/constraints/delete-2.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-subsite/www/admin/rel-segments/constraints/delete-2.tcl	30 Sep 2003 12:10:03 -0000	1.3
+++ openacs-4/packages/acs-subsite/www/admin/rel-segments/constraints/delete-2.tcl	10 Jan 2007 21:22:07 -0000	1.4
@@ -18,9 +18,9 @@
 
 set package_id [ad_conn package_id]
 
-if { [string eq $operation "Yes, I really want to delete this constraint"] } {
+if {$operation eq "Yes, I really want to delete this constraint"} {
 
-    if { [empty_string_p $return_url] } {
+    if { $return_url eq "" } {
 	# Redirect to the rel-segment page by default. 
 	if { [db_0or1row select_segment_id {
 	    select c.rel_segment as segment_id from rel_constraints c where c.constraint_id = :constraint_id
@@ -49,7 +49,7 @@
     }
     db_release_unused_handles
 
-} elseif { [empty_string_p $return_url] } {
+} elseif { $return_url eq "" } {
     # if we're not deleting, redirect to the constraint page
     set return_url one?[ad_export_vars constraint_id]
 }