Lines 73-79
else {
Link Here
|
73 |
my $filename = $cgi->param('uploadfile'); |
73 |
my $filename = $cgi->param('uploadfile'); |
74 |
my $mimetype = $cgi->uploadInfo($filename)->{'Content-Type'}; |
74 |
my $mimetype = $cgi->uploadInfo($filename)->{'Content-Type'}; |
75 |
|
75 |
|
76 |
$errors{'empty_upload'} = 1 unless ( length($uploaded_file) > 0 ); |
76 |
$errors{'empty_upload'} = 1 if ( -z $uploaded_file ); |
77 |
|
77 |
|
78 |
if (%errors) { |
78 |
if (%errors) { |
79 |
$template->param( errors => %errors ); |
79 |
$template->param( errors => %errors ); |
80 |
- |
|
|