Index: openacs-4/packages/photo-album/www/base-photo.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/photo-album/www/base-photo.tcl,v
diff -u -N -r1.5 -r1.6
--- openacs-4/packages/photo-album/www/base-photo.tcl	8 Aug 2006 21:27:09 -0000	1.5
+++ openacs-4/packages/photo-album/www/base-photo.tcl	6 Sep 2013 17:17:43 -0000	1.6
@@ -27,12 +27,12 @@
     width:onevalue
 }
 
-if {![string equal [ad_parameter AllowBasePhotoAccessP] "t"]} {
+if {![string equal [parameter::get -parameter AllowBasePhotoAccessP] "t"]} {
     ad_return_forbidden "[_ photo-album._No]"
     ad_script_abort
 }
 
-ad_require_permission $photo_id "read"
+permission::require_permission -object_id $photo_id -privilege "read"
 
 set user_id [ad_conn user_id]
 set context [pa_context_bar_list -final "[_ photo-album._Full]" $photo_id]