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 \