Fisheye: Tag 1.7 refers to a dead (removed) revision in file `openacs-4/packages/news/www/admin/revision-add-oracle.xql'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.7 refers to a dead (removed) revision in file `openacs-4/packages/news/www/admin/revision-add-postgresql.xql'.
Fisheye: No comparison available.  Pass `N' to diff?
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]"
Index: openacs-4/packages/news/www/admin/revision-add.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news/www/admin/revision-add.xql,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/news/www/admin/revision-add.xql	22 Dec 2009 22:24:02 -0000	1.4
+++ openacs-4/packages/news/www/admin/revision-add.xql	15 Nov 2017 14:12:45 -0000	1.5
@@ -1,6 +1,27 @@
 <?xml version="1.0"?>
 <queryset>
 
+  <fullquery name="item">      
+      <querytext>      
+select
+    item_id, 
+    package_id,   
+    revision_id,
+    publish_title,
+    publish_lead,
+    publish_body,
+    publish_format,
+    to_char(publish_date, 'YYYY-MM-DD') as publish_date,
+    publish_body,
+    to_char(archive_date, 'YYYY-MM-DD') as archive_date
+    status
+from   
+    news_item_full_active    
+where  
+    item_id = :item_id
+      </querytext>
+  </fullquery>
+  
   <fullquery name="news_item_info">      
       <querytext>