[BACK]Return to lonproblemanalysis.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface / statistics

Diff for /loncom/interface/statistics/lonproblemanalysis.pm between versions 1.57 and 1.58

version 1.57, 2004/01/19 16:33:16 version 1.58, 2004/01/19 18:55:10
Line 1251  sub build_foil_index { Line 1251  sub build_foil_index {
     my @Foils = sort(keys(%Foildata));      my @Foils = sort(keys(%Foildata));
     my %Concepts;      my %Concepts;
     foreach my $foilid (@Foils) {      foreach my $foilid (@Foils) {
         &Apache::lonnet::logthis('foilid = '.$foilid);  
         &Apache::lonnet::logthis('_Concept = '.$Foildata{$foilid}->{'_Concept'});  
         push(@{$Concepts{$Foildata{$foilid}->{'_Concept'}}},          push(@{$Concepts{$Foildata{$foilid}->{'_Concept'}}},
              $foilid);               $foilid);
     }      }
Line 1289  sub build_foil_index { Line 1287  sub build_foil_index {
     foreach my $concept (sort $sortfunction (keys(%Concepts))) {      foreach my $concept (sort $sortfunction (keys(%Concepts))) {
         if (! defined($Concepts{$concept})) {          if (! defined($Concepts{$concept})) {
             $Concepts{$concept}=[];              $Concepts{$concept}=[];
             &Apache::lonnet::logthis('concept error: '.$concept.' does not have a value');  
 #            next;  #            next;
         }          }
         push(@Concepts,{ name => $concept,          push(@Concepts,{ name => $concept,
Line 1720  sub Process_OR_Row { Line 1717  sub Process_OR_Row {
     my @Foilsubs   = split('&',$submission);      my @Foilsubs   = split('&',$submission);
     for (my $j=0;$j<=$#Foilgrades;$j++) {      for (my $j=0;$j<=$#Foilgrades;$j++) {
         my ($foilid,$correct)  = split('=',$Foilgrades[$j]);          my ($foilid,$correct)  = split('=',$Foilgrades[$j]);
           $foilid = &Apache::lonnet::unescape($foilid);
         my (undef,$submission) = split('=',$Foilsubs[$j]);          my (undef,$submission) = split('=',$Foilsubs[$j]);
         if ($correct) {          if ($correct) {
             $RowData{$foilid}->{'_correct'}++;              $RowData{$foilid}->{'_correct'}++;
Removed from v.1.57  
changed lines
  Added in v.1.58

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