Index: openacs-4/packages/file-manager/www/file-upload-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-manager/www/file-upload-2.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/file-manager/www/file-upload-2.tcl	10 Oct 2003 16:03:45 -0000	1.7
+++ openacs-4/packages/file-manager/www/file-upload-2.tcl	11 Dec 2003 21:40:03 -0000	1.8
@@ -13,17 +13,19 @@
     {title:trim,notnull}
 }
 
+fm_check_permission
+
 set the_file [ns_queryget the_file.tmpfile]
 
 # Make sure the incoming filename is valid
 
 if ![fm_valid_filename_p $title] {
-    ad_return_complaint "Error" "<li>Invalid file name (no spaces, & or /'s)"
+    ad_return_complaint 1 "<li>Invalid file name (no spaces, & or /'s)"
     ad_script_abort
 }
 
 if {![empty_string_p $title] && [empty_string_p [file ext $title]]} {
-    ad_return_complaint "Error" "
+    ad_return_complaint 1 "
     <li>The title you supply must have one of the following extensions:<br>
     [ad_parameter Extensions file-manager]"
     ad_script_abort