[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.9 and 1.11

version 1.9, 2002/08/01 20:49:06 version 1.11, 2002/08/02 21:04:46
Line 450  sub BuildStatisticsTable { Line 450  sub BuildStatisticsTable {
     $urlres=$Map;      $urlres=$Map;
 #######################  #######################
   
 #    $res = '<a href="'.$cache->{'src_'.$ResId}.'">'.$res.'</a>';  #    $res = '<a href="'.$cache->{$ResId.':source'}.'">'.$res.'</a>';
     #$Map = '<a href="'.$Map.'">'.$res.'</a>';      #$Map = '<a href="'.$Map.'">'.$res.'</a>';
   
 #------------------------ Compute the Average of Tries about one problem  #------------------------ Compute the Average of Tries about one problem
Line 515  sub BuildStatisticsTable { Line 515  sub BuildStatisticsTable {
                        $YES.'&'.$Override.'&'.$Wrng.'&'.$DoD.'&'.                         $YES.'&'.$Override.'&'.$Wrng.'&'.$DoD.'&'.
        $SD.'&'.$Sk.'&'.$_D1.'&'.$_D2.'&'.         $SD.'&'.$Sk.'&'.$_D1.'&'.$_D2.'&'.
                        $DiscNo.'&'.$Prob;                         $DiscNo.'&'.$Prob;
 ##8888    $CachData{($p_count-1)}=$join;  
   #####{$sequence.'@'.$pOrd}
     #  $cache->{'tableCache:'.$p_count-1}=$join;
   
 #6666666  #6666666
 #    $r->print('<br>'.$out.'&'.$DoD);  #    $r->print('<br>'.$out.'&'.$DoD);
Line 599  sub TableRow { Line 601  sub TableRow {
         my ($ResId,$Dummy)=split(/\*/,$Prob);          my ($ResId,$Dummy)=split(/\*/,$Prob);
         $Ptr="\n".'<br>'.          $Ptr="\n".'<br>'.
              "\n".'"'.($RealIdx+1).'",'.               "\n".'"'.($RealIdx+1).'",'.
              "\n".'"'.$cache->{'title_'.$ResId}.$Dummy.'",'.               "\n".'"'.$cache->{$ResId.':title'}.$Dummy.'",'.
              "\n".'"'.$cache->{'src_'.$ResId}.'",'.               "\n".'"'.$cache->{$ResId.':source'}.'",'.
              "\n".'"'.$StdNo.'",'.               "\n".'"'.$StdNo.'",'.
              "\n".'"'.$TotalTries.'",'.               "\n".'"'.$TotalTries.'",'.
              "\n".'"'.$MxTries.'",'.               "\n".'"'.$MxTries.'",'.
Line 636  sub TableRow { Line 638  sub TableRow {
              "\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;  #    $cache->{'graph_gif:'.$RealIdx}=$DoD.':'.$Wrng;
 }  }
   
   
Removed from v.1.9  
changed lines
  Added in v.1.11

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