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"]