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.3 -r1.4
--- openacs-4/packages/dotlrn/www/master.tcl	21 Jan 2002 22:08:46 -0000	1.3
+++ openacs-4/packages/dotlrn/www/master.tcl	21 Jan 2002 22:37:03 -0000	1.4
@@ -7,7 +7,13 @@
 #    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 [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> 
+    <td><font face=arial,helvetica size=-1 color=black><b> <center>
+    <a href=./calendar>Calendar</a></center></td>
+    <td><font face=arial,helvetica size=-1 color=black><b> <center>
+    <a href=./file-storage>My Files</a></center></td>
+    <td><font face=arial,helvetica size=-1 color=black><b> <center>
+    <a href=./control-panel>Control Panel</a></center></td>"]
         
         append navbar "</tr></table>"
 #    } else {