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.4 -r1.5
--- openacs-4/packages/news/www/admin/process-2.tcl	29 Oct 2002 08:01:15 -0000	1.4
+++ openacs-4/packages/news/www/admin/process-2.tcl	7 Aug 2017 23:48:12 -0000	1.5
@@ -29,17 +29,17 @@
     }
     
     "archive now" {
-	set when [db_string archive_now "select sysdate from dual"]
+	set when [db_string archive_now {}]
 	news_items_archive $n_items $when
     }
     
     "archive next week" {
-	set when [db_string archive_next_week "select next_day(sysdate,'Monday') from dual"]
+	set when [db_string archive_next_week {}]
 	news_items_archive $n_items $when
     }
 
     "archive next month" {
-	set when [db_string archive_next_month "select last_day(sysdate)+1 from dual"]
+	set when [db_string archive_next_month {}]
 	news_items_archive $n_items $when
     }
 
@@ -138,3 +138,9 @@
 
 
 
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: