Index: openacs-4/packages/news/www/item.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news/www/item.tcl,v
diff -u -r1.8 -r1.8.4.1
--- openacs-4/packages/news/www/item.tcl	11 Sep 2003 07:46:47 -0000	1.8
+++ openacs-4/packages/news/www/item.tcl	21 Dec 2004 19:22:00 -0000	1.8.4.1
@@ -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,
@@ -69,6 +74,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 {}