Index: openacs-4/packages/rss-support/www/subscrs-include-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/rss-support/www/Attic/subscrs-include-oracle.xql,v
diff -u -N
--- openacs-4/packages/rss-support/www/subscrs-include-oracle.xql 23 Feb 2005 12:33:21 -0000 1.4
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,22 +0,0 @@
-
-
-
- oracle8.1.6
-
-
-
- select s.subscr_id,
- s.timeout,
- person.name(o.creation_user) as creator,
- to_char(s.lastbuild,'YYYY-MM-DD HH24:MI:SS') as lastbuild_ansi,
- s.last_ttb,
- s.channel_title,
- s.channel_link
- from rss_gen_subscrs s,
- acs_objects o
- where o.object_id = s.subscr_id $maybe_restrict_to_user
- order by s.last_ttb desc
-
-
-
-
Index: openacs-4/packages/rss-support/www/subscrs-include-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/rss-support/www/Attic/subscrs-include-postgresql.xql,v
diff -u -N
--- openacs-4/packages/rss-support/www/subscrs-include-postgresql.xql 23 Feb 2005 12:33:22 -0000 1.4
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,22 +0,0 @@
-
-
-
- postgresql7.1
-
-
-
- select s.subscr_id,
- s.timeout,
- person__name(o.creation_user) as creator,
- to_char(s.lastbuild,'YYYY-MM-DD HH24:MI:SS') as lastbuild_ansi,
- s.last_ttb,
- s.channel_title,
- s.channel_link
- from rss_gen_subscrs s,
- acs_objects o
- where o.object_id = s.subscr_id $maybe_restrict_to_user
- order by s.last_ttb desc
-
-
-
-
Index: openacs-4/packages/rss-support/www/subscrs-include.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/rss-support/www/subscrs-include.tcl,v
diff -u -N -r1.7 -r1.8
--- openacs-4/packages/rss-support/www/subscrs-include.tcl 7 Aug 2017 23:48:29 -0000 1.7
+++ openacs-4/packages/rss-support/www/subscrs-include.tcl 15 Jun 2018 21:04:58 -0000 1.8
@@ -4,7 +4,20 @@
set maybe_restrict_to_user ""
}
-db_multirow -extend { lastbuild_pretty } subscrs get_subscrs {} {
+db_multirow -extend { lastbuild_pretty } subscrs get_subscrs [subst {
+ select s.subscr_id,
+ s.timeout,
+ o.creation_user as creator,
+ to_char(s.lastbuild,'YYYY-MM-DD HH24:MI:SS') as lastbuild_ansi,
+ s.last_ttb,
+ s.channel_title,
+ s.channel_link
+ from rss_gen_subscrs s,
+ acs_objects o
+ where o.object_id = s.subscr_id $maybe_restrict_to_user
+ order by s.last_ttb desc
+}] {
+ set creator [acs_user::get -user_id $creator -element name]
if {$lastbuild_ansi ne ""} {
set lastbuild_ansi [lc_time_system_to_conn $lastbuild_ansi]
set lastbuild_pretty [lc_time_fmt $lastbuild_ansi "%x %X"]