Index: openacs-4/packages/acs-subsite/www/admin/configure.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/configure.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/acs-subsite/www/admin/configure.tcl	8 May 2008 01:35:58 -0000	1.9
+++ openacs-4/packages/acs-subsite/www/admin/configure.tcl	8 Sep 2008 20:05:18 -0000	1.10
@@ -10,6 +10,7 @@
 
 set context [list "Configuration"]
 
+set group_id [application_group::group_id_from_package_id]
 
 ad_form -name name -cancel_url [ad_conn url] -mode display -form {
     {instance_name:text
@@ -29,6 +30,10 @@
         {label "Join policy"}
         {options [group::get_join_policy_options]}
     }
+    {description:text(textarea)
+        {label "Description"}
+	{html { rows 6 cols 80 }}
+    }
 } -on_request {
     set instance_name [ad_conn instance_name]
     set theme [parameter::get -parameter ThemeKey -package_id [ad_conn package_id]]
@@ -39,13 +44,14 @@
         set visibility "members"
     }
 
-    set join_policy [group::join_policy -group_id [application_group::group_id_from_package_id]]
-
+    set join_policy [group::join_policy -group_id $group_id]
+    set description [group::description -group_id $group_id]
 } -on_submit {
     apm_package_rename -instance_name $instance_name
     subsite::set_theme -theme $theme
     set group(join_policy) $join_policy
-    group::update -group_id [application_group::group_id_from_package_id] -array group
+    set group(description) $description
+    group::update -group_id $group_id -array group
 
     switch $visibility {
         any {