Index: openacs-4/packages/dotfolio/catalog/dotfolio.en_US.ISO-8859-1.xml =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotfolio/catalog/dotfolio.en_US.ISO-8859-1.xml,v diff -u -r1.11 -r1.12 --- openacs-4/packages/dotfolio/catalog/dotfolio.en_US.ISO-8859-1.xml 29 Sep 2005 15:53:53 -0000 1.11 +++ openacs-4/packages/dotfolio/catalog/dotfolio.en_US.ISO-8859-1.xml 29 Sep 2005 17:19:16 -0000 1.12 @@ -152,5 +152,7 @@ No. of Blog Entries Continue with deleting this group? Delete group + Remove members + Are you sure you want to remove these members from group "%group_name%"? Index: openacs-4/packages/dotfolio/www/admin/group-members-rem-2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotfolio/www/admin/group-members-rem-2.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/dotfolio/www/admin/group-members-rem-2.tcl 29 Sep 2005 17:19:17 -0000 1.1 @@ -0,0 +1,21 @@ +ad_page_contract { + + Removes the given list of users to the specified group. + + @author Nick Carroll (ncarroll@ee.usyd.edu.au) + @creation-date 2005-01-02 + @version $Id: group-members-rem-2.tcl,v 1.1 2005/09/29 17:19:17 dedsc Exp $ + +} { + group_id:integer,notnull + user_id:integer,multiple +} + +set count 0 +# For each member in the list of user IDs, add that user to the group. +foreach user $user_id { + group::remove_member -group_id $group_id -user_id $user + incr count +} + +ad_returnredirect -message "Removed $count users from group" [export_vars -url -base {group-members} {group_id}] Index: openacs-4/packages/dotfolio/www/admin/group-members-rem.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotfolio/www/admin/group-members-rem.adp,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/dotfolio/www/admin/group-members-rem.adp 29 Sep 2005 17:19:17 -0000 1.1 @@ -0,0 +1,9 @@ + + @title@ + @context@ + + +
+#dotfolio.remove_members_are_you_sure#

+#acs-kernel.common_Yes# +#acs-kernel.common_no# Index: openacs-4/packages/dotfolio/www/admin/group-members-rem.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotfolio/www/admin/group-members-rem.tcl,v diff -u -r1.3 -r1.4 --- openacs-4/packages/dotfolio/www/admin/group-members-rem.tcl 2 Aug 2005 01:54:52 -0000 1.3 +++ openacs-4/packages/dotfolio/www/admin/group-members-rem.tcl 29 Sep 2005 17:19:17 -0000 1.4 @@ -2,20 +2,37 @@ Removes the given list of users to the specified group. - @author Nick Carroll (ncarroll@ee.usyd.edu.au) - @creation-date 2005-01-02 - @version $Id$ - + @author Deds Castillo (deds@i-manila.com.ph) + @creation-date 2005-09-30 + @arch-tag: c144d674-1dab-49d0-8fc4-3bb1cf24b533 + @cvs-id $Id$ } { group_id:integer,notnull user_id:integer,multiple } -set count 0 -# For each member in the list of user IDs, add that user to the group. -foreach user $user_id { - group::remove_member -group_id $group_id -user_id $user - incr count -} +set title "[_ dotfolio.remove_members]" +set context [list [list groups "[_ dotfolio.groups]"] $title] -ad_returnredirect -message "Removed $count users from group" [export_vars -url -base {group-members} {group_id}] +set user_id_list [split $user_id] + +template::list::create \ + -name members \ + -multirow members \ + -elements { + first_names { + label "[_ acs-kernel.First_Names]" + } + last_name { + label "[_ acs-kernel.Last_Name]" + } + email { + label "[_ acs-kernel.Email_Address]" + } + } + +db_multirow members members {} + +set group_name [group::get_element -group_id $group_id -element group_name] +set remove_url [export_vars -base group-members-rem-2 {group_id {user_id:multiple $user_id_list}}] +set cancel_url [export_vars -base group-members {group_id}] Index: openacs-4/packages/dotfolio/www/admin/group-members-rem.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotfolio/www/admin/group-members-rem.xql,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/dotfolio/www/admin/group-members-rem.xql 29 Sep 2005 17:19:17 -0000 1.1 @@ -0,0 +1,19 @@ + + + + + + + + + + + + + select first_names, last_name, email + from cc_users + where user_id in ([join $user_id_list ,]) + + + +