loncom/homework/rankresponse.pm - diff

Return to rankresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.16, 2003/07/16 13:14:12	version 1.18, 2003/09/22 20:49:01
Line 121 sub get_correct_order {	Line 121 sub get_correct_order {
}	}
@value_names =	@value_names =
sort {	sort {
if (abs($a->[0] - $b->[0]) > $tol) {return ($a->[0] cmp $b->[0]);}	if (abs($a->[0] - $b->[0]) > $tol) {return ($a->[0] <=> $b->[0]);}
return 0;	return 0;
} @value_names;	} @value_names;
my @value_names_tmp=@value_names;	my @value_names_tmp=@value_names;
Line 241 sub displayfoils {	Line 241 sub displayfoils {
my $status=$Apache::inputtags::status[-1];	my $status=$Apache::inputtags::status[-1];
my @whichopt=(1..($#whichfoils+1));	my @whichopt=(1..($#whichfoils+1));
my @correctorder=&get_correct_order($tol,@whichfoils);	my @correctorder=&get_correct_order($tol,@whichfoils);
if (($solved =~ /^correct/) \|\| ($status eq 'SHOW_ANSWER')) {	if ( &Apache::response::show_answer() ) {
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);