Index: openacs-4/packages/photo-album/www/photo-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/photo-album/www/photo-add.tcl,v
diff -u -N -r1.7 -r1.8
--- openacs-4/packages/photo-album/www/photo-add.tcl	7 Oct 2007 22:37:03 -0000	1.7
+++ openacs-4/packages/photo-album/www/photo-add.tcl	6 Sep 2013 17:17:44 -0000	1.8
@@ -21,7 +21,7 @@
 }
 
 # check for read permission on folder
-ad_require_permission $album_id pa_create_photo
+permission::require_permission -object_id $album_id -privilege pa_create_photo
 
 set context_list [pa_context_bar_list -final "[_ photo-album._Upload]" $album_id]