Index: openacs-4/packages/news/www/admin/process-2-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news/www/admin/Attic/process-2-oracle.xql,v
diff -u -N
--- openacs-4/packages/news/www/admin/process-2-oracle.xql	15 Oct 2001 13:41:03 -0000	1.1
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,27 +0,0 @@
-<?xml version="1.0"?>
-
-<queryset>
-   <rdbms><type>oracle</type><version>8.1.6</version></rdbms>
-
-<fullquery name="archive_now">      
-      <querytext>
-      select sysdate from dual
-      </querytext>
-</fullquery>
-
- 
-<fullquery name="archive_next_week">      
-      <querytext>
-      select next_day(sysdate,'Monday') from dual
-      </querytext>
-</fullquery>
-
- 
-<fullquery name="archive_next_month">      
-      <querytext>
-      select last_day(sysdate)+1 from dual
-      </querytext>
-</fullquery>
-
- 
-</queryset>
Index: openacs-4/packages/news/www/admin/process-2-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news/www/admin/Attic/process-2-postgresql.xql,v
diff -u -N
--- openacs-4/packages/news/www/admin/process-2-postgresql.xql	24 Feb 2005 18:03:05 -0000	1.2
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,27 +0,0 @@
-<?xml version="1.0"?>
-
-<queryset>
-   <rdbms><type>postgresql</type><version>7.1</version></rdbms>
-
-<fullquery name="archive_now">      
-      <querytext>
-      select current_timestamp 
-      </querytext>
-</fullquery>
-
- 
-<fullquery name="archive_next_week">      
-      <querytext>
-      select next_day(current_timestamp,'Monday')::date
-      </querytext>
-</fullquery>
-
- 
-<fullquery name="archive_next_month">      
-      <querytext>
-      select (last_day(current_timestamp)+'1 day')::date
-      </querytext>
-</fullquery>
-
- 
-</queryset>
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 -N -r1.6 -r1.7
--- openacs-4/packages/news/www/admin/process-2.tcl	1 Oct 2017 12:09:46 -0000	1.6
+++ openacs-4/packages/news/www/admin/process-2.tcl	15 Nov 2017 14:25:36 -0000	1.7
@@ -29,7 +29,7 @@
     }
     
     "archive now" {
-	set when [db_string archive_now {}]
+	set when [clock format [clock seconds] -format %Y-%m-%d]
 	news_items_archive $n_items $when
     }
     
@@ -51,94 +51,6 @@
 
 ad_returnredirect ""
 
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
 # Local variables:
 #    mode: tcl
 #    tcl-indent-level: 4
Index: openacs-4/packages/news/www/admin/process-2.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news/www/admin/process-2.xql,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/news/www/admin/process-2.xql	15 Nov 2017 14:25:36 -0000	1.1
@@ -0,0 +1,17 @@
+<?xml version="1.0"?>
+
+<queryset>
+
+<fullquery name="archive_next_week">
+      <querytext>
+      select DATE(next_day(current_timestamp,'Monday'))
+      </querytext>
+</fullquery>
+
+<fullquery name="archive_next_month">
+      <querytext>
+      select DATE(last_day(current_timestamp)) + 1
+      </querytext>
+</fullquery>
+
+</queryset>