Index: openacs-4/packages/acs-kernel/sql/oracle/groups-create.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-kernel/sql/oracle/groups-create.sql,v diff -u -r1.11 -r1.12 --- openacs-4/packages/acs-kernel/sql/oracle/groups-create.sql 18 Aug 2006 18:17:49 -0000 1.11 +++ openacs-4/packages/acs-kernel/sql/oracle/groups-create.sql 8 Sep 2008 20:05:17 -0000 1.12 @@ -159,7 +159,8 @@ constraint groups_join_policy_nn not null constraint groups_join_policy_ck check (join_policy in - ('open', 'needs approval', 'closed')) + ('open', 'needs approval', 'closed')), + description varchar2(4000) ); Index: openacs-4/packages/acs-kernel/sql/oracle/upgrade/upgrade-5.5.0d2-5.5.0d3.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-kernel/sql/oracle/upgrade/upgrade-5.5.0d2-5.5.0d3.sql,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/acs-kernel/sql/oracle/upgrade/upgrade-5.5.0d2-5.5.0d3.sql 8 Sep 2008 20:05:18 -0000 1.1 @@ -0,0 +1 @@ +alter table groups add description varchar(4000); \ No newline at end of file Index: openacs-4/packages/acs-kernel/sql/postgresql/groups-create.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-kernel/sql/postgresql/groups-create.sql,v diff -u -r1.24 -r1.25 --- openacs-4/packages/acs-kernel/sql/postgresql/groups-create.sql 25 Sep 2006 17:59:16 -0000 1.24 +++ openacs-4/packages/acs-kernel/sql/postgresql/groups-create.sql 8 Sep 2008 20:05:17 -0000 1.25 @@ -189,7 +189,8 @@ join_policy varchar(30) default 'open' not null constraint groups_join_policy_ck check (join_policy in - ('open', 'needs approval', 'closed')) + ('open', 'needs approval', 'closed')), + description varchar(4000) ); Index: openacs-4/packages/acs-kernel/sql/postgresql/upgrade/upgrade-5.5.0d2-5.5.0d3.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-kernel/sql/postgresql/upgrade/upgrade-5.5.0d2-5.5.0d3.sql,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/acs-kernel/sql/postgresql/upgrade/upgrade-5.5.0d2-5.5.0d3.sql 8 Sep 2008 20:05:18 -0000 1.1 @@ -0,0 +1 @@ +alter table groups add column description varchar(4000); \ No newline at end of file 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 {