Index: openacs-4/packages/dotlrn/www/one-community-portal-configure.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/one-community-portal-configure.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/dotlrn/www/one-community-portal-configure.tcl	14 May 2002 22:00:43 -0000	1.1
+++ openacs-4/packages/dotlrn/www/one-community-portal-configure.tcl	13 Jul 2002 18:50:05 -0000	1.2
@@ -15,17 +15,25 @@
 #
 
 ad_page_contract {
-    Configuration page for an instance's portal template
 
+    Displays a configuration page for COMMUNITY'S portal ONLY!
+    This page is restricted to admins of the community.
+
+    User portals are configured by the configure.tcl page.
+
     @author Arjun Sanyal (arjun@openforce.net)
     @version $Id$
 } -query {
     {referer "one-community-admin"}
 }
 
-set portal_id [dotlrn_community::get_portal_id]
+dotlrn::require_user_admin_community \
+    -user_id [ad_conn user_id] \
+    -community_id [dotlrn_community::get_community_id]
 
-# don't use the template config proc here since it's not a template anymore!
-set rendered_page [portal::configure $portal_id $referer]
+set rendered_page [portal::configure \
+    [dotlrn_community::get_portal_id] \
+    $referer
+]
 
 ad_return_template