Index: openacs-4/packages/news/www/admin/revision-add.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/news/www/admin/revision-add.tcl,v diff -u -r1.14 -r1.15 --- openacs-4/packages/news/www/admin/revision-add.tcl 19 Jan 2018 14:24:20 -0000 1.14 +++ openacs-4/packages/news/www/admin/revision-add.tcl 3 Sep 2024 15:37:39 -0000 1.15 @@ -1,19 +1,19 @@ # /packages/news/www/admin/revision-add.tcl ad_page_contract { - + This page serves as UI to add a new revision of a news item By default, the fields of the active_revision are filled in. Currently only News Admin can do this, not the original submitter though. @author stefan@arsdigita.com @creation-date 2000-12-20 @cvs-id $Id$ - + } { - item_id:naturalnum,notnull - + item_id:object_id,notnull + } -properties { title:onevalue @@ -42,8 +42,6 @@ set archive_date [clock format [clock scan "$active_days days"] -format %Y-%m-%d] } -set lc_format [lc_get formbuilder_date_format] - set action "[_ news.Revision]" ns_log notice "NEWS REVISION" ad_form -name "news_revision" -export {item_id action} -html {enctype "multipart/form-data"} -action "../preview" -form { @@ -60,21 +58,15 @@ {publish_body:text(richtext),optional {label "[_ news.Body]"} {html {cols 60 rows 20}} - {options {editor ckeditor5 JSEditorClass ClassicEditor}} {value "[list $publish_body $publish_format]"} } - {text_file:file(file),optional - {label "[_ news.or_upload_text_file]"} - } - {publish_date:date,optional + {publish_date:h5date,optional {label "[_ news.Release_Date]"} - {value "[split $publish_date -]"} - {format {$lc_format}} + {value $publish_date} } - {archive_date:date,optional + {archive_date:h5date,optional {label "[_ news.Archive_Date]"} - {value "[split $archive_date -]"} - {format {$lc_format}} + {value $archive_date} } {permanent_p:text(checkbox),optional {label "[_ news.never]"}