loncom/homework/rankresponse.pm - diff

Return to rankresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

-version 1.48, 2005/06/22 12:03:23
+version 1.49, 2005/12/06 10:13:46
  Line 166  sub displayanswers {
      if (!defined(@{ $Apache::response::foilgroup{'names'} })) { return; }
      my @names = @{ $Apache::response::foilgroup{'names'} };
      my @whichfoils = &whichfoils($max,$randomize);
-     my $result=&Apache::response::answer_header('rankresponse');
      my @correctorder=&get_correct_order($tol,@whichfoils);
-     foreach my $order (@correctorder) {
+     my $result;
- 	$result.=&Apache::response::answer_part('rankresponse',$order);
+     if ($Apache::lonhomework::type eq 'exam') {
+ 	my @alphabet = ('A'..'Z');
+ 	my $i=0;
+ 	foreach my $order (@correctorder) {
+ 	    $result.=&Apache::response::answer_header('rankresponse',$i++);
+ 	    $result.=&Apache::response::answer_part('rankresponse',
+ 						    $alphabet[$order-1]);
+ 	    $result.=&Apache::response::answer_part('rankresponse',$order);
+ 	    $result.=&Apache::response::answer_footer('rankresponse');
+ 	}
+     } else {
+ 	$result=&Apache::response::answer_header('rankresponse');
+ 	foreach my $order (@correctorder) {
+ 	    $result.=&Apache::response::answer_part('rankresponse',$order);
+ 	}
+ 	$result.=&Apache::response::answer_footer('rankresponse');
      }
-     $result.=&Apache::response::answer_footer('rankresponse');
      return $result;
  }