Index: openacs-4/packages/rss-support/tcl/rss-generation-service-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/rss-support/tcl/rss-generation-service-procs-oracle.xql,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/rss-support/tcl/rss-generation-service-procs-oracle.xql 28 Aug 2003 09:41:58 -0000 1.3
+++ openacs-4/packages/rss-support/tcl/rss-generation-service-procs-oracle.xql 15 Nov 2017 11:08:17 -0000 1.4
@@ -18,34 +18,12 @@
-
-
- update rss_gen_subscrs
- set lastbuild = sysdate,
- last_ttb = :last_ttb $extra_sql
- where subscr_id = :subscr_id
-
-
-
select acs_sc_contract.get_id('RssGenerationSubscriber') from dual
-
-
-
- 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)
-
-
-
begin
Index: openacs-4/packages/rss-support/tcl/rss-generation-service-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/rss-support/tcl/rss-generation-service-procs-postgresql.xql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/rss-support/tcl/rss-generation-service-procs-postgresql.xql 17 May 2003 11:22:12 -0000 1.2
+++ openacs-4/packages/rss-support/tcl/rss-generation-service-procs-postgresql.xql 15 Nov 2017 11:08:17 -0000 1.3
@@ -21,39 +21,16 @@
-
-
- update rss_gen_subscrs
- set lastbuild = now(),
- last_ttb = :last_ttb $extra_sql
- where subscr_id = :subscr_id
-
-
-
-
select acs_sc_contract__get_id('RssGenerationSubscriber')
-
-
- 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)
-
-
-
select acs_sc_binding__new($contract_id,$impl_id)
-
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 @@
+
+
+ update rss_gen_subscrs
+ set lastbuild = CURRENT_TIMESTAMP,
+ last_ttb = :last_ttb $extra_sql
+ where subscr_id = :subscr_id
+
+
+
+
+
+ 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)
+
+
+
select i.impl_name,
@@ -24,7 +45,6 @@
-
select s.summary_context_id,
@@ -36,5 +56,4 @@
-