Index: openacs-4/packages/dotlrn/www/master.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/Attic/master.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/dotlrn/www/master.tcl	23 Jan 2002 01:14:47 -0000	1.7
+++ openacs-4/packages/dotlrn/www/master.tcl	23 Jan 2002 05:03:16 -0000	1.8
@@ -2,22 +2,10 @@
 # sloan specifc master
 #
 
-# if we have a portal_id show navbar
-if {[info exists portal_id] && ![empty_string_p $portal_id] && ![exists_and_not_null no_navbar_p]} {
-#    if {[portal::page_count -portal_id $portal_id] > 1} {
-        set navbar "<table border=0 cellpadding=5><tr>"
 
-        append navbar [portal::list_pages -portal_id $portal_id -link "switch-page" -pre_html "<td><font face=arial,helvetica size=-1 color=black><b> <center>" -separator " </center></td> <td><font face=arial,helvetica size=-1 color=black><b> <center>" -post_html "</a></center></td>"]
 
-        append navbar "</tr></table>"
-#    } else {
-#        set navbar ""
-#    }
-} else {
-    set navbar ""
-    set portal_id ""
-}
 
+# if we have a portal_id show navbar
 set user_id [ad_verify_and_get_user_id]
 
 db_0or1row pvt_home_user_info {
@@ -32,11 +20,47 @@
 if {[ad_parameter community_level_p] == 1} {
     # in a community
     set text [dotlrn_community::get_community_name [dotlrn_community::get_community_id]]
-
+    
+    if {[info exists portal_id] && ![empty_string_p $portal_id] && ![exists_and_not_null no_navbar_p]} {
+        set navbar "<table border=0 cellpadding=5><tr>"
+        
+        append navbar [portal::list_pages -portal_id $portal_id -link "switch-page" -pre_html "<td><font face=arial,helvetica size=-1 color=black><b> <center>" -separator " </center></td> <td><font face=arial,helvetica size=-1 color=black><b> <center>" -post_html "</a></center></td>"]
+        
+        append navbar "</tr></table>"
+        
+    } else {
+        set navbar ""
+        set portal_id ""
+    }
+    
 } elseif {[ad_parameter community_type_level_p] == 1} {
     # in a community type
     set text [dotlrn_community::get_community_type_name [dotlrn_community::get_community_type]]
+    
+    if {[info exists portal_id] && ![empty_string_p $portal_id] && ![exists_and_not_null no_navbar_p]} {
+        set navbar "<table border=0 cellpadding=5><tr>"
+        
+        append navbar [portal::list_pages -portal_id $portal_id -link "switch-page" -pre_html "<td><font face=arial,helvetica size=-1 color=black><b> <center>" -separator " </center></td> <td><font face=arial,helvetica size=-1 color=black><b> <center>" -post_html "</a></center></td>"]
+        
+        append navbar "</tr></table>"
+        
+    } else {
+        set navbar ""
+        set portal_id ""
+    }
+    
 } else {
     # under /dotlrn
     set text $full_name
+    if {[info exists portal_id] && ![empty_string_p $portal_id] && ![exists_and_not_null no_navbar_p]} {
+        set navbar "<table border=0 cellpadding=5><tr>"
+        
+        append navbar [portal::list_pages -portal_id $portal_id -link "switch-page" -pre_html "\n<td><font face=arial,helvetica size=-1 color=black><b> <center>" -separator " </center></td>\n<td><font face=arial,helvetica size=-1 color=black><b> <center>" -post_html "</a></center></td>\n"]
+        
+        append navbar "<td><font face=arial,helvetica size=-1 color=black><b><center><a href=preferences>Control Panel</a></center></td> </tr></table>"
+        
+    } else {
+        set navbar ""
+        set portal_id ""
+    }
 }
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.15 -r1.16
--- openacs-4/packages/dotlrn/www/one-community.tcl	23 Jan 2002 00:15:43 -0000	1.15
+++ openacs-4/packages/dotlrn/www/one-community.tcl	23 Jan 2002 05:03:16 -0000	1.16
@@ -37,7 +37,7 @@
 
     # Possible that there is no portal page for non-members
     if {! [empty_string_p $portal_id]} {
-	set rendered_page [dotlrn::render_page $portal_id]
+	set rendered_page [dotlrn::render_page -hide_links_p "t" $portal_id]
     } else {
 	set rendered_page ""
     }
@@ -48,7 +48,7 @@
     # Pull out the NPP page ID and render it!
     set portal_id [dotlrn_community::get_portal_id $community_id $user_id]
 
-    set rendered_page [dotlrn::render_page $portal_id]
+    set rendered_page [dotlrn::render_page -hide_links_p "t" $portal_id]
 
     set context_bar {View}
 
Index: openacs-4/packages/dotlrn/www/preferences.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/Attic/preferences.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/dotlrn/www/preferences.tcl	23 Jan 2002 01:15:10 -0000	1.6
+++ openacs-4/packages/dotlrn/www/preferences.tcl	23 Jan 2002 05:03:16 -0000	1.7
@@ -14,6 +14,8 @@
     admin_url:onevalue
 }
 
+set portal_id ""
+
 # Make sure user is logged in
 set user_id [ad_maybe_redirect_for_registration]