Index: openacs-4/packages/dotlrn/www/one-community-admin.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/one-community-admin.tcl,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/dotlrn/www/one-community-admin.tcl	19 Jan 2002 22:54:20 -0000	1.10
+++ openacs-4/packages/dotlrn/www/one-community-admin.tcl	20 Jan 2002 06:11:04 -0000	1.11
@@ -13,7 +13,8 @@
     community_type:onevalue
     pretty_name:onevalue
     description:onevalue
-    subgroups:multirow
+    join_policy:onevalue
+    n_subgroups:onevalue
 }
 
 set community_id [dotlrn_community::get_community_id]
@@ -25,9 +26,9 @@
 
 db_1row select_community_info {}
 
-db_multirow subgroups select_subgroups_count {
+set n_subgroups [db_string select_subgroups_count {
     select 1 from dual where 1 = 0
-}
+} -default 0]
 
 set context_bar {Admin}