Index: openacs-4/packages/file-storage/www/folder-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/folder-edit.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/file-storage/www/folder-edit.tcl	15 Jun 2007 17:40:29 -0000	1.4
+++ openacs-4/packages/file-storage/www/folder-edit.tcl	27 Oct 2014 16:41:33 -0000	1.5
@@ -5,10 +5,10 @@
     @creation-date 24 Jun 2002
     @cvs-id $Id$
 } {
-    folder_id:integer,notnull
+    folder_id:naturalnum,notnull
 } -validate {
     valid_folder -requires {parent_id:integer} {
-	if ![fs_folder_p $folder_id] {
+	if {![fs_folder_p $folder_id]} {
 	    ad_complain "[_ file-storage.lt_The_specified_folder_]"
 	}
     }
@@ -17,7 +17,7 @@
     context_bar:onevalue
 }
 
-ad_require_permission $folder_id admin
+permission::require_permission -object_id $folder_id -privilege admin
 
 # set templating datasources