Index: openacs-4/packages/photo-album/www/photos-add-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/photo-album/www/photos-add-2.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/photo-album/www/photos-add-2.tcl	21 Mar 2005 15:37:43 -0000	1.8
+++ openacs-4/packages/photo-album/www/photos-add-2.tcl	6 Sep 2013 17:17:44 -0000	1.9
@@ -31,7 +31,7 @@
 
 #check permission
 set user_id [ad_conn user_id]
-ad_require_permission $album_id "pa_create_photo"
+permission::require_permission -object_id $album_id -privilege "pa_create_photo"
 
 if { ![empty_string_p $upload_file] && 
      [ catch {set tmp_dir [pa_expand_archive $upload_file ${upload_file.tmpfile} pa-$album_id] } errMsg] } {