Index: openacs-4/packages/news-aggregator/tcl/subscription-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news-aggregator/tcl/subscription-procs.tcl,v
diff -u -r1.1.1.1 -r1.1.1.1.2.1
--- openacs-4/packages/news-aggregator/tcl/subscription-procs.tcl	20 Mar 2004 11:04:39 -0000	1.1.1.1
+++ openacs-4/packages/news-aggregator/tcl/subscription-procs.tcl	2 Jan 2006 20:40:16 -0000	1.1.1.1.2.1
@@ -23,6 +23,9 @@
     {-aggregator_id:required}
 } {
     db_dml delete_subscription {}
+    if { [db_string source_use_count {}] eq "0" } {
+	news_aggregator::source::delete -source_id $source_id
+    }
 }
 
 ad_proc -public news_aggregator::subscription::move {
Index: openacs-4/packages/news-aggregator/tcl/subscription-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news-aggregator/tcl/Attic/subscription-procs.xql,v
diff -u -r1.2 -r1.2.2.1
--- openacs-4/packages/news-aggregator/tcl/subscription-procs.xql	20 Mar 2004 14:06:45 -0000	1.2
+++ openacs-4/packages/news-aggregator/tcl/subscription-procs.xql	2 Jan 2006 20:40:16 -0000	1.2.2.1
@@ -20,6 +20,13 @@
           </querytext>
     </fullquery>
 
+    <fullquery name="news_aggregator::subscription::delete.source_use_count">
+          <querytext>
+           select count(*) from na_subscriptions
+            where source_id = :source_id
+          </querytext>
+    </fullquery>
+
     <fullquery name="news_aggregator::subscription::move.move_subscription">
           <querytext>
             update na_subscriptions