Index: openacs-4/packages/bug-tracker/www/unmap-patch-from-bug.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bug-tracker/www/unmap-patch-from-bug.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/bug-tracker/www/unmap-patch-from-bug.tcl	29 Mar 2004 15:07:34 -0000	1.3
+++ openacs-4/packages/bug-tracker/www/unmap-patch-from-bug.tcl	19 Sep 2013 15:37:33 -0000	1.4
@@ -12,7 +12,7 @@
 set package_id [ad_conn package_id]
 set user_id [ad_conn user_id]
 
-set write_p [ad_permission_p $package_id write]
+set write_p [permission::permission_p -object_id $package_id -privilege write]
 set user_is_submitter_p [expr $user_id == [bug_tracker::get_patch_submitter -patch_number $patch_number]]
 
 if { ![expr $user_is_submitter_p || $write_p] } {