[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.62 and 1.65

version 1.62, 2003/12/08 19:37:44 version 1.65, 2004/02/02 19:32:11
Line 147  my @Fields = ( Line 147  my @Fields = (
              title  => '#YES',               title  => '#YES',
              align  => 'right',               align  => 'right',
              color  => '#FFDDDD',               color  => '#FFDDDD',
              format => '%d',               format => '%4.1f',#             format => '%d',
              sortable  => 'yes',               sortable  => 'yes',
              graphable => 'yes',               graphable => 'yes',
              long_title => 'Number of Students able to Solve' },               long_title => 'Number of Students able to Solve' },
Line 155  my @Fields = ( Line 155  my @Fields = (
              title  => '#yes',               title  => '#yes',
              align  => 'right',               align  => 'right',
              color  => '#FFDDDD',               color  => '#FFDDDD',
              format => '%d',               format => '%4.1f',#             format => '%d',
              sortable  => 'yes',               sortable  => 'yes',
              graphable => 'yes',               graphable => 'yes',
              long_title => 'Number of Students given Override' },               long_title => 'Number of Students given Override' },
Line 208  my @OutputOptions = Line 208  my @OutputOptions =
   
 sub CreateInterface {  sub CreateInterface {
     my $Str = '';      my $Str = '';
       $Str .= '<h2>Overall Problem Statistics'.
           &Apache::loncommon::help_open_topic('Statistics_Overall_Key').
           '</h2>'."\n";
     $Str .= '<table cellspacing="5">'."\n";      $Str .= '<table cellspacing="5">'."\n";
     $Str .= '<tr>';      $Str .= '<tr>';
     $Str .= '<td align="center"><b>'.&mt('Sections').'</b></td>';      $Str .= '<td align="center"><b>'.&mt('Sections').'</b></td>';
Line 770  sub plot_statistics { Line 773  sub plot_statistics {
                                                      'Problem Number',                                                       'Problem Number',
                                                      $yaxis,                                                       $yaxis,
                                                      $Max,                                                       $Max,
                                                      undef,                                                       undef, # colors
                                                        undef, # labels
                                                      \@Data)."</p>\n");                                                       \@Data)."</p>\n");
     #      #
     # Print out the data      # Print out the data
Removed from v.1.62  
changed lines
  Added in v.1.65

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