Index: openacs-4/packages/news-aggregator/tcl/news-aggregator-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news-aggregator/tcl/news-aggregator-procs.tcl,v
diff -u -r1.9.2.3 -r1.9.2.4
--- openacs-4/packages/news-aggregator/tcl/news-aggregator-procs.tcl	2 Jan 2006 20:41:33 -0000	1.9.2.3
+++ openacs-4/packages/news-aggregator/tcl/news-aggregator-procs.tcl	14 Jan 2006 23:27:59 -0000	1.9.2.4
@@ -67,3 +67,25 @@
     return $to_return
 }
 
+ad_proc -private news_aggregator::items_cleanup {} {
+    Clean out old items
+} {
+    db_dml vacuum {}
+}
+
+ad_proc -private news_aggregator::chunk_updated { updated_day } {
+    Clean out old items
+} {
+    set days [expr $updated_day / 1440]
+    switch $days {
+	0 {
+	    return "Today"
+	}
+	1 {
+	    return "Yesterday"
+	}
+	default {
+	    return "$days Days Ago"
+	}
+    }
+}
\ No newline at end of file