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.3 -r1.4
--- openacs-4/packages/dotfolio/catalog/dotfolio.en_US.ISO-8859-1.xml 14 May 2005 14:27:44 -0000 1.3
+++ openacs-4/packages/dotfolio/catalog/dotfolio.en_US.ISO-8859-1.xml 15 May 2005 02:36:43 -0000 1.4
@@ -5,6 +5,8 @@
Grant site-wide administrative privileges.
Username
Groups
+ {Group Members}
+ Group Members
Delete
Select adviser...
Create Group
Index: openacs-4/packages/dotfolio/www/admin/group-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotfolio/www/admin/group-add.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/dotfolio/www/admin/group-add.tcl 14 May 2005 14:27:44 -0000 1.1
+++ openacs-4/packages/dotfolio/www/admin/group-add.tcl 15 May 2005 02:36:43 -0000 1.2
@@ -12,11 +12,16 @@
adviser_id:integer,notnull
}
-# Create group with given group_name.
-set group_id [group::new -group_name $group_name group]
+db_transaction {
+ # Create group with given group_name.
+ set group_id [group::new -group_name $group_name group]
-# Use group_id from above and insert with adviser_id into
-# dotfolio_group_adviser_map.
-db_dml insert_group_adviser_ids {}
+ # Add adviser to group.
+ group::add_member -group_id $group_id -user_id $adviser_id
+ # Use group_id from above and insert with adviser_id into
+ # dotfolio_group_adviser_map.
+ db_dml insert_group_adviser_ids {}
+}
+
ad_returnredirect "groups"