loncom/homework/essayresponse.pm - diff

Return to essayresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

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)) {