Index: openacs-4/packages/news/www/admin/process-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news/www/admin/process-2.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/news/www/admin/process-2.tcl	20 Apr 2001 20:51:14 -0000	1.1
+++ openacs-4/packages/news/www/admin/process-2.tcl	15 Oct 2001 13:41:03 -0000	1.2
@@ -29,17 +29,17 @@
     }
     
     "archive now" {
-	set when [db_string publish_now "select sysdate from dual"]
+	set when [db_string archive_now "select sysdate from dual"]
 	news_items_archive $n_items $when
     }
     
     "archive next week" {
-	set when [db_string publish_now "select next_day(sysdate,'Monday') from dual"]
+	set when [db_string archive_next_week "select next_day(sysdate,'Monday') from dual"]
 	news_items_archive $n_items $when
     }
 
     "archive next month" {
-	set when [db_string publish_now "select last_day(sysdate)+1 from dual"]
+	set when [db_string archive_next_month "select last_day(sysdate)+1 from dual"]
 	news_items_archive $n_items $when
     }