Index: openacs-4/packages/rss-support/tcl/rss-support-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/rss-support/tcl/rss-support-procs.tcl,v
diff -u -r1.1.2.4 -r1.1.2.5
--- openacs-4/packages/rss-support/tcl/rss-support-procs.tcl 4 Feb 2005 18:25:10 -0000 1.1.2.4
+++ openacs-4/packages/rss-support/tcl/rss-support-procs.tcl 4 Feb 2005 21:00:08 -0000 1.1.2.5
@@ -143,5 +143,6 @@
-name $impl_name \
-contract RssGenerationSubscriber \
-owner $owner]
+ set impl_id [db_string get_impl_id ""]
return [db_string get_subscr_id ""]
}
Index: openacs-4/packages/rss-support/tcl/rss-support-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/rss-support/tcl/rss-support-procs.xql,v
diff -u -r1.1.2.2 -r1.1.2.3
--- openacs-4/packages/rss-support/tcl/rss-support-procs.xql 4 Feb 2005 18:25:10 -0000 1.1.2.2
+++ openacs-4/packages/rss-support/tcl/rss-support-procs.xql 4 Feb 2005 21:00:08 -0000 1.1.2.3
@@ -18,6 +18,16 @@
+
+
+ select impl_id
+ from acs_sc_impls
+ where impl_name=:impl_name
+ and impl_contract_name='RssGenerationSubscriber'
+ and impl_owner_name=:owner
+
+
+
select subscr_id