[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.84 and 1.85

version 1.84, 2004/04/01 15:32:06 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 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.84  
changed lines
  Added in v.1.85

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