loncom/homework/inputtags.pm - diff

Return to inputtags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.114.2.1, 2003/09/23 01:52:57	version 1.114.2.2, 2003/09/23 15:44:39
Line 517 sub setgradedata {	Line 517 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) ne 'no') {
	$Apache::lonhomework::results{"resource.$id.awarded"} = 0;
	}
$Apache::lonhomework::results{"resource.$id.solved"} =	$Apache::lonhomework::results{"resource.$id.solved"} =
'incorrect_attempted'	'incorrect_attempted'
} elsif ( $award eq 'SUBMITTED' ) {	} elsif ( $award eq 'SUBMITTED' ) {
Line 536 sub setgradedata {	Line 539 sub setgradedata {
if (lc($Apache::lonhomework::problemstatus) eq 'no') {	if (lc($Apache::lonhomework::problemstatus) eq 'no') {
$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;
}	}
}	}