Diff for /loncom/interface/statistics/lonproblemanalysis.pm between versions 1.82 and 1.85

version 1.82, 2004/03/22 17:25:27 version 1.85, 2004/06/04 21:42:18
Line 51  my @SubmitButtons = ({ name => 'PrevProb Line 51  my @SubmitButtons = ({ name => 'PrevProb
                      { name => 'NextProblemAnalysis',                       { name => 'NextProblemAnalysis',
                        text => 'Next Problem' },                         text => 'Next Problem' },
                      { name => 'break'},                       { name => 'break'},
                      { name => 'ClearCache',  
                        text => 'Clear Caches' },  
                      { name => 'updatecaches',  
                        text => 'Update Student Data' },  
                      { name => 'SelectAnother',                       { name => 'SelectAnother',
                        text => 'Choose a different Problem' },                         text => 'Choose a different Problem' },
                      { name => 'ExcelOutput',                       { name => 'ExcelOutput',
Line 85  sub BuildProblemAnalysisPage { Line 81  sub BuildProblemAnalysisPage {
         $r->print('<h2>There are no students in the sections selected</h2>');          $r->print('<h2>There are no students in the sections selected</h2>');
     }      }
     #      #
     &Apache::loncoursedata::clear_internal_caches();      my @CacheButtonHTML = 
     if (exists($ENV{'form.ClearCache'}) ||           &Apache::lonstathelpers::manage_caches($r,'Statistics','stats_status');
         exists($ENV{'form.updatecaches'}) ||  
         (exists($ENV{'form.firstanalysis'}) &&  
          $ENV{'form.firstanalysis'} ne 'no')) {  
         &Apache::lonstatistics::Gather_Full_Student_Data($r);  
     }  
     if (! exists($ENV{'form.firstanalysis'})) {  
         $r->print('<input type="hidden" name="firstanalysis" value="yes" />');  
     } else {  
         $r->print('<input type="hidden" name="firstanalysis" value="no" />');  
     }  
     $r->rflush();      $r->rflush();
     #      #
     my $problem_types = '(option|radiobutton|numerical)';      my $problem_types = '(option|radiobutton|numerical)';
Line 111  sub BuildProblemAnalysisPage { Line 97  sub BuildProblemAnalysisPage {
                 $r->print('&nbsp;'x5);                  $r->print('&nbsp;'x5);
             }              }
         }          }
           foreach my $html (@CacheButtonHTML) {
               $r->print($html.('&nbsp;'x5));
           }
         #          #
         $r->print('<hr />');          $r->print('<hr />');
         $r->rflush();          $r->rflush();
Line 230  sub NumericalResponseAnalysis { Line 219  sub NumericalResponseAnalysis {
     }      }
     #      #
     # This next call causes all the waiting around that people complain about      # This next call causes all the waiting around that people complain about
     my ($max,$min) = &Apache::lonstathelpers::GetStudentAnswers($r,$problem,      my ($max,$min) = 
                                                                 $Students);          &Apache::lonstathelpers::GetStudentAnswers($r,$problem,$Students,
                                                      'Statistics',
                                                      'stats_status');
     return if ($c->aborted());      return if ($c->aborted());
     #      #
     # Collate the data      # Collate the data
Line 1320  sub build_foil_index { Line 1311  sub build_foil_index {
         if (@Concepts > 1) {          if (@Concepts > 1) {
             $table .= '<tr>'.              $table .= '<tr>'.
                 '<td>'.$conceptindex.'</td>'.                  '<td>'.$conceptindex.'</td>'.
                 '<td>'.&HTML::Entities::encode($concept->{'name'}).'</td>'.                  '<td>'.&HTML::Entities::encode($concept->{'name'},'<>&"').'</td>'.
                 '<td>'.$foilindex++.'</td>'.                  '<td>'.$foilindex++.'</td>'.
                 '<td>'.&HTML::Entities::encode($Foildata{$firstfoil}->{'name'}).'</td>'.                  '<td>'.&HTML::Entities::encode($Foildata{$firstfoil}->{'name'},'<>&"').'</td>'.
                 '<td>'.$Foildata{$firstfoil}->{'text'}.'</td>'.                  '<td>'.$Foildata{$firstfoil}->{'text'}.'</td>'.
                 '<td>'.&HTML::Entities::encode($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>'.&HTML::Entities::encode($Foildata{$firstfoil}->{'name'}).'</td>'.                  '<td>'.&HTML::Entities::encode($Foildata{$firstfoil}->{'name'},'<>&"').'</td>'.
                 '<td>'.$Foildata{$firstfoil}->{'text'}.'</td>'.                  '<td>'.$Foildata{$firstfoil}->{'text'}.'</td>'.
                 '<td>'.&HTML::Entities::encode($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 1340  sub build_foil_index { Line 1331  sub build_foil_index {
                     '<td></td>'.                      '<td></td>'.
                     '<td></td>'.                      '<td></td>'.
                     '<td>'.$foilindex.'</td>'.                      '<td>'.$foilindex.'</td>'.
                     '<td>'.&HTML::Entities::encode($Foildata{$foilid}->{'name'}).'</td>'.                      '<td>'.&HTML::Entities::encode($Foildata{$foilid}->{'name'},'<>&"').'</td>'.
                     '<td>'.$Foildata{$foilid}->{'text'}.'</td>'.                      '<td>'.$Foildata{$foilid}->{'text'}.'</td>'.
                     '<td>'.&HTML::Entities::encode($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>'.&HTML::Entities::encode($Foildata{$foilid}->{'name'}).'</td>'.                      '<td>'.&HTML::Entities::encode($Foildata{$foilid}->{'name'},'<>&"').'</td>'.
                     '<td>'.$Foildata{$foilid}->{'text'}.'</td>'.                      '<td>'.$Foildata{$foilid}->{'text'}.'</td>'.
                     '<td>'.&HTML::Entities::encode($Foildata{$foilid}->{'value'}).'</td>'.                      '<td>'.&HTML::Entities::encode($Foildata{$foilid}->{'value'},'<>&"').'</td>'.
                     "</tr>\n";                      "</tr>\n";
             }                              }                
         } continue {          } continue {
Line 1374  sub build_option_index { Line 1365  sub build_option_index {
               '<tr>'.                '<tr>'.
               '<td bgcolor="'.$plotcolors->[$optionindex++].'">'.                '<td bgcolor="'.$plotcolors->[$optionindex++].'">'.
               ('&nbsp;'x4).'</td>'.                ('&nbsp;'x4).'</td>'.
               '<td>'.&HTML::Entities::encode($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
Line 1468  sub CreateInterface { Line 1459  sub CreateInterface {
             $Str .= '</select></nobr><br />';              $Str .= '</select></nobr><br />';
         }          }
         {          {
             $Str .= '<br /><nobr>'.&mt('Number of Plots:');              $Str .= '<nobr>'.&mt('Number of Plots:');
             $Str .= &Apache::loncommon::help_open_topic              $Str .= &Apache::loncommon::help_open_topic
                                                   ('Analysis_num_plots');                                                    ('Analysis_num_plots');
             $Str .= '<select name="NumPlots">';              $Str .= '<select name="NumPlots">';
Line 1482  sub CreateInterface { Line 1473  sub CreateInterface {
                 if ($ENV{'form.NumPlots'} == $i) { $Str.=' selected '; }                  if ($ENV{'form.NumPlots'} == $i) { $Str.=' selected '; }
                 $Str .= '>'.$i.'</option>';                  $Str .= '>'.$i.'</option>';
             }              }
             $Str .= '</select></nobr>';              $Str .= '</select></nobr><br />';
           }
           {
               $Str .= '<nobr>'.&mt('Status: [_1]',
                                    '<input type="text" '.
                                    'name="stats_status" size="60" value="" />'
                                    ).
                       '</nobr><br />';
         }          }
     }      }
     $Str .= '</td>';      $Str .= '</td>';

Removed from v.1.82  
changed lines
  Added in v.1.85


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