[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.19 and 1.20

version 1.19, 2002/08/13 00:37:18 version 1.20, 2002/08/13 12:21:46
Line 69  sub BuildProblemStatisticsPage { Line 69  sub BuildProblemStatisticsPage {
                                             'ProblemStatistics',                                              'ProblemStatistics',
                                             'Statistics');                                              'Statistics');
     $Ptr .= '</td></tr>'."\n";      $Ptr .= '</td></tr>'."\n";
     $Ptr .= &ProblemStatisticsButtons($cache{'DisplayFormat'});      $Ptr .= &ProblemStatisticsButtons($cache{'DisplayFormat'}, 
                                         $cache{'DisplayLegend'});
     $Ptr .= '</table>';      $Ptr .= '</table>';
     $Ptr .= &ProblemStatisticsLegend();      if($cache{'DisplayLegend'} eq 'Show Legend') {
           $Ptr .= &ProblemStatisticsLegend();
       }
     $r->print($Ptr);      $r->print($Ptr);
     $r->rflush();      $r->rflush();
   
Line 356  sub setbgcolor { Line 359  sub setbgcolor {
 }  }
   
 sub ProblemStatisticsButtons {  sub ProblemStatisticsButtons {
     my ($displayFormat)=@_;      my ($displayFormat, $displayLegend)=@_;
   
     my $Ptr = '<tr><td></td><td align="left">';      my $Ptr = '<tr><td></td><td align="left">';
     $Ptr .= '<input type="submit" name="DoDiffGraph" ';      $Ptr .= '<input type="submit" name="DoDiffGraph" ';
Line 364  sub ProblemStatisticsButtons { Line 367  sub ProblemStatisticsButtons {
     $Ptr .= '&nbsp;&nbsp;&nbsp;';      $Ptr .= '&nbsp;&nbsp;&nbsp;';
     $Ptr .= '<input type="submit" name="PercentWrongGraph" ';      $Ptr .= '<input type="submit" name="PercentWrongGraph" ';
     $Ptr .= 'value="%Wrong Graph" />'."\n";      $Ptr .= 'value="%Wrong Graph" />'."\n";
       $Ptr .= '</td></tr><tr><td></td><td>'."\n";
       $Ptr .= '<input type="submit" name="DisplayLegend" ';
       if($displayLegend eq 'Show Legend') {
           $Ptr .= 'value="Hide Legend" />'."\n";
       } else {
           $Ptr .= 'value="Show Legend" />'."\n";
       }
     $Ptr .= '&nbsp;&nbsp;&nbsp;';      $Ptr .= '&nbsp;&nbsp;&nbsp;';
     $Ptr .= '<input type="submit" name="DisplayCSVFormat" ';      $Ptr .= '<input type="submit" name="DisplayCSVFormat" ';
     if($displayFormat eq 'Display CSV Format') {      if($displayFormat eq 'Display CSV Format') {
Removed from v.1.19  
changed lines
  Added in v.1.20

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