version 1.83, 2007/08/10 20:09:30
|
version 1.84, 2007/09/26 00:31:23
|
Line 246 sub file_submission {
|
Line 246 sub file_submission {
|
$uploadedfiletypes=','.$uploadedfiletypes.','; |
$uploadedfiletypes=','.$uploadedfiletypes.','; |
foreach my $file (@submitted_files) { |
foreach my $file (@submitted_files) { |
my ($extension)=($file=~/\.(\w+)$/); |
my ($extension)=($file=~/\.(\w+)$/); |
unless ($uploadedfiletypes=~/\,$extension\,/i) { |
unless ($uploadedfiletypes=~/\,\s*\Q$extension\E\s*\,/i) { |
$$award='INVALID_FILETYPE'; |
$$award='INVALID_FILETYPE'; |
} |
} |
} |
} |