Index: openacs-4/packages/file-storage/www/simple-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/simple-add.tcl,v
diff -u -r1.13 -r1.14
--- openacs-4/packages/file-storage/www/simple-add.tcl	13 Feb 2009 22:13:06 -0000	1.13
+++ openacs-4/packages/file-storage/www/simple-add.tcl	27 Oct 2014 16:41:34 -0000	1.14
@@ -6,13 +6,13 @@
     @creation-date 01 April 2002
     @cvs-id $Id$
 } {
-    folder_id:integer,notnull
+    folder_id:naturalnum,notnull
     {type "fs_url"}
     {title ""}
     {lock_title_p 0}
 } -validate {
     valid_folder -requires {folder_id:integer} {
-	if ![fs_folder_p $folder_id] {
+	if {![fs_folder_p $folder_id]} {
 	    ad_complain "[_ file-storage.lt_The_specified_parent_]"
 	}
     }
@@ -23,12 +23,12 @@
 
 # check for write permission on the folder
 
-ad_require_permission $folder_id write
+permission::require_permission -object_id $folder_id -privilege write
 
 # set templating datasources
 
 set pretty_name "URL"
-if {[empty_string_p $pretty_name]} {
+if {$pretty_name eq ""} {
     return -code error "[_ file-storage.No_such_type]"
 }
 
@@ -38,7 +38,7 @@
 # double-click protection
 
 # if title isn't passed in ignore lock_title_p
-if {[empty_string_p $title]} {
+if {$title eq ""} {
     set lock_title_p 0
 }