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.12 -r1.13
--- openacs-4/packages/dotlrn/www/one-community-admin.tcl	21 Jan 2002 06:30:11 -0000	1.12
+++ openacs-4/packages/dotlrn/www/one-community-admin.tcl	22 Jan 2002 15:33:17 -0000	1.13
@@ -7,29 +7,25 @@
     @version $Id$
 } -query {
 } -properties {
-    dotlrn_admin_p:onevalue
-    dotlrn_admin_url:onevalue
     community_id:onevalue
     community_type:onevalue
     pretty_name:onevalue
     description:onevalue
-    join_policy:onevalue
-    n_subgroups:onevalue
+    portal_template_id:onevalue
+    users:multirow
 }
 
 set portal_id ""
+
 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 {}
 
-set n_subgroups [db_string select_subgroups_count {
-    select 1 from dual where 1 = 0
-} -default 0]
+# render the admin page
+set rendered_page [dotlrn::render_page -render_style all_in_one $admin_portal_id]
 
 set context_bar {Admin}