Index: openacs-4/packages/news/www/item.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news/www/item.tcl,v
diff -u -r1.23.2.1 -r1.23.2.2
--- openacs-4/packages/news/www/item.tcl	18 Oct 2021 07:52:25 -0000	1.23.2.1
+++ openacs-4/packages/news/www/item.tcl	12 Jun 2023 13:54:39 -0000	1.23.2.2
@@ -32,12 +32,33 @@
     -party_id  $user_id \
     -privilege read
 
+#
+# We do not let "regular users" see archived news.
+#
+set can_write_news_item_p [permission::permission_p -object_id $item_id -privilege write]
 
 # live view of a news item in its active revision
-set item_exist_p [db_0or1row one_item {}]
+set item_exist_p [db_0or1row one_item {
+    select item_id,
+           live_revision,
+           publish_title,
+           publish_body,
+           publish_format,
+           publish_date,
+           creation_user,
+           item_creator
+      from news_items_live_or_submitted
+     where item_id = :item_id
+       and (:can_write_news_item_p = 't'
+            or archive_date is null)
+}]
 
 if { $item_exist_p } {
 
+    set creator_link [acs_community_member_link \
+                          -user_id $creation_user \
+                          -label $item_creator]
+
     # Footer actions
     set footer_links [list]
 
@@ -57,7 +78,7 @@
         set comments ""
     }
 
-    if {[permission::permission_p -object_id $item_id -privilege write] } {
+    if { $can_write_news_item_p } {
         lappend footer_links "<a href=\"admin/revision-add?item_id=$item_id\" class=\"button\">[_ news.Revise]</a>"
     }
 
Fisheye: Tag 1.3.8.1 refers to a dead (removed) revision in file `openacs-4/packages/news/www/item.xql'.
Fisheye: No comparison available.  Pass `N' to diff?