Diff for /loncom/interface/statistics/lonproblemanalysis.pm between versions 1.11 and 1.12

version 1.11, 2002/11/22 03:46:57 version 1.12, 2002/11/22 03:56:05
Line 348  sub OpStatus { Line 348  sub OpStatus {
   
     foreach my $id (@$ids) {      foreach my $id (@$ids) {
  my ($part, $response) = split(/\./, $id);   my ($part, $response) = split(/\./, $id);
 =pod  #=pod
     my %reshash=&Apache::lonnet::restore($symb,$courseID,$udom,$uname);      my %reshash=&Apache::lonnet::restore($symb,$courseID,$udom,$uname);
     if ($reshash{'version'}) {      if ($reshash{'version'}) {
         my $tries=0;          my $tries=0;
Line 370  sub OpStatus { Line 370  sub OpStatus {
     my %submission=&Apache::lonnet::str2hash($Resp);      my %submission=&Apache::lonnet::str2hash($Resp);
     foreach (keys %submission) {      foreach (keys %submission) {
  my $Ansr = $analyzeData->{"$Id1.$Id2.foil.value.$_"};   my $Ansr = $analyzeData->{"$Id1.$Id2.foil.value.$_"};
  if ($submission{$_}) {                      if($submission{$_} eq $Ansr) {
     if ($submission{$_} eq $Ansr) {                          &Decide("true", $foil_to_concept->{$_},
  &Decide("true",$_,$time );                                  $time, $ConceptData);
     }                      } else {
     else {&Decide("false",$_,$time );}                          &Decide("false", $foil_to_concept->{$_},
  }   $time, $ConceptData);
                       }
     }      }
         }          }
     }      }
         }          }
     }      }
 =cut  #=cut
   =pod
         my $time=$cache->{$student.':'.$problemID.':'.$part.':timestamp'};          my $time=$cache->{$student.':'.$problemID.':'.$part.':timestamp'};
  my @submissions = split(':::', $cache->{$student.':'.$problemID.':'.   my @submissions = split(':::', $cache->{$student.':'.$problemID.':'.
                                                $part.':'.$response.                                                 $part.':'.$response.
Line 402  sub OpStatus { Line 403  sub OpStatus {
                 }                  }
             }              }
         }          }
   =cut
   
     }      }
   
     return;      return;

Removed from v.1.11  
changed lines
  Added in v.1.12


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