Index: openacs-4/packages/dotlrn/dotlrn.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/dotlrn.info,v
diff -u -N -r1.118.2.3.4.13 -r1.118.2.3.4.14
--- openacs-4/packages/dotlrn/dotlrn.info	6 Jul 2005 03:22:19 -0000	1.118.2.3.4.13
+++ openacs-4/packages/dotlrn/dotlrn.info	15 Jul 2005 20:13:29 -0000	1.118.2.3.4.14
@@ -68,6 +68,7 @@
             <parameter datatype="string"  min_n_values="1"  max_n_values="1"  name="subcommunities_pretty_plural"  default="#dotlrn.subcommunities_pretty_plural#" description="the plural"/>
             <parameter datatype="string"  min_n_values="1"  max_n_values="1"  name="user_portal_pages_csv"  default="#dotlrn.user_portal_page_home_title#,#new-portal.simple_2column_layout_name#;#dotlrn.user_portal_page_calendar_title#,#new-portal.simple_1column_layout_name#;#dotlrn.user_portal_page_file_storage_title#,#new-portal.simple_1column_layout_name#" description="a csv list of the other pages to create on the user wsp by default"/>
             <parameter datatype="string"  min_n_values="1"  max_n_values="1"  name="user_portal_pretty_name"  default="#dotlrn.user_portal_pretty_name#" description="the pretty name for the user portal"/>
+            <parameter datatype="number"  min_n_values="1"  max_n_values="1"  name="hide_personal_portal_p"  default="0" description="Some systems may wish to keep the personal portal hidden.  Setting this value to 1 will cause dotlrn to exclude navigation to the personal portal from community portals, and disable the entire navbar on non-community portal pages."/>
         </parameters>
 
     </version>
Index: openacs-4/packages/dotlrn/tcl/navigation-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/navigation-procs.tcl,v
diff -u -N -r1.23.2.1.4.2 -r1.23.2.1.4.3
--- openacs-4/packages/dotlrn/tcl/navigation-procs.tcl	21 Apr 2005 01:36:44 -0000	1.23.2.1.4.2
+++ openacs-4/packages/dotlrn/tcl/navigation-procs.tcl	15 Jul 2005 20:13:29 -0000	1.23.2.1.4.3
@@ -225,8 +225,10 @@
             set link [dotlrn_community::get_community_url $community_id]
 	    set control_panel_url "$link/$control_panel_name"
 
-	    # add the my space tab, which isn't part of the class portal but is super useful for the end user
-	    append navbar "<li><a href=\"$dotlrn_url\">#dotlrn.user_portal_page_home_title#</a></li>"
+            if { ![parameter::get -parameter hide_personal_portal_p -package_id [dotlrn::get_package_id] -default 0] } {
+                # add the my space tab, which isn't part of the class portal but is super useful for the end user
+                append navbar "<li><a href=\"$dotlrn_url\">#dotlrn.user_portal_page_home_title#</a></li>"
+            }
 
             # figure out what this privs this user has on the community
             set admin_p [dotlrn::user_can_admin_community_p \
Index: openacs-4/packages/dotlrn/www/dotlrn-master.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/dotlrn-master.tcl,v
diff -u -N -r1.29.2.2.4.8 -r1.29.2.2.4.9
--- openacs-4/packages/dotlrn/www/dotlrn-master.tcl	12 Apr 2005 15:24:56 -0000	1.29.2.2.4.8
+++ openacs-4/packages/dotlrn/www/dotlrn-master.tcl	15 Jul 2005 20:13:30 -0000	1.29.2.2.4.9
@@ -83,6 +83,16 @@
     set show_navbar_p 0
 } 
 
+if { [empty_string_p $community_id] && \
+         [parameter::get \
+              -parameter hide_personal_portal_p \
+              -package_id [dotlrn::get_package_id] \
+              -default 0] } {
+    #We're not in a community portal, and we've been asked to
+    #hide the personal portal.
+    set show_navbar_p 0
+}
+
 if {![info exists link_all]} {
     set link_all 0
 }