Index: openacs-4/packages/file-storage/www/folder-chunk.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/folder-chunk.tcl,v
diff -u -r1.21.2.18 -r1.21.2.19
--- openacs-4/packages/file-storage/www/folder-chunk.tcl	30 Sep 2004 19:06:47 -0000	1.21.2.18
+++ openacs-4/packages/file-storage/www/folder-chunk.tcl	13 Dec 2004 16:33:53 -0000	1.21.2.19
@@ -67,6 +67,7 @@
 
 lappend actions "\#file-storage.Add_File\#" ${fs_url}file-add?[export_vars folder_id] "Upload a file in this folder" "\#file-storage.Create_a_URL\#" ${fs_url}simple-add?[export_vars folder_id] "Add a link to a web page" "\#file-storage.New_Folder\#" ${fs_url}folder-create?[export_vars {{parent_id $folder_id}}] "\#file-storage.Create_a_new_folder\#"
 
+set expose_rss_p [parameter::get -parameter ExposeRssP -default 0]
 
 if {$delete_p} {
     lappend actions "\#file-storage.Delete_this_folder\#" ${fs_url}folder-delete?[export_vars folder_id] "\#file-storage.Delete_this_folder\#"
@@ -75,6 +76,9 @@
     set return_url [ad_conn url]
     lappend actions "\#file-storage.Edit_Folder\#" "${fs_url}folder-edit?folder_id=$folder_id" "\#file-storage.Rename_this_folder\#"
     lappend actions "\#file-storage.lt_Modify_permissions_on_1\#" "/permissions/one?[export_vars -override {{object_id $folder_id}} {return_url}]" "\#file-storage.lt_Modify_permissions_on_1\#"
+    if { $expose_rss_p } {
+	lappend actions "Configure RSS" "${fs_url}admin/rss-subscrs?folder_id=$folder_id"
+    }
 }
 
 #set n_past_filter_values [list [list "Yesterday" 1] [list [_ file-storage.last_week] 7] [list [_ file-storage.last_month] 30]]
@@ -183,4 +187,8 @@
     regsub -all {#} $file_url {%23} file_url
 }
 
+if { $expose_rss_p } {
+    db_multirow feeds select_subscrs {}
+}
+
 ad_return_template