loncom/homework/optionresponse.pm - diff

Return to optionresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.119, 2004/08/25 20:00:31	version 1.120, 2004/09/29 05:47:33
Line 192 sub end_foilgroup {	Line 192 sub end_foilgroup {
my $ignored=0;	my $ignored=0;
foreach $name (@whichopt) {	foreach $name (@whichopt) {
my $response=&Apache::response::getresponse($temp);	my $response=&Apache::response::getresponse($temp);
if ($ENV{'form.submitted'} eq 'scantron') {	if ($ENV{'form.submitted'} eq 'scantron' && $response=~/\S/) {
$response = $opt[$response];	$response = $opt[$response];
}	}
if ( $response =~ /[^\s]/) {	if ( $response =~ /[^\s]/) {
Line 238 sub end_foilgroup {	Line 238 sub end_foilgroup {
} else {	} else {
my $ad;	my $ad;
if ($wrong==0 && $right==0) {	if ($wrong==0 && $right==0) {
#nothing submitted	#nothing submitted only assign a score if we
	#need to override a previous grade
	if (defined($Apache::lonhomework::history{"resource.$part.$id.awarddetail"})) {
	$ad='ASSIGNED_SCORE';
	}
} else {	} else {
$ad='ASSIGNED_SCORE';	$ad='ASSIGNED_SCORE';
}	}