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 -N -r1.7.4.1 -r1.7.4.2 --- openacs-4/packages/news/www/admin/approve.tcl 12 Sep 2015 11:06:43 -0000 1.7.4.1 +++ openacs-4/packages/news/www/admin/approve.tcl 2 Jan 2016 20:34:50 -0000 1.7.4.2 @@ -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]