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 -r1.7 -r1.8
--- openacs-4/packages/photo-album/www/base-photo.tcl	14 Oct 2013 17:56:29 -0000	1.7
+++ openacs-4/packages/photo-album/www/base-photo.tcl	7 Aug 2014 07:59:50 -0000	1.8
@@ -9,7 +9,7 @@
     @creation-date 2/1/2000
     @cvs-id $Id$
 } {
-    photo_id:integer,notnull
+    photo_id:naturalnum,notnull
 } -validate {
     valid_photo -requires {photo_id:integer} {
 	if [string equal [pa_is_photo_p $photo_id] "f"] {