loncom/homework/grades.pm - diff

Return to grades.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.554, 2009/03/06 16:13:29	version 1.555, 2009/03/06 21:14:50
Line 268 sub reset_caches {	Line 268 sub reset_caches {
sub get_radiobutton_correct_foil {	sub get_radiobutton_correct_foil {
my ($partid,$respid,$symb,$uname,$udom)=@_;	my ($partid,$respid,$symb,$uname,$udom)=@_;
my $analyze = &get_analyze($symb,$uname,$udom);	my $analyze = &get_analyze($symb,$uname,$udom);
foreach my $foil (@{&get_order($partid,$respid,$symb,$uname,$udom)}) {	my $foils = &get_order($partid,$respid,$symb,$uname,$udom);
if ($analyze->{"$partid.$respid.foil.value.$foil"} eq 'true') {	if (ref($foils) eq 'ARRAY') {
return $foil;	foreach my $foil (@{$foils}) {
	if ($analyze->{"$partid.$respid.foil.value.$foil"} eq 'true') {
	return $foil;
	}
}	}
}	}
}	}
Line 2127 KEYWORDS	Line 2130 KEYWORDS
}	}
$lastsubonly.='<b>'.&mt('Submitted Answer:').' </b>'.	$lastsubonly.='<b>'.&mt('Submitted Answer:').' </b>'.
&cleanRecord($subval,$responsetype,$symb,$partid,	&cleanRecord($subval,$responsetype,$symb,$partid,
$respid,\%record,$order);	$respid,\%record,$order,undef,$uname,$udom);
if ($similar) {$lastsubonly.="<br /><br />$similar\n";}	if ($similar) {$lastsubonly.="<br /><br />$similar\n";}
$lastsubonly.='</div>';	$lastsubonly.='</div>';
}	}