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