loncom/homework/inputtags.pm - diff

Return to inputtags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.151, 2004/10/04 18:15:22	version 1.152, 2004/10/19 15:24:32
Line 570 sub setgradedata {	Line 570 sub setgradedata {
} elsif ( $award eq 'INCORRECT' ) {	} elsif ( $award eq 'INCORRECT' ) {
$Apache::lonhomework::results{"resource.$id.tries"} =	$Apache::lonhomework::results{"resource.$id.tries"} =
$Apache::lonhomework::history{"resource.$id.tries"} + 1;	$Apache::lonhomework::history{"resource.$id.tries"} + 1;
if (lc($Apache::lonhomework::problemstatus) eq 'no') {	if (lc($Apache::lonhomework::problemstatus) eq 'no' \|\|
	$Apache::lonhomework::scantronmode) {
$Apache::lonhomework::results{"resource.$id.awarded"} = 0;	$Apache::lonhomework::results{"resource.$id.awarded"} = 0;
}	}
$Apache::lonhomework::results{"resource.$id.solved"} =	$Apache::lonhomework::results{"resource.$id.solved"} =
Line 589 sub setgradedata {	Line 590 sub setgradedata {
} else {	} else {
$Apache::lonhomework::results{"resource.$id.solved"} =	$Apache::lonhomework::results{"resource.$id.solved"} =
'incorrect_attempted';	'incorrect_attempted';
if (lc($Apache::lonhomework::problemstatus) eq 'no') {	if (lc($Apache::lonhomework::problemstatus) eq 'no' \|\|
	$Apache::lonhomework::scantronmode) {
$Apache::lonhomework::results{"resource.$id.tries"} =	$Apache::lonhomework::results{"resource.$id.tries"} =
$Apache::lonhomework::history{"resource.$id.tries"} + 1;	$Apache::lonhomework::history{"resource.$id.tries"} + 1;
$Apache::lonhomework::results{"resource.$id.awarded"} = 0;	$Apache::lonhomework::results{"resource.$id.awarded"} = 0;