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.7 -r1.8
--- openacs-4/packages/news/www/admin/approve.tcl	30 Sep 2013 10:51:35 -0000	1.7
+++ openacs-4/packages/news/www/admin/approve.tcl	7 Aug 2017 23:48:12 -0000	1.8
@@ -24,12 +24,13 @@
 }
 
 
-set title "[_ news.Approve_items]"
+set title [_ news.Approve_items]
 set context [list $title]
 
 
 # pre-set date widgets with defaults
-set proj_archival_date [db_string week "select sysdate + [parameter::get -parameter ActiveDays -default 14] from dual"]
+set active_days [parameter::get -parameter ActiveDays -default 14]
+set proj_archival_date [db_string week {}]
 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]
 
@@ -69,3 +70,9 @@
 
 
 
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: