loncom/homework/inputtags.pm - diff

Return to inputtags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.117, 2003/09/22 20:49:01	version 1.118, 2003/09/23 15:43:39
Line 518 sub setgradedata {	Line 518 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 537 sub setgradedata {	Line 540 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;
}	}
}	}