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.8.2.1 -r1.8.2.2
--- openacs-4/packages/rss-support/www/subscrs-include.tcl	19 Dec 2019 16:07:49 -0000	1.8.2.1
+++ openacs-4/packages/rss-support/www/subscrs-include.tcl	19 Dec 2019 16:12:40 -0000	1.8.2.2
@@ -1,10 +1,10 @@
-if {[info exists user_id]} {
-    set maybe_restrict_to_user "and creation_user = :user_id"
-} else {
-    set maybe_restrict_to_user ""
+ad_include_contract {
+    Displays subscriptions for every user or specified user.
+} {
+    {user_id:naturalnum ""}
 }
 
-db_multirow -extend { lastbuild_pretty } subscrs get_subscrs [subst {
+db_multirow -extend { lastbuild_pretty } subscrs get_subscrs {
         select s.subscr_id,
            s.timeout,
            o.creation_user as creator,
@@ -14,9 +14,10 @@
            s.channel_link
     from rss_gen_subscrs s,
          acs_objects o
-    where o.object_id = s.subscr_id $maybe_restrict_to_user
+    where o.object_id = s.subscr_id
+      and (:user_id is null or creation_user = :user_id)
     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]