Index: openacs-4/packages/file-storage/tcl/file-storage-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/file-storage-callback-procs.tcl,v
diff -u -N -r1.1.2.13 -r1.1.2.14
--- openacs-4/packages/file-storage/tcl/file-storage-callback-procs.tcl	3 Mar 2006 13:26:20 -0000	1.1.2.13
+++ openacs-4/packages/file-storage/tcl/file-storage-callback-procs.tcl	17 May 2006 21:07:02 -0000	1.1.2.14
@@ -25,6 +25,15 @@
 } {
 }
 
+# this can be used to check for confirmation before upload to folder
+ad_proc -public -callback fs::before_file_new {
+    {-package_id:required}
+    {-folder_id:required}
+    {-cancel_url:required}
+    {-return_url:required}
+} {
+}
+
 ad_proc -public -callback fs::file_new {
     {-package_id:required}
     {-file_id:required}