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.7.6.3 -r1.7.6.4 --- openacs-4/packages/dotlrn/www/member-add-3.tcl 5 Oct 2004 13:21:11 -0000 1.7.6.3 +++ openacs-4/packages/dotlrn/www/member-add-3.tcl 6 Oct 2004 12:43:36 -0000 1.7.6.4 @@ -22,25 +22,23 @@ @creation-date 2001-11-04 @version $Id$ } -query { - {user_id:multiple,notnull} + user_id:multiple rel_type {referer "one-community-admin"} } set community_id [dotlrn_community::get_community_id] - +# See if the user is already in the group foreach uid $user_id { - - # See if the user is already in the group set member_p [dotlrn_community::member_p $community_id $uid] - + if {$member_p} { dotlrn_community::remove_user $community_id $uid } + # Add the relation dotlrn_community::add_user -rel_type $rel_type $community_id $uid - -} +} ad_returnredirect $referer