Index: openacs-4/packages/dotlrn/www/member-add-3.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/member-add-3.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/dotlrn/www/member-add-3.tcl	23 Oct 2002 12:38:39 -0000	1.6
+++ openacs-4/packages/dotlrn/www/member-add-3.tcl	4 Dec 2002 09:51:04 -0000	1.7
@@ -28,7 +28,14 @@
 }
 
 set community_id [dotlrn_community::get_community_id]
+# See if the user is already in the group
+set member_p [dotlrn_community::member_p $community_id $user_id]
 
+if {$member_p} {
+    dotlrn_community::remove_user $community_id $user_id
+}
+
+
 # Add the relation
 dotlrn_community::add_user -rel_type $rel_type $community_id $user_id