Index: openacs-4/packages/photo-album/www/folder-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/photo-album/www/folder-delete.tcl,v
diff -u -N -r1.5 -r1.6
--- openacs-4/packages/photo-album/www/folder-delete.tcl	18 Nov 2003 22:59:03 -0000	1.5
+++ openacs-4/packages/photo-album/www/folder-delete.tcl	6 Sep 2013 17:17:44 -0000	1.6
@@ -39,8 +39,8 @@
 # to delete a folder must have delete permission on the folder
 # and write on parent folder
 set parent_folder_id [db_string get_parent "select parent_id from cr_items where item_id = :folder_id"]
-ad_require_permission $folder_id delete
-ad_require_permission $parent_folder_id write
+permission::require_permission -object_id $folder_id -privilege delete
+permission::require_permission -object_id $parent_folder_id -privilege write
 
 if { [string equal $confirmed_p "t"]  } {
     # they have confirmed that they want to delete the folder