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 -r1.1.2.3 -r1.1.2.4
--- openacs-4/packages/file-storage/tcl/file-storage-callback-procs.tcl	20 Jul 2005 15:49:30 -0000	1.1.2.3
+++ openacs-4/packages/file-storage/tcl/file-storage-callback-procs.tcl	29 Jul 2005 02:27:39 -0000	1.1.2.4
@@ -25,6 +25,12 @@
 } {
 }
 
+ad_proc -public -callback fs::file_revision_new {
+    {-package_id:required}
+    {-file_id:required}
+} {
+}
+
 ad_proc -public -callback datamanager::move_folder -impl datamanager {
      -object_id:required
      -selected_community:required
Index: openacs-4/packages/file-storage/tcl/file-storage-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/file-storage-procs.tcl,v
diff -u -r1.48.2.3 -r1.48.2.4
--- openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	21 Jul 2005 18:44:41 -0000	1.48.2.3
+++ openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	29 Jul 2005 02:27:39 -0000	1.48.2.4
@@ -714,11 +714,10 @@
 	
 	if {[string is true $do_notify_here_p]} {
 	    fs::do_notifications -folder_id $parent_id -filename $title -item_id $revision_id -action "new_file" -package_id $package_id
+	    if {!$no_callback_p} {
+		callback fs::file_new -package_id $package_id -file_id $item_id
+	    }
 	}
-
-	if {!$no_callback_p} {
-	    callback fs::file_new -package_id $package_id -file_id $item_id
-	}
     }
     return $revision_id
 }
@@ -735,6 +734,7 @@
     {-suppress_notify_p "f"}
     {-storage_type ""}
     {-mime_type ""}
+    -no_callback:boolean
 } {
     Create a new version of a file storage item 
     @return revision_id
@@ -778,6 +778,10 @@
         fs::rss::build_feeds $parent_id
     }
 
+    if {!$no_callback_p} {
+	callback fs::file_revision_new -package_id $package_id -file_id $item_id
+    }
+
     return $revision_id
 }