loncom/homework/essayresponse.pm - diff

Return to essayresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.47, 2004/11/13 21:07:20	version 1.49, 2004/11/21 19:18:43
Line 140 sub end_essayresponse {	Line 140 sub end_essayresponse {
}	}
}	}
if ($portfiles =~ /[^\s]/) {	if ($portfiles =~ /[^\s]/) {
	$portfiles =~ /(.*)(,$)/;
	$portfiles = $1;
$Apache::lonhomework::results{"resource.$part.$id.portfiles"}=$portfiles;	$Apache::lonhomework::results{"resource.$part.$id.portfiles"}=$portfiles;
$Apache::lonhomework::results{"resource.$part.$id.uploadedurl"}=$portfiles;	$Apache::lonhomework::results{"resource.$part.$id.uploadedurl"}=$portfiles;
my @submitted_files = split /,/,$portfiles;	my @submitted_files = split /,/,$portfiles;
my ($dsymb,$crsid,$domain,$name)=	my ($dsymb,$crsid,$domain,$name)=&Apache::lonxml::whichuser();
&Apache::lonxml::whichuser();	&Apache::lonnet::unmark_as_readonly($domain,$name,$dsymb.$crsid);
foreach (@submitted_files) {	&Apache::lonnet::mark_as_readonly($domain,$name,\@submitted_files,$dsymb.$crsid);
my $file = $_;
&Apache::lonnet::put('file_permissions',
{ $dsymb.$crsid => $file },$domain,$name);
}
$uploadedflag=1;	$uploadedflag=1;
}	}
$Apache::lonhomework::results{"resource.$part.$id.submission"}=$response;	$Apache::lonhomework::results{"resource.$part.$id.submission"}=$response;