loncom/homework/rankresponse.pm - diff

Return to rankresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.43, 2005/01/10 19:21:57	version 1.46, 2005/06/20 21:31:07
Line 177 sub displayanswers {	Line 177 sub displayanswers {

sub check_response_order {	sub check_response_order {
my (%responsehash)=@_;	my (%responsehash)=@_;
my @order=sort(values(%responsehash));	my @order=sort( {$a <=> $b} values(%responsehash));
my $lastvalue=0;	my $lastvalue=0;
my $expected=1;	my $expected=1;
my $malformed=0;	my $malformed=0;
Line 195 sub check_response_order {	Line 195 sub check_response_order {
sub grade_response {	sub grade_response {
my ($max,$randomize,$tol)=@_;	my ($max,$randomize,$tol)=@_;
my (@whichfoils)=&whichfoils($max,$randomize);	my (@whichfoils)=&whichfoils($max,$randomize);
if (!defined($ENV{'form.submitted'})) { return; }	if (!&Apache::response::submitted()) { return; }
my %responsehash;	my %responsehash;
my %grade;	my %grade;
my ($temp,$right,$wrong,$ignored)=(1,0,0,0);	my ($temp,$right,$wrong,$ignored)=(1,0,0,0);
Line 263 sub displayfoils {	Line 263 sub displayfoils {
foreach my $name (@whichfoils) {	foreach my $name (@whichfoils) {
my $text=$Apache::response::foilgroup{$name.'.text'};	my $text=$Apache::response::foilgroup{$name.'.text'};
my $value=shift(@correctorder);	my $value=shift(@correctorder);
if ($target eq 'web') {$result.='<br />';} else {$result.=' \strut\\\\\strut ';}	if ($target eq 'web') {
$result.=$value.':'.$text;	$result.='<br /><b>'.$value.':</b> '.$text;
	} else {
	$result.=' \strut\\\\\strut '.$value.':'.$text;
	}
}	}
} else {	} else {
my $i = 0;	my $i = 0;