Index: openacs-4/packages/acs-subsite/tcl/group-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/group-procs.tcl,v
diff -u -r1.14 -r1.15
--- openacs-4/packages/acs-subsite/tcl/group-procs.tcl	27 Oct 2003 12:16:59 -0000	1.14
+++ openacs-4/packages/acs-subsite/tcl/group-procs.tcl	4 Nov 2003 14:56:23 -0000	1.15
@@ -437,6 +437,7 @@
 } {
     Adds a user to a group, checking that the rel_type is permissible given the user's privileges, 
     Can default both the rel_type and the member_state to their relevant values.
+    Deletes any existing relation of the same rel_type between the same group and the same user.
 } {       
     set admin_p [permission::permission_p -object_id $group_id -privilege "admin"]
     
@@ -460,6 +461,10 @@
                               -create_p $create_p]
     }
 
+    set existing_rel_id [relation::get_id -object_id_one $group_id -object_id_two $user_id -rel_type $rel_type]
+    if { ![empty_string_p $existing_rel_id] } {
+        relation_remove $existing_rel_id
+    }
     
     relation_add -member_state $member_state $rel_type $group_id $user_id
 }
Index: openacs-4/packages/acs-subsite/www/resources/stock_copy-16.png
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/resources/stock_copy-16.png,v
diff -u
Binary files differ
Index: openacs-4/packages/acs-subsite/www/resources/stock_copy.png
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/resources/stock_copy.png,v
diff -u
Binary files differ