Index: openacs-4/packages/news-aggregator/tcl/aggregator-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news-aggregator/tcl/aggregator-procs-postgresql.xql,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/news-aggregator/tcl/aggregator-procs-postgresql.xql	18 Jul 2018 10:31:09 -0000	1.3
+++ openacs-4/packages/news-aggregator/tcl/aggregator-procs-postgresql.xql	18 Jul 2018 16:23:16 -0000	1.4
@@ -79,47 +79,6 @@
 	</querytext>
     </fullquery>
 
-    <fullquery name="news_aggregator::aggregator::purge.count_purges">
-        <querytext>
-		select count(purge_id)
-		from na_purges
-		where aggregator_id = :aggregator_id
-	</querytext>
-    </fullquery>
-
-    <fullquery name="news_aggregator::aggregator::purge.get_range">
-    	<querytext>
-		select max(top) as max_top, min(bottom) as min_bottom,
-			nextval('na_purges_seq') as purge_id
-		from na_purges
-		where aggregator_id = :aggregator_id
-	</querytext>
-    </fullquery>
-
-    <fullquery name="news_aggregator::aggregator::purge.aggregator_purge">
-    	<querytext>
-		update na_aggregators
-		set aggregator_bottom = :aggregator_bottom
-		where aggregator_id = :aggregator_id
-	</querytext>
-    </fullquery>
-
-    <fullquery name="news_aggregator::aggregator::purge.purge_all_purges">
-        <querytext>
-		delete from na_purges
-		where aggregator_id = :aggregator_id
-	</querytext>
-    </fullquery>
-
-    <fullquery name="news_aggregator::aggregator::purge.insert_purge">
-        <querytext>
-		insert into na_purges
-			(purge_id, top, bottom, aggregator_id, purge_date)
-		values
-			(:purge_id, :top, :bottom, :aggregator_id, now())
-	</querytext>
-    </fullquery>
-
     <fullquery name="news_aggregator::aggregator::set_user_default.create_pref">
     	<querytext>
 		insert into na_user_preferences