Index: openacs-4/packages/general-comments/www/view-image.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/general-comments/www/view-image.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/general-comments/www/view-image.tcl	7 Nov 2002 08:32:49 -0000	1.4
+++ openacs-4/packages/general-comments/www/view-image.tcl	27 Oct 2014 16:41:44 -0000	1.5
@@ -8,7 +8,7 @@
     @creation-date 2000-10-12
     @cvs-id $Id$
 } {
-    image_id:notnull
+    image_id:naturalnum,notnull
     { return_url {} }
 } -properties {
     page_title:onevalue
@@ -20,7 +20,7 @@
 }
 
 # check that user can view the image
-ad_require_permission $image_id read
+permission::require_permission -object_id $image_id -privilege read
 
 # get the image attributes
 db_1row get_image {