Index: openacs-4/packages/evaluation/www/admin/evaluations/grades-sheet-parse.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation/www/admin/evaluations/grades-sheet-parse.tcl,v diff -u -r1.5 -r1.6 --- openacs-4/packages/evaluation/www/admin/evaluations/grades-sheet-parse.tcl 15 Jun 2004 23:20:29 -0000 1.5 +++ openacs-4/packages/evaluation/www/admin/evaluations/grades-sheet-parse.tcl 30 Jul 2004 22:50:10 -0000 1.6 @@ -13,11 +13,13 @@ task_id:integer,notnull grades_sheet_item_id:integer,notnull } -validate { - csv_type_p { - set file_extension [file extension $upload_file] - if { [string compare [string tolower $file_extension] ".csv"] } { - ad_complain "[_ evaluation.lt_The_file_extension_of_1]" - } + csv_type_p -requires { upload_file } { + if { [info exists upload_file] } { + set file_extension [file extension $upload_file] + if { [string compare [string tolower $file_extension] ".csv"] } { + ad_complain "[_ evaluation.lt_The_file_extension_of_1]" + } + } } } @@ -131,6 +133,27 @@ incr errors append errors_text "