Index: openacs-4/packages/bookshelf/lib/nav-bar.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bookshelf/lib/nav-bar.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/bookshelf/lib/nav-bar.tcl	30 Sep 2002 18:10:54 -0000	1.1
+++ openacs-4/packages/bookshelf/lib/nav-bar.tcl	12 Jan 2003 22:41:03 -0000	1.2
@@ -20,8 +20,9 @@
 if { [ad_conn user_id] != 0 } {
     multirow append links "My Books" "[ad_conn package_url]?[export_vars -url { { creation_user {[ad_conn user_id]} } }]"
 }
-if { [ad_permission_p $package_id admin] } {
-    multirow append links "Admin" "[ad_conn package_url]admin/"
-}
+# Commenting out Admin link as the admin pages haven't been written yet
+#if { [ad_permission_p $package_id admin] } {
+#    multirow append links "Admin" "[ad_conn package_url]admin/"
+#}
 
 ad_return_template