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 -r1.17.2.2 -r1.17.2.3 --- openacs-4/packages/news/www/item-create.tcl 15 Mar 2022 15:58:45 -0000 1.17.2.2 +++ openacs-4/packages/news/www/item-create.tcl 27 Jan 2023 16:53:12 -0000 1.17.2.3 @@ -14,8 +14,8 @@ {publish_lead {}} {publish_body:allhtml {}} {publish_body.format {}} - {publish_date_ansi {now}} - {archive_date_ansi {}} + {publish_date_ansi:clock(%Y-%m-%d) {now}} + {archive_date_ansi:clock(%Y-%m-%d) {}} {permanent_p:boolean {}} } @@ -37,8 +37,6 @@ set title "[_ news.Create_News_Item]" set context [list $title] -set lc_format [lc_get formbuilder_date_format] - 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] @@ -70,15 +68,13 @@ if { $immediate_approve_p } { ad_form -extend -name "news" -form { - {publish_date:date,optional + {publish_date:h5date,optional {label "[_ news.Release_Date]"} - {value "[split $publish_date_ansi -]"} - {format {$lc_format}} + {value $publish_date_ansi} } - {archive_date:date,optional + {archive_date:h5date,optional {label "[_ news.Archive_Date]"} - {value "[split $archive_date_ansi -]"} - {format {$lc_format}} + {value $archive_date_ansi} } {permanent_p:text(checkbox),optional {label "[_ news.never]"}