Index: openacs-4/packages/file-manager/www/file-tree.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-manager/www/file-tree.tcl,v diff -u -N -r1.2 -r1.3 --- openacs-4/packages/file-manager/www/file-tree.tcl 10 Sep 2002 22:22:54 -0000 1.2 +++ openacs-4/packages/file-manager/www/file-tree.tcl 11 Dec 2003 21:40:03 -0000 1.3 @@ -10,6 +10,8 @@ @cvs-id $Id$ } +fm_check_permission + proc get_dirs { path } { set files [list]