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 ,])
+
+
+
+