Index: openacs-4/packages/file-manager/tcl/file-manager-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-manager/tcl/file-manager-procs.tcl,v
diff -u -N -r1.3 -r1.4
--- openacs-4/packages/file-manager/tcl/file-manager-procs.tcl	10 Oct 2003 15:44:32 -0000	1.3
+++ openacs-4/packages/file-manager/tcl/file-manager-procs.tcl	11 Dec 2003 21:40:03 -0000	1.4
@@ -33,10 +33,17 @@
     }
 }
 
+ad_proc -private fm_check_permission {} { 
+    Require that the user have sitewide admin
+} { 
+    permission::require_permission -object_id [site_node::get_element -url / -element package_id] -privilege admin
+}
+
+
 ad_proc fm_admin_context_bar {} {
     Returns a context bar that will break out of the frames
 } {
-    regsub -all "href" [ad_admin_context_bar "File Manager"] "target=_top href" context_bar
+    regsub -all "href" [ad_context_bar {File Manager}] "target=_top href" context_bar
     return $context_bar
 }