Index: openacs-4/packages/news/www/item.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news/www/item.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/news/www/item.tcl	23 Jun 2004 00:24:37 -0000	1.9
+++ openacs-4/packages/news/www/item.tcl	13 Jan 2005 13:58:27 -0000	1.10
@@ -25,9 +25,14 @@
 }
 
 
-ad_require_permission [ad_conn package_id] news_read
+set user_id [ad_conn untrusted_user_id]
 
+permission::require_permission \
+    -object_id $item_id \
+    -party_id  $user_id \
+    -privilege read
 
+
 # live view of a news item in its active revision
 set item_exist_p [db_0or1row one_item "
 select item_id,
@@ -76,6 +81,13 @@
         set comments ""
     }
 
+    if {[permission::permission_p -object_id $item_id -privilege write] } {
+        set edit_link "<a href=\"admin/revision-add?item_id=$item_id\">Revise</a>"
+    } else {
+        set edit_link ""
+    }
+
+
     set title $publish_title
     set context [list $title]
     set publish_title {}