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 }