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.11 -r1.12
--- openacs-4/packages/news/www/admin/approve-2.tcl	12 Feb 2019 17:28:59 -0000	1.11
+++ openacs-4/packages/news/www/admin/approve-2.tcl	3 Sep 2024 15:37:39 -0000	1.12
@@ -11,27 +11,23 @@
     @cvs-id $Id$
 
 } {
-    revision_id:naturalnum,notnull
+    revision_id:naturalnum,notnull,multiple
     {return_url:localurl ""}
-    {permanent_p:boolean "f"}
-    {publish_date:array,date ""}
-    {archive_date:array,date ""}
+    {permanent_p:boolean,notnull "f"}
+    {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