loncom/homework/essayresponse.pm - diff

Return to essayresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.29, 2003/04/18 22:27:28	version 1.30, 2003/04/19 09:00:54
Line 107 sub end_essayresponse {	Line 107 sub end_essayresponse {
my $increase=&Apache::response::getresponse($i+1);	my $increase=&Apache::response::getresponse($i+1);
if ($increase ne '') { $score+=$increase+1; }	if ($increase ne '') { $score+=$increase+1; }
}	}
my $weight = &Apache::lonnet::EXT("resource.$id.weight");	my $weight = &Apache::lonnet::EXT("resource.$part.weight");
my $pcr=$score/$weight;	my $pcr=$score/$weight;
#FIXME, won't work for multiple essay in a single part	$Apache::lonhomewok::results{"resource.$part.$id.awarded"}=$pcr;
$Apache::lonhomewok::results{"resource.$id.awarded"}=$pcr;	$Apache::lonhomewok::results{"resource.$part.$id.awarddetail"}='ASSIGNED_SCORE';
} elsif ( defined($ENV{'form.submitted'}) ) {	} elsif ( defined($ENV{'form.submitted'}) ) {
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'};