Index: openacs-4/packages/rss-support/tcl/rss-generation-service-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/rss-support/tcl/rss-generation-service-procs.xql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/rss-support/tcl/rss-generation-service-procs.xql	17 May 2003 11:22:12 -0000	1.2
+++ openacs-4/packages/rss-support/tcl/rss-generation-service-procs.xql	15 Nov 2017 11:08:17 -0000	1.3
@@ -2,6 +2,27 @@
 
 <queryset>
 
+  <fullquery name="rss_gen_report.update_timestamp">  
+    <querytext>
+        update rss_gen_subscrs
+        set lastbuild = CURRENT_TIMESTAMP,
+            last_ttb = :last_ttb $extra_sql
+            where subscr_id = :subscr_id
+    </querytext>
+  </fullquery>
+
+  <fullquery name="rss_gen_bind.get_unbound_impls">  
+    <querytext>
+        select impl_id
+        from acs_sc_impls i
+        where impl_contract_name = 'RssGenerationSubscriber'
+          and not exists (select 1
+                          from acs_sc_bindings b
+                          where b.impl_id = i.impl_id
+                            and b.contract_id = :contract_id)
+    </querytext>
+  </fullquery>  
+
   <fullquery name="rss_gen_report.subscr_info">      
     <querytext>
         select i.impl_name,
@@ -24,7 +45,6 @@
     </querytext>
   </fullquery>
 
-
   <fullquery name="rss_gen_report_file.subscr_context_and_impl">
     <querytext>
                 select s.summary_context_id,
@@ -36,5 +56,4 @@
     </querytext>
   </fullquery>
 
-
 </queryset>