Diff for /loncom/homework/rankresponse.pm between versions 1.67 and 1.68

version 1.67, 2011/09/16 22:23:54 version 1.68, 2012/10/12 12:45:46
Line 186  sub get_correct_order { Line 186  sub get_correct_order {
   
 sub displayanswers {  sub displayanswers {
     my ($max,$randomize,$tol,@opt)=@_;      my ($max,$randomize,$tol,@opt)=@_;
     if (!defined(@{ $Apache::response::foilgroup{'names'} })) { return; }      my @names;
     my @names = @{ $Apache::response::foilgroup{'names'} };      if (ref($Apache::response::foilgroup{'names'}) eq 'ARRAY') {
           @names = @{ $Apache::response::foilgroup{'names'} };
       }
       return if (!@names);
     my @whichfoils = &whichfoils($max,$randomize);      my @whichfoils = &whichfoils($max,$randomize);
     my @correctorder=&get_correct_order($tol,@whichfoils);      my @correctorder=&get_correct_order($tol,@whichfoils);
     my $result;      my $result;

Removed from v.1.67  
changed lines
  Added in v.1.68


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>