version 1.64, 2005/04/19 00:56:39
|
version 1.65, 2005/05/03 05:31:51
|
Line 164 sub file_submission {
|
Line 164 sub file_submission {
|
$Apache::lonhomework::results{"resource.$part.$id.$which"}=$files; |
$Apache::lonhomework::results{"resource.$part.$id.$which"}=$files; |
my @submitted_files = split(/,/,$files); |
my @submitted_files = split(/,/,$files); |
my $uploadedfiletypes= &Apache::lonnet::EXT("resource.$part".'_'."$id.uploadedfiletypes"); |
my $uploadedfiletypes= &Apache::lonnet::EXT("resource.$part".'_'."$id.uploadedfiletypes"); |
$uploadedfiletypes=~s/[^\w\,]//g; |
if ($uploadedfiletypes) { |
$uploadedfiletypes=','.$uploadedfiletypes.','; |
$uploadedfiletypes=~s/[^\w\,]//g; |
foreach my $file (@submitted_files) { |
$uploadedfiletypes=','.$uploadedfiletypes.','; |
my ($extension)=($file=~/\.(\w+)$/); |
foreach my $file (@submitted_files) { |
unless ($uploadedfiletypes=~/\,$extension\,/i) { |
my ($extension)=($file=~/\.(\w+)$/); |
$$award='INVALID_FILETYPE'; |
unless ($uploadedfiletypes=~/\,$extension\,/i) { |
|
$$award='INVALID_FILETYPE'; |
|
} |
} |
} |
} |
} |
if ($$award ne 'INVALID_FILETYPE' && ref($uploadedflag)) { |
if ($$award ne 'INVALID_FILETYPE' && ref($uploadedflag)) { |