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