Index: openacs-4/packages/file-storage/www/simple-add-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/simple-add-2.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/file-storage/www/simple-add-2.tcl	13 Feb 2009 22:13:06 -0000	1.8
+++ openacs-4/packages/file-storage/www/simple-add-2.tcl	27 Oct 2014 16:41:34 -0000	1.9
@@ -5,13 +5,13 @@
     @creation-date 6 Nov 2000
     @cvs-id $Id$
 } {
-    folder_id:integer,notnull
+    folder_id:naturalnum,notnull
     title:notnull,trim
     description
     url:notnull,trim
 } -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_]"
 	}
     }
@@ -21,7 +21,7 @@
 set user_id [ad_conn user_id]
 
 # Check for write permission on this folder
-ad_require_permission $folder_id write
+permission::require_permission -object_id $folder_id -privilege write
 
 set item_id [content::extlink::new -url $url -label $title -description $description -parent_id $folder_id]