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.6 -r1.1.2.7
--- openacs-4/packages/rss-support/tcl/rss-support-procs.tcl 4 Feb 2005 21:13:06 -0000 1.1.2.6
+++ openacs-4/packages/rss-support/tcl/rss-support-procs.tcl 4 Feb 2005 21:17:55 -0000 1.1.2.7
@@ -91,8 +91,8 @@
} {
set subscr_id [rss_support::get_subscr_id \
-summary_context_id $summary_context_id \
- -impl_name $impl_name]
-
+ -impl_name $impl_name \
+ -owner $owner]
set report_dir [rss_gen_report_dir -subscr_id $subscr_id]
# remove generated RSS reports for this subscription
file delete -force $report_dir
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.3 -r1.1.2.4
--- openacs-4/packages/rss-support/tcl/rss-support-procs.xql 4 Feb 2005 21:00:08 -0000 1.1.2.3
+++ openacs-4/packages/rss-support/tcl/rss-support-procs.xql 4 Feb 2005 21:17:55 -0000 1.1.2.4
@@ -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 impl_id
@@ -37,4 +47,4 @@
-
\ No newline at end of file
+