Index: openacs-4/packages/dotlrn/www/one-community.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/one-community.tcl,v
diff -u -r1.20 -r1.21
--- openacs-4/packages/dotlrn/www/one-community.tcl	18 Feb 2002 20:53:57 -0000	1.20
+++ openacs-4/packages/dotlrn/www/one-community.tcl	6 Mar 2002 05:12:54 -0000	1.21
@@ -15,17 +15,15 @@
     ad_script_abort
 }
 
+# Get basic information
 set user_id [ad_conn user_id]
-
-# What community type are we at?
 set community_id [dotlrn_community::get_community_id]
-
-# Get basic information
 set pretty_name [dotlrn_community::get_community_name $community_id]
+set admin_p [dotlrn::user_can_admin_community_p \
+        -user_id $user_id \
+        $community_id
+]
 
-set admin_p [dotlrn::user_can_admin_community_p $community_id]
-
-
 # are we in a subcomm? if so, we need to set up the text and navbar 
 set pretext ""
 set parent_id [dotlrn_community::get_parent_id \
@@ -50,6 +48,8 @@
     # Possible that there is no portal page for non-members
     if {! [empty_string_p $portal_id]} {
 	set rendered_page [dotlrn::render_page -hide_links_p "t" -page_num $page_num $portal_id]
+        
+
     } else {
 	set rendered_page ""
     }
@@ -66,7 +66,6 @@
     set rendered_page [dotlrn::render_page -hide_links_p "t" -page_num $page_num $portal_id]
 
     set context_bar {View}
-    set control_panel_text "Group Admin"
     set url_stub "one-community"
 
     ad_return_template