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.4 -r1.1.2.5
--- openacs-4/packages/file-storage/tcl/file-storage-callback-procs.tcl	29 Jul 2005 02:27:39 -0000	1.1.2.4
+++ openacs-4/packages/file-storage/tcl/file-storage-callback-procs.tcl	22 Sep 2005 12:37:34 -0000	1.1.2.5
@@ -28,8 +28,10 @@
 ad_proc -public -callback fs::file_revision_new {
     {-package_id:required}
     {-file_id:required}
+    {-parent_id:required}
 } {
-}
+    Callback to be executed when a new revision of a file is uploaded
+} -
 
 ad_proc -public -callback datamanager::move_folder -impl datamanager {
      -object_id: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.6 -r1.48.2.7
--- openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	24 Aug 2005 07:01:51 -0000	1.48.2.6
+++ openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	22 Sep 2005 12:37:34 -0000	1.48.2.7
@@ -935,7 +935,7 @@
     }
 
     if {!$no_callback_p} {
-	callback fs::file_revision_new -package_id $package_id -file_id $item_id
+	callback fs::file_revision_new -package_id $package_id -file_id $item_id -parent_id $parent_id
     }
 
     return $revision_id