Index: openacs-4/packages/file-storage/tcl/file-storage-rss-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/file-storage-rss-procs.tcl,v diff -u -N -r1.7 -r1.7.2.1 --- openacs-4/packages/file-storage/tcl/file-storage-rss-procs.tcl 9 May 2018 15:33:31 -0000 1.7 +++ openacs-4/packages/file-storage/tcl/file-storage-rss-procs.tcl 5 Oct 2021 09:56:55 -0000 1.7.2.1 @@ -2,7 +2,7 @@ ad_proc -public fs::rss::create_rss_gen_subscr_impl {} { Register the service contract implementation and return the impl_id - + @return impl_id of the created implementation } { return [acs_sc::impl::new_from_spec -spec { @@ -18,7 +18,7 @@ ad_proc -public fs::rss::drop_rss_gen_subscr_impl {} { Unegister the service contract implementation and return the impl_id - + @return impl_id of the created implementation } { acs_sc::impl::delete -contract_name RssGenerationSubscriber -impl_name fs_rss @@ -28,11 +28,11 @@ summary_context_id } { This procedure implements the "datasource" operation of the - RssGenerationSubscriber service contract. + RssGenerationSubscriber service contract. Important: in this implementation, the summary_context_id is equal to the subscription_id, which we use to key into the fs_rss_subscrs table - to find the folder_id. + to find the folder_id. @author Andrew Grumet (aegrumet@alum.mit.edu) } { @@ -108,11 +108,11 @@ if {$include_revisions_p == "t"} { append description "

Note: This may be a new revision of an existing file." } - + # Always convert timestamp to GMT set publish_date_ansi [lc_time_tz_convert -from [lang::system::timezone] -to "Etc/GMT" -time_value $publish_date_ansi] set publish_timestamp "[clock format [clock scan $publish_date_ansi] -format "%a, %d %b %Y %H:%M:%S"] GMT" - + set iteminfo [list \ link $link \ title $title \ @@ -147,7 +147,7 @@ set column_array(channel_rating) "" set column_array(channel_skipDays) "" set column_array(channel_skipHours) "" - + return [array get column_array] } @@ -178,7 +178,7 @@ #Don't use nested db_ calls because then fs::rss::datasource will #not see the results of in-progress transactions. set subscr_id_list [db_list select_subscrs {}] - + foreach subscr_id $subscr_id_list { rss_gen_report $subscr_id } Index: openacs-4/packages/file-storage/www/view/index.vuh =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/view/index.vuh,v diff -u -N -r1.10.2.1 -r1.10.2.2 --- openacs-4/packages/file-storage/www/view/index.vuh 11 Jun 2019 18:58:42 -0000 1.10.2.1 +++ openacs-4/packages/file-storage/www/view/index.vuh 5 Oct 2021 10:06:46 -0000 1.10.2.2 @@ -3,11 +3,11 @@ # Try and look up the item in the content repository ################################################# ad_page_contract { - + @author Unknown @creation-date Unknown @cvs-id $Id$ -} { +} { { revision_id "" } } @@ -33,7 +33,7 @@ # path as an absolute path within the filesystem. if {[parameter::get -parameter BehaveLikeFilesystemP -default 0] || [catch {set init_p [content::init the_url the_root $content_root $template_root public $revision_id $content_type]}] || !$init_p } { - + # Make sure we are not dealing with an upgraded file and there exists a file with the title if {$file_id eq ""} { set splitted_url [split $the_url "/"] @@ -52,7 +52,7 @@ if {[content::symlink::is_symlink -item_id $file_id]} { set file_id [content::symlink::resolve -item_id $file_id] - } + } if {(![info exists version_id] || $version_id eq "")} { set version_id [content::item::get_live_revision -item_id $file_id] @@ -71,7 +71,7 @@ } } else { - + set version_id [content::item::get_live_revision -item_id $file_id] permission::require_permission \ -party_id $user_id \