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.9 -r1.10
--- openacs-4/packages/dotlrn/www/one-community-admin.tcl	12 Jan 2002 09:27:16 -0000	1.9
+++ openacs-4/packages/dotlrn/www/one-community-admin.tcl	19 Jan 2002 22:54:20 -0000	1.10
@@ -7,28 +7,26 @@
     @version $Id$
 } -query {
 } -properties {
+    dotlrn_admin_p:onevalue
+    dotlrn_admin_url:onevalue
     community_id:onevalue
     community_type:onevalue
     pretty_name:onevalue
     description:onevalue
-    portal_template_id:onevalue
-    users:multirow
+    subgroups:multirow
 }
 
 set community_id [dotlrn_community::get_community_id]
 
-# Permissions
 dotlrn::require_user_admin_community $community_id
 
+set dotlrn_admin_p [dotlrn::admin_p]
+set dotlrn_admin_url "[dotlrn::get_url]/admin"
+
 db_1row select_community_info {}
 
-# Get all users for this community, including role
-set list_of_users [dotlrn_community::list_users $community_id]
-
-template::multirow create users rel_id rel_type user_id first_names last_name email
-
-foreach user $list_of_users {
-    template::multirow append users [lindex $user 0] [dotlrn_community::get_pretty_rel_type [lindex $user 1]] [lindex $user 2] [lindex $user 3] [lindex $user 4] [lindex $user 5]
+db_multirow subgroups select_subgroups_count {
+    select 1 from dual where 1 = 0
 }
 
 set context_bar {Admin}