Index: openacs-4/packages/acs-subsite/www/admin/rel-types/mapping-remove-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/rel-types/mapping-remove-2.tcl,v
diff -u -N -r1.3 -r1.4
--- openacs-4/packages/acs-subsite/www/admin/rel-types/mapping-remove-2.tcl	6 Sep 2002 21:50:03 -0000	1.3
+++ openacs-4/packages/acs-subsite/www/admin/rel-types/mapping-remove-2.tcl	10 Jan 2007 21:22:07 -0000	1.4
@@ -17,16 +17,16 @@
     context:onevalue
 }
 
-if { [empty_string_p $group_rel_id] || [empty_string_p $group_type_rel_id] } {
+if { $group_rel_id eq "" || $group_type_rel_id eq "" } {
     error "Either group_rel_id or group_rel_type_id must be specified"
 }
 
-if { ![empty_string_p $group_rel_id] } {
+if { $group_rel_id ne "" } {
     db_dml delete_group_rel_mapping {
 	delete from group_rels 
 	 where group_rel_id = :group_rel_id
     }
-} elseif { ![empty_string_p $group_rel_id] } {
+} elseif { $group_rel_id ne "" } {
     db_dml delete_group_type_rel_mapping {
 	delete from group_type_rels 
 	 where group_type_rel_id = :group_type_rel_id