Fisheye: Tag 1.2 refers to a dead (removed) revision in file `openacs-4/packages/news/www/admin/process-2-oracle.xql'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.3 refers to a dead (removed) revision in file `openacs-4/packages/news/www/admin/process-2-postgresql.xql'.
Fisheye: No comparison available.  Pass `N' to diff?
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.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
--- /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>