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 -r1.8 -r1.9 --- openacs-4/packages/photo-album/www/photo-add.tcl 6 Sep 2013 17:17:44 -0000 1.8 +++ openacs-4/packages/photo-album/www/photo-add.tcl 7 Aug 2014 07:59:50 -0000 1.9 @@ -8,7 +8,7 @@ @creation-date 12/10/2000 @cvs-id $Id$ } { - album_id:integer,notnull + album_id:naturalnum,notnull } -validate { valid_album -requires {album_id:integer} { if [string equal [pa_is_album_p $album_id] "f"] {