Index: openacs-4/packages/news/www/item-create.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news/www/item-create.tcl,v
diff -u -r1.11 -r1.12
--- openacs-4/packages/news/www/item-create.tcl	30 Dec 2009 23:13:36 -0000	1.11
+++ openacs-4/packages/news/www/item-create.tcl	6 Sep 2013 16:46:28 -0000	1.12
@@ -21,12 +21,12 @@
 
 # Authorization by news_create
 set package_id [ad_conn package_id]
-ad_require_permission $package_id news_create
+permission::require_permission -object_id $package_id -privilege news_create
 
 
 # Furthermore, with news_admin privilege, items are approved immediately
 # or if open approval policy 
-if { [ad_permission_p $package_id news_admin] || [string equal "open" [ad_parameter ApprovalPolicy "news" "open"]] } {
+if { [permission::permission_p -object_id $package_id -privilege news_admin] || [string equal "open" [ad_parameter ApprovalPolicy "news" "open"]] } {
     set immediate_approve_p 1
 } else {
     set immediate_approve_p 0