Index: openacs-4/packages/news/www/admin/approve-2-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news/www/admin/approve-2-oracle.xql,v
diff -u -r1.1 -r1.1.30.1
--- openacs-4/packages/news/www/admin/approve-2-oracle.xql	15 Oct 2001 13:41:03 -0000	1.1
+++ openacs-4/packages/news/www/admin/approve-2-oracle.xql	23 Mar 2023 13:38:40 -0000	1.1.30.1
@@ -10,8 +10,8 @@
         news.set_approve(
 	    approve_p       => 't',
 	    revision_id     => :id,
-	    publish_date    => :publish_date_ansi,
-            archive_date    => :archive_date_ansi,
+	    publish_date    => :publish_date,
+            archive_date    => :archive_date,
             approval_user   => :approval_user,
             approval_date   => :approval_date,
             approval_ip     => :approval_ip,
Index: openacs-4/packages/news/www/admin/approve-2-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news/www/admin/approve-2-postgresql.xql,v
diff -u -r1.1 -r1.1.30.1
--- openacs-4/packages/news/www/admin/approve-2-postgresql.xql	15 Oct 2001 13:41:03 -0000	1.1
+++ openacs-4/packages/news/www/admin/approve-2-postgresql.xql	23 Mar 2023 13:38:40 -0000	1.1.30.1
@@ -9,8 +9,8 @@
         select news__set_approve(
             :id,                -- p_revision_id
             't',                -- p_approve_p
-	    :publish_date_ansi, -- p_publish_date
-	    :archive_date_ansi, -- p_archive_date
+	    :publish_date,      -- p_publish_date
+	    :archive_date,      -- p_archive_date
 	    :approval_user,     -- p_approval_user
 	    :approval_date,     -- p_approval_date
 	    :approval_ip,       -- p_approval_ip
Index: openacs-4/packages/news/www/admin/approve-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news/www/admin/approve-2.tcl,v
diff -u -r1.9.2.2 -r1.9.2.3
--- openacs-4/packages/news/www/admin/approve-2.tcl	27 Jan 2023 17:11:53 -0000	1.9.2.2
+++ openacs-4/packages/news/www/admin/approve-2.tcl	23 Mar 2023 13:38:40 -0000	1.9.2.3
@@ -14,24 +14,20 @@
     revision_id:naturalnum,notnull,multiple
     {return_url:localurl ""}
     {permanent_p:boolean "f"}
-    {publish_date:array,date ""}
-    {archive_date:array,date ""}
+    {publish_date:clock(%Y-%m-%d) ""}
+    {archive_date:clock(%Y-%m-%d) ""}
 }
 
 
 # read dates and prepare in ANSI form
 
-set publish_date_ansi $publish_date(date)
+if {$permanent_p} {
 
-if {$permanent_p == "t"} {
+    set archive_date ""
 
-    set archive_date_ansi ""
-
 } else {
 
-    set archive_date_ansi $archive_date(date)
-
-    if { [dt_interval_check $archive_date_ansi $publish_date_ansi] >= 0 } {
+    if { [dt_interval_check $archive_date $publish_date] >= 0 } {
         ad_return_error "[_ news.Scheduling_Error]" \
             "[_ news.lt_The_archive_date_must]"
         ad_script_abort
Index: openacs-4/packages/news/www/admin/approve.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news/www/admin/approve.adp,v
diff -u -r1.13.2.1 -r1.13.2.2
--- openacs-4/packages/news/www/admin/approve.adp	27 Jan 2023 17:11:53 -0000	1.13.2.1
+++ openacs-4/packages/news/www/admin/approve.adp	23 Mar 2023 13:38:40 -0000	1.13.2.2
@@ -32,10 +32,10 @@
 <input type="hidden" name="revision_id" value="@items.revision_id@">
 </multiple>
 <p class="formLabel"><label for="publish_date">#news.Release_Date#</label></p>
-<p class="formWidget">@publish_date_select;noquote@</p>
+<p class="formWidget"><input name="publish_date" type="date" value="@publish_date@"></p>
 
 <p class="formLabel"><label for="archive_date">#news.Archive_Date#</p>
-<p class="formWidget">@archive_date_select;noquote@<br>
+<p class="formWidget"><input name="archive_date" type="date" value="@archive_date@"><br>
 <input type="checkbox" name="permanent_p" value="t" id="never"> <strong><label for="never">#news.never#</label></strong> #news.show_it_permanently#</p>
 
 
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 -r1.10 -r1.10.2.1
--- openacs-4/packages/news/www/admin/approve.tcl	2 Feb 2018 00:17:02 -0000	1.10
+++ openacs-4/packages/news/www/admin/approve.tcl	23 Mar 2023 13:38:40 -0000	1.10.2.1
@@ -30,9 +30,8 @@
 
 # pre-set date widgets with defaults
 set active_days [parameter::get -parameter ActiveDays -default 14]
-set proj_archival_date [clock format [clock scan "$active_days days"] -format %Y-%m-%d]
-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]
+set publish_date [dt_sysdate]
+set archive_date [clock format [clock scan "$active_days days"] -format %Y-%m-%d]
 
 # produce bind_id_list     
 for {set i 0} {$i < [llength $n_items]} {incr i} {