loncom/homework/response.pm - diff

Return to response.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.89, 2003/11/21 19:54:42	version 1.91, 2004/02/16 20:09:51
Line 456 sub showallfoils {	Line 456 sub showallfoils {
}	}

sub getresponse {	sub getresponse {
my ($temp)=@_;	my ($temp,$resulttype)=@_;
my $formparm='form.HWVAL_'.$Apache::inputtags::response['-1'];	my $formparm='form.HWVAL_'.$Apache::inputtags::response['-1'];
my $response;	my $response;
if (!defined($temp)) {	if (!defined($temp)) {
Line 476 sub getresponse {	Line 476 sub getresponse {
# save bubbled letter for later	# save bubbled letter for later
$Apache::lonhomework::results{"resource.$part.$id.scantron"}.=	$Apache::lonhomework::results{"resource.$part.$id.scantron"}.=
$response;	$response;
$response = $let_to_num{$response};	if ($resulttype ne 'letter') {
	$response = $let_to_num{$response};
	}
} else {	} else {
$response = $ENV{$formparm};	$response = $ENV{$formparm};
}	}
Line 500 sub scored_response {	Line 502 sub scored_response {
if ($increase ne '') { $score+=$increase+1; }	if ($increase ne '') { $score+=$increase+1; }
}	}
my $weight = &Apache::lonnet::EXT("resource.$part.weight");	my $weight = &Apache::lonnet::EXT("resource.$part.weight");
	if (!defined($weight) \|\| $weight eq '' \|\| $weight eq 0) { $weight = 1; }
my $pcr=$score/$weight;	my $pcr=$score/$weight;
$Apache::lonhomework::results{"resource.$part.$id.awarded"}=$pcr;	$Apache::lonhomework::results{"resource.$part.$id.awarded"}=$pcr;
$Apache::lonhomework::results{"resource.$part.$id.awarddetail"}=	$Apache::lonhomework::results{"resource.$part.$id.awarddetail"}=