loncom/homework/essayresponse.pm - diff

Return to essayresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

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';
}	}
}	}