[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.142.2.3 and 1.146

version 1.142.2.3, 2013/12/30 14:19:58 version 1.146, 2014/02/26 17:46:19
Line 31  use Apache::lonnet; Line 31  use Apache::lonnet;
 use Apache::loncommon();  use Apache::loncommon();
 use Apache::lonhtmlcommon();  use Apache::lonhtmlcommon();
 use Apache::loncoursedata();  use Apache::loncoursedata();
   use Apache::lonquickgrades();
 use Apache::lonstatistics;  use Apache::lonstatistics;
 use Apache::lonlocal;  use Apache::lonlocal;
 use Apache::lonstathelpers();  use Apache::lonstathelpers();
Line 74  sub BuildProblemAnalysisPage { Line 75  sub BuildProblemAnalysisPage {
     &Apache::lonstatistics::PrepareClasslist();      &Apache::lonstatistics::PrepareClasslist();
     #      #
     $r->print(&Apache::lonhtmlcommon::breadcrumbs('Detailed Problem Analysis'));      $r->print(&Apache::lonhtmlcommon::breadcrumbs('Detailed Problem Analysis'));
       &Apache::lonquickgrades::startGradeScreen($r,'statistics');
   
     $r->print(&CreateInterface());      $r->print(&CreateInterface());
     #      #
Line 1260  sub OptionResponseAnalysis { Line 1262  sub OptionResponseAnalysis {
             $r->print($analysis_html);              $r->print($analysis_html);
             $r->rflush();              $r->rflush();
         } else {          } else {
             $r->print('div class="LC_warning"'              $r->print('<div class="LC_warning">'
                      .&mt('The analysis you have selected is not supported at this time.')                       .&mt('The analysis you have selected is not supported at this time.')
                      .'</div>'                       .'</div>'
             );              );
Line 1947  sub CreateInterface { Line 1949  sub CreateInterface {
         $showprob_checkbox.' '.&mt('Show problem').          $showprob_checkbox.' '.&mt('Show problem').
         '</label></span><br />';          '</label></span><br />';
     ##      ##
     my $analyze_selector = '<select name="AnalyzeOver" >';      my $analyze_selector = '<select name="AnalyzeOver">';
     $analyze_selector .= '<option value="tries" ';      $analyze_selector .= '<option value="tries"';
     if (! exists($env{'form.AnalyzeOver'}) ||       if (! exists($env{'form.AnalyzeOver'}) || 
         $env{'form.AnalyzeOver'} eq 'tries'){          $env{'form.AnalyzeOver'} eq 'tries'){
         # Default to tries          # Default to tries
         $analyze_selector .= ' selected="selected" ';          $analyze_selector .= ' selected="selected"';
     }      }
     $analyze_selector .= '>'.&mt('Tries').'</option>';      $analyze_selector .= '>'.&mt('Tries').'</option>';
     $analyze_selector .= '<option value="time" ';      $analyze_selector .= '<option value="time"';
     $analyze_selector .= ' selected ' if ($env{'form.AnalyzeOver'} eq 'time');      $analyze_selector .= ' selected="selected"' if ($env{'form.AnalyzeOver'} eq 'time');
     $analyze_selector .= '>'.&mt('Time').'</option>';      $analyze_selector .= '>'.&mt('Time').'</option>';
     $analyze_selector .= '</select>';      $analyze_selector .= '</select>';
     $Str .= '<span class="LC_nobreak"><label>'.      $Str .= '<span class="LC_nobreak"><label>'.
Removed from v.1.142.2.3  
changed lines
  Added in v.1.146

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