Index: openacs-4/packages/new-portal/tcl/portal-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/tcl/portal-procs.tcl,v
diff -u -r1.106 -r1.107
--- openacs-4/packages/new-portal/tcl/portal-procs.tcl	23 Jan 2002 05:24:33 -0000	1.106
+++ openacs-4/packages/new-portal/tcl/portal-procs.tcl	23 Jan 2002 06:29:22 -0000	1.107
@@ -728,6 +728,7 @@
         {-post_html ""}
         {-separator " "}
         {-return_url ""}
+        {-link_all 0}
     } {
         Returns an html string of the pretty names of the pages in the 
         given portal. 
@@ -741,7 +742,7 @@
         set current_page_id [get_page_id -current "t" -portal_id $portal_id]
 
         foreach page [list_pages_tcl_list -portal_id $portal_id] {
-            if {$page == $current_page_id} {
+            if {$page == $current_page_id && !$link_all} {
                 append html "[get_page_pretty_name -page_id $page]"
             } else {
                 if {[empty_string_p $return_url]} {