loncom/homework/response.pm - diff

Return to response.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.90, 2004/02/09 19:38:00	version 1.91, 2004/02/16 20:09:51
Line 502 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"}=