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 -N -r1.18 -r1.19
--- openacs-4/packages/dotlrn/www/one-community.tcl	25 Jan 2002 22:28:27 -0000	1.18
+++ openacs-4/packages/dotlrn/www/one-community.tcl	14 Feb 2002 19:43:11 -0000	1.19
@@ -21,10 +21,21 @@
 set community_id [dotlrn_community::get_community_id]
 
 # Get basic information
-db_1row select_community_info {}
+set pretty_name [dotlrn_community::get_community_name $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 \
+        -community_id $community_id]
+
+if {![empty_string_p $parent_id]} {
+    set parent_name [dotlrn_community::get_community_name $parent_id]
+    set pretext "<a href=..>$parent_name</a> : "
+} 
+
 # Check that this user is a member
 if {![dotlrn_community::member_p $community_id $user_id]} {
     set context_bar [list "Not a member"]
@@ -49,10 +60,10 @@
     # Pull out the NPP page ID and render it!
     set portal_id [dotlrn_community::get_portal_id $community_id $user_id]
 
-#    ad_return_complaint 1 "$portal_id"
     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