loncom/homework/essayresponse.pm - diff

Return to essayresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.27, 2003/04/18 07:12:13	version 1.28, 2003/04/18 08:00:04
Line 99 sub end_essayresponse {	Line 99 sub end_essayresponse {
if ($collaborators ne $previous_list);	if ($collaborators ne $previous_list);
}	}
if ( defined($ENV{'form.submitted'}) &&	if ( defined($ENV{'form.submitted'}) &&
$ENV{'form.submitted'}='scantron' ) {	$ENV{'form.submitted'} eq 'scantron' ) {
my $repetition=&Apache::response::repetition();	my $repetition=&Apache::response::repetition();
$increment=$repetition;	$increment=$repetition;
	my $score=0;
	for (my $i=0;$i<$repetition;$i++) {
	my $increase=&Apache::response::getresponse($i+1);
	if ($increase ne '') { $score+=$increase+1; }
	}
	my $weight = &Apache::lonnet::EXT("resource.$id.weight");
	my $pcr=$score/$weight;
	#FIXME, won't work for multiple essay in a single part
	$Apache::lonhomewok::results{"resource.$id.awarded"};
} 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'};