Index: openacs-4/packages/photo-album/www/photos-add-2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/photo-album/www/photos-add-2.tcl,v diff -u -r1.5 -r1.6 --- openacs-4/packages/photo-album/www/photos-add-2.tcl 18 Nov 2003 22:59:03 -0000 1.5 +++ openacs-4/packages/photo-album/www/photos-add-2.tcl 26 Jan 2004 15:39:48 -0000 1.6 @@ -8,7 +8,7 @@ @creation-date 6/28/2002 @cvs_id $Id$ } { - upload_file:trim,optional + {upload_file:optional,trim ""} upload_file.tmpfile:optional,tmpfile album_id:integer,notnull } -validate { @@ -23,7 +23,7 @@ } } directory_exists { - if {([info exists $upload_file] && ![empty_string_p $upload_file]) && ![file isdirectory [parameter::get -parameter FullTempPhotoDir -package_id [ad_conn package_id]]]} { + if {([info exists upload_file] && ![empty_string_p $upload_file]) && ![file isdirectory [parameter::get -parameter FullTempPhotoDir -package_id [ad_conn package_id]]]} { ad_complain "The directory file does not exist" } }