[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.61 and 1.63

version 1.61, 2004/01/20 15:51:06 version 1.63, 2004/01/30 16:31:36
Line 76  sub BuildProblemAnalysisPage { Line 76  sub BuildProblemAnalysisPage {
     #      #
     &Apache::lonstatistics::PrepareClasslist();      &Apache::lonstatistics::PrepareClasslist();
     #      #
     $r->print('<h2>'.&mt('Option Response Problem Analysis').'</h2>');      $r->print('<h2>'.&mt('Detailed Problem Analysis').'</h2>');
     $r->print(&CreateInterface());      $r->print(&CreateInterface());
     #      #
     my @Students = @Apache::lonstatistics::Students;      my @Students = @Apache::lonstatistics::Students;
Line 1313  sub build_foil_index { Line 1313  sub build_foil_index {
         if (@Concepts > 1) {          if (@Concepts > 1) {
             $table .= '<tr>'.              $table .= '<tr>'.
                 '<td>'.$conceptindex.'</td>'.                  '<td>'.$conceptindex.'</td>'.
                 '<td>'.$concept->{'name'}.'</td>'.                  '<td>'.&HTML::Entities::encode($concept->{'name'}).'</td>'.
                 '<td>'.$foilindex++.'</td>'.                  '<td>'.$foilindex++.'</td>'.
                 '<td>'.$Foildata{$firstfoil}->{'name'}.'</td>'.                  '<td>'.&HTML::Entities::encode($Foildata{$firstfoil}->{'name'}).'</td>'.
                 '<td>'.$Foildata{$firstfoil}->{'text'}.'</td>'.                  '<td>'.&HTML::Entities::encode($Foildata{$firstfoil}->{'text'}).'</td>'.
                 '<td>'.$Foildata{$firstfoil}->{'value'}.'</td>'.                  '<td>'.&HTML::Entities::encode($Foildata{$firstfoil}->{'value'}).'</td>'.
                 "</tr>\n";                  "</tr>\n";
         } else {          } else {
             $table .= '<tr>'.              $table .= '<tr>'.
                 '<td>'.$foilindex++.'</td>'.                  '<td>'.$foilindex++.'</td>'.
                 '<td>'.$Foildata{$firstfoil}->{'name'}.'</td>'.                  '<td>'.&HTML::Entities::encode($Foildata{$firstfoil}->{'name'}).'</td>'.
                 '<td>'.$Foildata{$firstfoil}->{'text'}.'</td>'.                  '<td>'.&HTML::Entities::encode($Foildata{$firstfoil}->{'text'}).'</td>'.
                 '<td>'.$Foildata{$firstfoil}->{'value'}.'</td>'.                  '<td>'.&HTML::Entities::encode($Foildata{$firstfoil}->{'value'}).'</td>'.
                 "</tr>\n";                  "</tr>\n";
         }          }
         foreach my $foilid (@FoilsInConcept) {          foreach my $foilid (@FoilsInConcept) {
Line 1333  sub build_foil_index { Line 1333  sub build_foil_index {
                     '<td></td>'.                      '<td></td>'.
                     '<td></td>'.                      '<td></td>'.
                     '<td>'.$foilindex.'</td>'.                      '<td>'.$foilindex.'</td>'.
                     '<td>'.$Foildata{$foilid}->{'name'}.'</td>'.                      '<td>'.&HTML::Entities::encode($Foildata{$foilid}->{'name'}).'</td>'.
                     '<td>'.$Foildata{$foilid}->{'text'}.'</td>'.                      '<td>'.&HTML::Entities::encode($Foildata{$foilid}->{'text'}).'</td>'.
                     '<td>'.$Foildata{$foilid}->{'value'}.'</td>'.                      '<td>'.&HTML::Entities::encode($Foildata{$foilid}->{'value'}).'</td>'.
                     "</tr>\n";                      "</tr>\n";
             } else {              } else {
                 $table .= '<tr>'.                  $table .= '<tr>'.
                     '<td>'.$foilindex.'</td>'.                      '<td>'.$foilindex.'</td>'.
                     '<td>'.$Foildata{$foilid}->{'name'}.'</td>'.                      '<td>'.&HTML::Entities::encode($Foildata{$foilid}->{'name'}).'</td>'.
                     '<td>'.$Foildata{$foilid}->{'text'}.'</td>'.                      '<td>'.&HTML::Entities::encode($Foildata{$foilid}->{'text'}).'</td>'.
                     '<td>'.$Foildata{$foilid}->{'value'}.'</td>'.                      '<td>'.&HTML::Entities::encode($Foildata{$foilid}->{'value'}).'</td>'.
                     "</tr>\n";                      "</tr>\n";
             }                              }                
         } continue {          } continue {
Line 1367  sub build_option_index { Line 1367  sub build_option_index {
               '<tr>'.                '<tr>'.
               '<td bgcolor="'.$plotcolors->[$optionindex++].'">'.                '<td bgcolor="'.$plotcolors->[$optionindex++].'">'.
               ('&nbsp;'x4).'</td>'.                ('&nbsp;'x4).'</td>'.
               '<td>'.$option.'</td>'.                '<td>'.&HTML::Entities::encode($option).'</td>'.
               "</tr>\n");                "</tr>\n");
     }      }
     shift(@Rows); # Throw away 'correct option chosen' color      shift(@Rows); # Throw away 'correct option chosen' color
Removed from v.1.61  
changed lines
  Added in v.1.63

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