Index: openacs-4/packages/news/www/item-create-oracle.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/news/www/Attic/item-create-oracle.xql,v diff -u -N --- openacs-4/packages/news/www/item-create-oracle.xql 7 Sep 2013 09:07:45 -0000 1.3 +++ /dev/null 1 Jan 1970 00:00:00 -0000 @@ -1,14 +0,0 @@ - - - - oracle8.1.6 - - - - select to_char(sysdate + [parameter::get -parameter ActiveDays -default 14], 'YYYY-MM-DD') as date_proj, - to_char(sysdate, 'YYYY-MM-DD') as date_today - from dual - - - - Index: openacs-4/packages/news/www/item-create-postgresql.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/news/www/Attic/item-create-postgresql.xql,v diff -u -N --- openacs-4/packages/news/www/item-create-postgresql.xql 7 Sep 2013 09:07:45 -0000 1.4 +++ /dev/null 1 Jan 1970 00:00:00 -0000 @@ -1,14 +0,0 @@ - - - - postgresql7.1 - - - - select - to_char(current_timestamp + interval '[parameter::get -parameter ActiveDays -default 14] days', 'YYYY-MM-DD') as date_proj, - to_char(current_timestamp, 'YYYY-MM-DD') as date_today - - - - Index: openacs-4/packages/news/www/item-create.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/news/www/item-create.tcl,v diff -u -N -r1.15 -r1.16 --- openacs-4/packages/news/www/item-create.tcl 7 Aug 2017 23:48:12 -0000 1.15 +++ openacs-4/packages/news/www/item-create.tcl 15 Nov 2017 13:26:59 -0000 1.16 @@ -39,7 +39,9 @@ set lc_format [lc_get formbuilder_date_format] -db_1row get_dates {} +set date_today [clock format [clock seconds] -format %Y-%m-%d] +set active_days [parameter::get -parameter ActiveDays -default 14] +set date_proj [clock format [clock scan "$active_days days"] -format %Y-%m-%d] if { $publish_date_ansi eq "" || $publish_date_ansi eq "now"} { set publish_date_ansi $date_today