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.114 and 1.114.2.3

version 1.114, 2003/08/28 12:54:27	version 1.114.2.3, 2003/09/23 16:00:49
Line 454 sub decideoutput {	Line 454 sub decideoutput {
$message = "Unknown message: $award";	$message = "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 = "Answer Submitted";	$message = "Answer Submitted";
$bgcolor=$possiblecolors{'correct'};	$bgcolor=$possiblecolors{'correct'};
$button=1;	$button=1;
Line 516 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) eq '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 535 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;
}	}
}	}

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

Removed from v.1.114
changed lines
	Added in v.1.114.2.3