Index: openacs-4/packages/photo-album/www/album-move.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/photo-album/www/album-move.tcl,v diff -u -r1.6 -r1.7 --- openacs-4/packages/photo-album/www/album-move.tcl 14 Oct 2013 17:56:29 -0000 1.6 +++ openacs-4/packages/photo-album/www/album-move.tcl 7 Aug 2014 07:59:50 -0000 1.7 @@ -7,7 +7,7 @@ @creation-date 1/8/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"] {