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.1 -r1.1.2.2
--- openacs-4/packages/rss-support/tcl/rss-support-procs.tcl	23 Jan 2005 19:51:43 -0000	1.1.2.1
+++ openacs-4/packages/rss-support/tcl/rss-support-procs.tcl	23 Jan 2005 21:05:45 -0000	1.1.2.2
@@ -67,3 +67,64 @@
                 -var_list $var_list \
                 rss_gen_subscr new]
 }
+
+ad_proc -public rss_support::del_subscription {
+    -summary_context_id
+    -impl_name
+    -owner
+} {
+    
+    
+    
+    @author Dave Bauer (dave@thedesignexperience.org)
+    @creation-date 2005-01-23
+    
+    @param summary_context_id summary context id to delete
+ 
+    @param impl_name implemenation name to delete
+
+    @param owner owner package of implementation
+    @return 
+    
+    @error 
+} {
+    set impl_id [acs_sc::impl::get_id \
+                     -name $impl_name \
+                     -contract RssGenerationSubscriber \
+                     -owner $owner]
+    set subscr_id [db_string get_subscr_id ""]
+    set report_dir [rss_gen_report_dir -subscr_id $subscr_id]
+    # remove generated RSS reports for this subscription
+    file delete -force $report_dir
+    ns_log notice "
+DB --------------------------------------------------------------------------------
+DB DAVE debugging procedure rss_support::del_subscription
+DB --------------------------------------------------------------------------------
+DB impl_name = '${impl_name}'
+DB impl_id = '${impl_id}'
+DB subscr_id = '${subscr_id}'
+
+DB --------------------------------------------------------------------------------"
+    package_exec_plsql \
+        -var_list [list [list subscr_id $subscr_id]] \
+        rss_gen_subscr del
+}
+
+ad_proc -public rss_support::subscription_exists {
+    -summary_context_id
+    -impl_name
+} {
+    
+    Check if a subscription exists
+    
+    @author Dave Bauer (dave@thedesignexperience.org)
+    @creation-date 2005-01-23
+    
+    @param summary_context_id summary context id to check
+
+    @return 
+    
+    @error 
+} {
+    return [db_string subscription_exists "" -default 0]
+}