Diff for /loncom/homework/rankresponse.pm between versions 1.36 and 1.37

version 1.36, 2004/08/25 20:00:31 version 1.37, 2004/09/03 18:35:52
Line 198  sub grade_response { Line 198  sub grade_response {
     my ($temp,$right,$wrong,$ignored)=(1,0,0,0);      my ($temp,$right,$wrong,$ignored)=(1,0,0,0);
     my @correctorder=&get_correct_order($tol,@whichfoils);      my @correctorder=&get_correct_order($tol,@whichfoils);
     foreach my $name (@whichfoils) {      foreach my $name (@whichfoils) {
  my $response = &Apache::response::getresponse($temp);   # get response returns a=>0, when we want a=>1
    my $response = &Apache::response::getresponse($temp)+1;
  my $value=shift(@correctorder);   my $value=shift(@correctorder);
  if ( $response =~ /[^\s]/) {   if ( $response =~ /[^\s]/) {
     $responsehash{$name}=$response;      $responsehash{$name}=$response;

Removed from v.1.36  
changed lines
  Added in v.1.37


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