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 @@
   <msg key="grant_site_wide_admin">Grant site-wide administrative privileges.</msg>
   <msg key="Username">Username</msg>
   <msg key="groups">Groups</msg>
+  <msg key="group_members_curly">{Group Members}</msg>
+  <msg key="group_members">Group Members</msg>
   <msg key="delete">Delete</msg>
   <msg key="select_adviser">Select adviser...</msg>
   <msg key="create_group">Create Group</msg>
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"