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.42.2.20 -r1.42.2.21
--- openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	4 Nov 2004 12:27:28 -0000	1.42.2.20
+++ openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	13 Dec 2004 16:33:53 -0000	1.42.2.21
@@ -760,6 +760,13 @@
 	fs::do_notifications -folder_id $parent_id -filename $title -item_id $revision_id -action "new_version" -package_id $package_id
     }
 
+    #It's safe to rebuild RSS repeatedly, assuming it's not too expensive.
+    set folder_info [fs::get_folder_package_and_root $parent_id]
+    set db_package_id [lindex $folder_info 0]
+    if { [parameter::get -package_id $db_package_id -parameter ExposeRssP -default 0] } {
+        fs::rss::build_feeds $parent_id
+    }
+
     return $revision_id
 }
 
@@ -1049,3 +1056,18 @@
     set file_object_info(content) $content
     return [array get file_object_info]
 }
+
+ad_proc -public fs::get_folder_package_and_root folder_id {
+
+    Returns a two-element tcl list containing the package_id
+    and root_folder_id for the passed-in folder_id.
+
+    @author Andrew Grumet (aegrumet@alum.mit.edu)
+    @creation-date 15 March 2004
+
+} {
+
+    db_1row select_package_and_root {}
+
+    return [list $package_id $root_folder_id]
+}