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.13.2.1 -r1.13.2.2 --- openacs-4/packages/dotlrn/www/member-add-3.tcl 29 Aug 2008 11:31:16 -0000 1.13.2.1 +++ openacs-4/packages/dotlrn/www/member-add-3.tcl 29 Aug 2008 11:33:18 -0000 1.13.2.2 @@ -30,8 +30,8 @@ set community_id [dotlrn_community::get_community_id] # See if the user is already in the group -foreach uid $user_id { - set member_p [dotlrn_community::member_p $community_id $uid] +foreach member_id $user_id { + set member_p [dotlrn_community::member_p $community_id $member_id] set skip_p 0 if {$member_p} { @@ -68,7 +68,7 @@ # add_user_to_community should have # taken care of everything set extra_vars [ns_set create] - ns_set put $extra_vars user_id $uid + ns_set put $extra_vars user_id $member_id ns_set put $extra_vars community_id $community_id ns_set put $extra_vars class_instance_id $community_id @@ -77,10 +77,10 @@ -extra_vars $extra_vars \ $rel_type \ $community_id \ - $uid + $member_id util_memoize_flush "dotlrn_community::list_users_not_cached -rel_type $rel_type -community_id $community_id" } else { - dotlrn_community::add_user -rel_type $rel_type $community_id $uid + dotlrn_community::add_user -rel_type $rel_type $community_id $member_id } } } Index: openacs-4/packages/dotlrn/www/member-add-3.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/member-add-3.xql,v diff -u -r1.1 -r1.1.2.1 --- openacs-4/packages/dotlrn/www/member-add-3.xql 16 Nov 2007 20:45:52 -0000 1.1 +++ openacs-4/packages/dotlrn/www/member-add-3.xql 29 Aug 2008 11:33:18 -0000 1.1.2.1 @@ -10,7 +10,7 @@ select rel_id, rel_type as old_rel_type from dotlrn_member_rels_full where community_id = :community_id - and user_id = :uid + and user_id = :member_id \ No newline at end of file