loncom/homework/essayresponse.pm - diff

Return to essayresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.55, 2004/12/14 20:38:51	version 1.57, 2004/12/21 22:46:27
Line 115 sub end_essayresponse {	Line 115 sub end_essayresponse {
my $response = $ENV{'form.HWVAL_'.$id};	my $response = $ENV{'form.HWVAL_'.$id};
my $filename= $ENV{'form.HWFILE'.$part.'_'.$id.'.filename'};	my $filename= $ENV{'form.HWFILE'.$part.'_'.$id.'.filename'};
my $portfiles = $ENV{'form.HWPORT'.$part.'_'.$id};	my $portfiles = $ENV{'form.HWPORT'.$part.'_'.$id};
&Apache::lonnet::logthis("portfiles now $portfiles");
if (( $response =~ /[^\s]/) \|\| ($filename =~ /[^\s]/) \|\| ($portfiles =~ /[^\s]/)) {	if (( $response =~ /[^\s]/) \|\| ($filename =~ /[^\s]/) \|\| ($portfiles =~ /[^\s]/)) {
my $award;	my $award;
if ($ENV{'form.HWDRAFT'.$part.'_'.$id} eq 'yes') {	if ($ENV{'form.HWDRAFT'.$part.'_'.$id} eq 'yes') {
Line 151 sub end_essayresponse {	Line 150 sub end_essayresponse {
&Apache::lonnet::clear_selected_files($name);	&Apache::lonnet::clear_selected_files($name);
$uploadedflag=1;	$uploadedflag=1;
} else {	} else {
	my ($dsymb,$crsid,$domain,$name)=&Apache::lonxml::whichuser();
	&Apache::lonnet::unmark_as_readonly($domain,$name,$dsymb.$crsid);
$Apache::lonhomework::results{"resource.$part.$id.portfiles"}="";	$Apache::lonhomework::results{"resource.$part.$id.portfiles"}="";
}	}
$Apache::lonhomework::results{"resource.$part.$id.submission"}=$response;	$Apache::lonhomework::results{"resource.$part.$id.submission"}=$response;