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.12 -r1.13
--- openacs-4/packages/news/www/admin/revision-add.tcl	7 Aug 2017 23:48:12 -0000	1.12
+++ openacs-4/packages/news/www/admin/revision-add.tcl	15 Nov 2017 14:12:45 -0000	1.13
@@ -37,6 +37,11 @@
 # get active revision of news item
 db_1row item {}
 
+if {$archive_date eq ""} {
+    set active_days [parameter::get -parameter ActiveDays -default 14]
+    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]"