Index: openacs-4/packages/bug-tracker/www/bug-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bug-tracker/www/bug-add.tcl,v
diff -u -r1.17 -r1.18
--- openacs-4/packages/bug-tracker/www/bug-add.tcl	14 Mar 2011 17:49:35 -0000	1.17
+++ openacs-4/packages/bug-tracker/www/bug-add.tcl	18 Sep 2013 14:17:02 -0000	1.18
@@ -12,7 +12,7 @@
     set return_url "."
 }
 
-ad_require_permission [ad_conn package_id] create
+permission::require_permission -object_id [ad_conn package_id] -privilege create
 
 # User needs to be logged in here
 auth::require_login
Index: openacs-4/packages/bug-tracker/www/patch-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bug-tracker/www/patch-add.tcl,v
diff -u -r1.13 -r1.14
--- openacs-4/packages/bug-tracker/www/patch-add.tcl	1 Mar 2005 00:01:26 -0000	1.13
+++ openacs-4/packages/bug-tracker/www/patch-add.tcl	18 Sep 2013 14:17:03 -0000	1.14
@@ -13,7 +13,7 @@
     {return_url ""}
 }
 
-ad_require_permission [ad_conn package_id] create
+permission::require_permission -object_id [ad_conn package_id] -privilege create
 
 if { [empty_string_p $return_url] } {
     if { [exists_and_not_null bug_number] } {
Index: openacs-4/packages/bug-tracker/www/patch.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bug-tracker/www/patch.tcl,v
diff -u -r1.15 -r1.16
--- openacs-4/packages/bug-tracker/www/patch.tcl	18 Sep 2013 11:55:42 -0000	1.15
+++ openacs-4/packages/bug-tracker/www/patch.tcl	18 Sep 2013 14:17:03 -0000	1.16
@@ -18,7 +18,7 @@
 }
 
 # Assert read permission (should this check be in the request processor?)
-ad_require_permission [ad_conn package_id] read
+permission::require_permission -object_id [ad_conn package_id] -object_id read
 
 # Initialize variables related to the request that we'll need
 set package_id [ad_conn package_id]
@@ -86,13 +86,13 @@
         set edit_fields {component_id summary generated_from_version apply_to_version}
     }
     accept {
-        ad_require_permission $package_id write
+        permission::require_permission -object_id $package_id -privilege write
 
         # The user should indicate which version the patch is applied to
         set edit_fields { applied_to_version }
     }
     refuse {
-        ad_require_permission $package_id write
+        permission::require_permission -object_id $package_id -privilege write
 
         set edit_fields {}
     }
Index: openacs-4/packages/bug-tracker/www/prefs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bug-tracker/www/prefs.tcl,v
diff -u -r1.11 -r1.12
--- openacs-4/packages/bug-tracker/www/prefs.tcl	1 Mar 2005 00:01:26 -0000	1.11
+++ openacs-4/packages/bug-tracker/www/prefs.tcl	18 Sep 2013 14:17:03 -0000	1.12
@@ -12,7 +12,7 @@
 # User needs to be logged in here
 auth::require_login
 
-ad_require_permission [ad_conn package_id] read
+permission::require_permission -object_id [ad_conn package_id] -privilege read
 
 # Set some common bug-tracker variables
 set project_name [bug_tracker::conn project_name]