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.1 -r1.2
--- openacs-4/packages/dotlrn/www/master.tcl	21 Jan 2002 07:42:50 -0000	1.1
+++ openacs-4/packages/dotlrn/www/master.tcl	21 Jan 2002 09:35:39 -0000	1.2
@@ -7,11 +7,12 @@
     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 "foobarlink" -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 [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>"
-    } 
-    set navbar ""
+    } else {
+        set navbar ""
+    }
 } else {
     set navbar ""
 }