[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.94 and 1.95

version 1.94, 2004/10/15 16:50:30 version 1.95, 2004/10/25 18:30:20
Line 1070  sub OR_tries_analysis { Line 1070  sub OR_tries_analysis {
         }          }
         #          #
         my $correct_graph = &Apache::loncommon::DrawBarGraph          my $correct_graph = &Apache::loncommon::DrawBarGraph
             ($title,'Foil Number','Percent Correct',              ($title,'Statement','% Answered Correct',
              100,$plotcolors,\@Labels,$Datasets[0]);               100,$plotcolors,\@Labels,$Datasets[0]);
                   
         #          #
Line 1083  sub OR_tries_analysis { Line 1083  sub OR_tries_analysis {
                                            $response_data{'_correct'}->[$try];                                             $response_data{'_correct'}->[$try];
         $title = 'Attempt '.$try.' (N='.$count.')';          $title = 'Attempt '.$try.' (N='.$count.')';
         my $incorrect_graph = &Apache::loncommon::DrawBarGraph          my $incorrect_graph = &Apache::loncommon::DrawBarGraph
             ($title,'Foil Number','% Option Chosen Incorrectly',              ($title,'Statement','% Chosen Incorrectly',
              100,$plotcolors,\@Labels,@Datasets);               100,$plotcolors,\@Labels,@Datasets);
         $analysis_html.=           $analysis_html.= 
             '<tr>'.              '<tr>'.
Line 1671  sub build_option_index { Line 1671  sub build_option_index {
     my $optionindex = 0;      my $optionindex = 0;
     my @Rows;      my @Rows;
     foreach my $option (&mt('correct option chosen'),@{$ORdata->{'_Options'}}) {      foreach my $option (&mt('correct option chosen'),@{$ORdata->{'_Options'}}) {
           my $color = $plotcolors->[$optionindex++];
         push (@Rows,          push (@Rows,
               '<tr>'.                '<tr>'.
               '<td bgcolor="'.$plotcolors->[$optionindex++].'">'.                '<td bgcolor="'.$color.'">'.
               ('&nbsp;'x4).'</td>'.                '<font color="'.$color.'">'.('*'x3).'</font>'.'</td>'.
               '<td>'.&HTML::Entities::encode($option,'<>&"').'</td>'.                '<td>'.&HTML::Entities::encode($option,'<>&"').'</td>'.
               "</tr>\n");                "</tr>\n");
     }      }
Line 1690  sub build_foil_key { Line 1691  sub build_foil_key {
     my $foil_index = 0;      my $foil_index = 0;
     my @rows;      my @rows;
     foreach my $foil (&mt('correct foil chosen'),@{$foils}) {      foreach my $foil (&mt('correct foil chosen'),@{$foils}) {
           my $color = $plotcolors->[$foil_index++];
         push (@rows,          push (@rows,
               '<tr>'.                '<tr>'.
               '<td bgcolor="'.$plotcolors->[$foil_index++].'">'.                '<td bgcolor="'.$color.'" class="key">'.
               ('&nbsp;'x4).'</td>'.                '<font color="'.$color.'">'.('*'x4).'</font></td>'.
               '<td>'.&HTML::Entities::encode($foil,'<>&"').                '<td>'.&HTML::Entities::encode($foil,'<>&"').
               ('&nbsp;'x2).$extra_data->{$foil}.'</td>'.                ('&nbsp;'x2).$extra_data->{$foil}.'</td>'.
               "</tr>\n");                "</tr>\n");
Removed from v.1.94  
changed lines
  Added in v.1.95

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