loncom/homework/inputtags.pm - diff

Return to inputtags.pm CVS log

Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/inputtags.pm between versions 1.116 and 1.118

version 1.116, 2003/09/17 21:29:44	version 1.118, 2003/09/23 15:43:39
Line 455 sub decideoutput {	Line 455 sub decideoutput {
$message = &mt("Unknown message").": $award";	$message = &mt("Unknown message").": $award";
$button=1;	$button=1;
}	}
if (lc($Apache::lonhomework::problemstatus) eq 'no') {	if (lc($Apache::lonhomework::problemstatus) eq 'no' &&
	$Apache::inputtags::status[-1] ne 'SHOW_ANSWER') {
$message = &mt("Answer Submitted");	$message = &mt("Answer Submitted");
$bgcolor=$possiblecolors{'correct'};	$bgcolor=$possiblecolors{'correct'};
$button=1;	$button=1;
Line 517 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 536 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;
}	}
}	}

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.116
changed lines
	Added in v.1.118