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

Diff for /loncom/interface/statistics/lonproblemstatistics.pm between versions 1.7 and 1.8

version 1.7, 2002/07/30 22:09:01 version 1.8, 2002/07/30 23:08:56
Line 427  sub BuildStatisticsTable { Line 427  sub BuildStatisticsTable {
     $Temp = '<a href="'.$cache->{$ResId.':source'}.      $Temp = '<a href="'.$cache->{$ResId.':source'}.
                 '" target="_blank">'.$cache->{$ResId.':title'}.$Dummy.'</a>';                  '" target="_blank">'.$cache->{$ResId.':title'}.$Dummy.'</a>';
   
     my $res = &Apache::lonnet::declutter($cache->{'src_'.$ResId});      #$r->print('<br>rid='.$ResId);
       #$r->print('<br>src='.$cache->{$ResId.':source'});
       #$r->print('<br>tit='.$cache->{$ResId.':title'});
   
       my $res = &Apache::lonnet::declutter($cache->{$ResId.':source'});
     my $urlres=$res;      my $urlres=$res;
   
     $ResId=~/(\d+)\.(\d+)/;      $ResId=~/(\d+)\.(\d+)/;
Line 579  sub TableRow { Line 583  sub TableRow {
     my($PrOrd,$Temp,$StdNo,$TotalTries,$MxTries,$Avg,$YES,$Override,      my($PrOrd,$Temp,$StdNo,$TotalTries,$MxTries,$Avg,$YES,$Override,
        $Wrng,$DoD,$SD,$Sk,$_D1,$_D2,$DiscNo,$Prob)=split(/\&/,$Str);         $Wrng,$DoD,$SD,$Sk,$_D1,$_D2,$DiscNo,$Prob)=split(/\&/,$Str);
 #    $r->print('<br>'.$Str);  #    $r->print('<br>'.$Str);
       my $Ptr;
     if ($ENV{'form.showcsv'}) {      if ($ENV{'form.showcsv'}) {
         my ($ResId,$Dummy)=split(/\*/,$Prob);          my ($ResId,$Dummy)=split(/\*/,$Prob);
         my $Ptr =  "\n".'<br>'.          $Ptr="\n".'<br>'.
                "\n".'"'.($RealIdx+1).'",'.               "\n".'"'.($RealIdx+1).'",'.
                "\n".'"'.$cache->{'title_'.$ResId}.$Dummy.'",'.               "\n".'"'.$cache->{'title_'.$ResId}.$Dummy.'",'.
                "\n".'"'.$cache->{'src_'.$ResId}.'",'.               "\n".'"'.$cache->{'src_'.$ResId}.'",'.
                "\n".'"'.$StdNo.'",'.               "\n".'"'.$StdNo.'",'.
                "\n".'"'.$TotalTries.'",'.               "\n".'"'.$TotalTries.'",'.
                "\n".'"'.$MxTries.'",'.               "\n".'"'.$MxTries.'",'.
                "\n".'"'.$Avg.'",'.               "\n".'"'.$Avg.'",'.
                "\n".'"'.$YES.'",'.               "\n".'"'.$YES.'",'.
                "\n".'"'.$Override.'",'.               "\n".'"'.$Override.'",'.
                "\n".'"'.$Wrng.'",'.               "\n".'"'.$Wrng.'",'.
                "\n".'"'.$DoD.'",'.               "\n".'"'.$DoD.'",'.
                "\n".'"'.$SD.'",'.               "\n".'"'.$SD.'",'.
                "\n".'"'.$Sk.'",'.               "\n".'"'.$Sk.'",'.
                "\n".'"'.$_D1.'",'.               "\n".'"'.$_D1.'",'.
        "\n".'"'.$_D2.'"'.       "\n".'"'.$_D2.'"'.
        "\n".'"'.$DiscNo.'"';       "\n".'"'.$DiscNo.'"';
   
         $r->print("\n".$Ptr);          $r->print("\n".$Ptr);
     }      } else {
     else{          $Ptr="\n".'<tr>'.
         my $Ptr =  "\n".'<tr>'.               "\n".'<td>'.($RealIdx+1).'</td>'.
                "\n".'<td>'.($RealIdx+1).'</td>'.            #  "\n".'<td>'.$PrOrd.$Temp.'</td>'.
           #     "\n".'<td>'.$PrOrd.$Temp.'</td>'.               "\n".'<td>'.$Temp.'</td>'.
                "\n".'<td>'.$Temp.'</td>'.               "\n".'<td bgcolor='.$color->{"yellow"}.'> '.$StdNo.'</td>'.
                "\n".'<td bgcolor='.$color->{"yellow"}.'> '.$StdNo.'</td>'.               "\n".'<td bgcolor='.$color->{"yellow"}.'>'.$TotalTries.'</td>'.
                "\n".'<td bgcolor='.$color->{"yellow"}.'>'.$TotalTries.'</td>'.               "\n".'<td bgcolor='.$color->{"yellow"}.'>'.$MxTries.'</td>'.
                "\n".'<td bgcolor='.$color->{"yellow"}.'>'.$MxTries.'</td>'.               "\n".'<td bgcolor='.$color->{"gb"}.'>'.$Avg.'</td>'.
                "\n".'<td bgcolor='.$color->{"gb"}.'>'.$Avg.'</td>'.               "\n".'<td bgcolor='.$color->{"gb"}.'> '.$YES.'</td>'.
                "\n".'<td bgcolor='.$color->{"gb"}.'> '.$YES.'</td>'.               "\n".'<td bgcolor='.$color->{"gb"}.'> '.$Override.'</td>'.
                "\n".'<td bgcolor='.$color->{"gb"}.'> '.$Override.'</td>'.               "\n".'<td bgcolor='.$color->{"red"}.'> '.$Wrng.'</td>'.
                "\n".'<td bgcolor='.$color->{"red"}.'> '.$Wrng.'</td>'.               "\n".'<td bgcolor='.$color->{"red"}.'> '.$DoD.'</td>'.
                "\n".'<td bgcolor='.$color->{"red"}.'> '.$DoD.'</td>'.               "\n".'<td bgcolor='.$color->{"green"}.'> '.$SD.'</td>'.
                "\n".'<td bgcolor='.$color->{"green"}.'> '.$SD.'</td>'.               "\n".'<td bgcolor='.$color->{"green"}.'> '.$Sk.'</td>'.
                "\n".'<td bgcolor='.$color->{"green"}.'> '.$Sk.'</td>'.               "\n".'<td bgcolor='.$color->{"purple"}.'> '.$_D1.'</td>'.
                "\n".'<td bgcolor='.$color->{"purple"}.'> '.$_D1.'</td>'.       "\n".'<td bgcolor='.$color->{"purple"}.'> '.$_D2.'</td>'.
        "\n".'<td bgcolor='.$color->{"purple"}.'> '.$_D2.'</td>'.               "\n".'<td bgcolor='.$color->{"yellow"}.'> '.$DiscNo.'</td>';
                "\n".'<td bgcolor='.$color->{"yellow"}.'> '.$DiscNo.'</td>';  
         $r->print("\n".$Ptr.'</tr>' );          $r->print("\n".$Ptr.'</tr>' );
     }      }
 #    $GraphDat->{$RealIdx}=$DoD.':'.$Wrng;  #    $GraphDat->{$RealIdx}=$DoD.':'.$Wrng;
Line 842  sub Discriminant { Line 846  sub Discriminant {
     my %DisLow = &ProcessDiscriminant(\@LowList,$r);      my %DisLow = &ProcessDiscriminant(\@LowList,$r);
   
     return (\%DisUp, \%DisLow);      return (\%DisUp, \%DisLow);
 }  }   
   
      
   
 #---- END Problem Statistics Web Page ----------------------------------------  #---- END Problem Statistics Web Page ----------------------------------------
   
Removed from v.1.7  
changed lines
  Added in v.1.8

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