Index: openacs-4/packages/news/www/admin/approve-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news/www/admin/approve-oracle.xql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/news/www/admin/approve-oracle.xql	7 Sep 2013 09:07:45 -0000	1.2
+++ openacs-4/packages/news/www/admin/approve-oracle.xql	15 Nov 2017 13:48:39 -0000	1.3
@@ -3,13 +3,6 @@
 <queryset>
    <rdbms><type>oracle</type><version>8.1.6</version></rdbms>
 
-<fullquery name="week">      
-      <querytext>
-      select sysdate + [parameter::get -parameter ActiveDays -default 14] from dual
-      </querytext>
-</fullquery>
-
-
 <partialquery name="revision_select">      
       <querytext>
 
Index: openacs-4/packages/news/www/admin/approve-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news/www/admin/approve-postgresql.xql,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/news/www/admin/approve-postgresql.xql	7 Sep 2013 09:07:45 -0000	1.4
+++ openacs-4/packages/news/www/admin/approve-postgresql.xql	15 Nov 2017 13:48:39 -0000	1.5
@@ -3,13 +3,6 @@
 <queryset>
    <rdbms><type>postgresql</type><version>7.1</version></rdbms>
 
-<fullquery name="week">      
-      <querytext>
-      select to_char(current_timestamp + interval '[parameter::get -parameter ActiveDays -default 14] days', 'YYYY-MM-DD')
-      </querytext>
-</fullquery>
-
-
 <partialquery name="revision_select">      
       <querytext>
 
Index: openacs-4/packages/news/www/admin/approve.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news/www/admin/approve.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/news/www/admin/approve.tcl	7 Aug 2017 23:48:12 -0000	1.8
+++ openacs-4/packages/news/www/admin/approve.tcl	15 Nov 2017 13:48:39 -0000	1.9
@@ -30,7 +30,7 @@
 
 # pre-set date widgets with defaults
 set active_days [parameter::get -parameter ActiveDays -default 14]
-set proj_archival_date [db_string week {}]
+set proj_archival_date [clock format [clock scan "$active_days days"] -format %Y-%m-%d]
 set publish_date_select [dt_widget_datetime -default now publish_date days]
 set archive_date_select [dt_widget_datetime -default $proj_archival_date archive_date days]
 
@@ -63,14 +63,7 @@
 
 set hidden_vars [export_vars -form {return_url}]
 
-ad_return_template
 
-
-
-
-
-
-
 # Local variables:
 #    mode: tcl
 #    tcl-indent-level: 4