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 -r1.8 -r1.9
--- openacs-4/packages/rss-support/www/subscrs-include.tcl	15 Jun 2018 21:04:58 -0000	1.8
+++ openacs-4/packages/rss-support/www/subscrs-include.tcl	3 Sep 2024 15:37:54 -0000	1.9
@@ -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,14 +14,15 @@
            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    
-}] {
+    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 ""} { 
+    if {$lastbuild_ansi ne ""} {
         set lastbuild_ansi [lc_time_system_to_conn $lastbuild_ansi]
         set lastbuild_pretty [lc_time_fmt $lastbuild_ansi "%x %X"]
-    } else { 
+    } else {
         set lastbuild_pretty "never built"
     }