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 -N -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