[BACK]Return to lonstatistics.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonstatistics.pm between versions 1.156.2.7 and 1.156.2.8

version 1.156.2.7, 2016/08/14 16:38:05 version 1.156.2.8, 2020/11/11 22:27:41
Line 832  sub handler { Line 832  sub handler {
     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},      &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
                                             ['sort','reportSelected',                                              ['sort','reportSelected',
                                              'SelectedStudent']);                                               'SelectedStudent']);
       my $GoToPage = $env{'form.reportSelected'};
   
     #      #
     # Give the LON-CAPA page header      # Give the LON-CAPA page header
     my $style = <<ENDSTYLE;      my $style = <<ENDSTYLE;
Line 842  sub handler { Line 844  sub handler {
     td.essay          { border: 1px solid gray; }      td.essay          { border: 1px solid gray; }
 </style>  </style>
 ENDSTYLE  ENDSTYLE
   
       my $head_extra = $style;
       if (($env{'form.reportSelected'} eq 'student_submission_reports') &&
           ($env{'form.renderprob'})) {
           my @Symbs = &Apache::lonstathelpers::get_selected_symbs('problemchoice');
           if (scalar(@Symbs) == 1) {
               $head_extra .= &Apache::loncommon::css_links($Symbs[0]);
           }
       } elsif ($env{'form.reportSelected'} eq 'submissiontime_analysis') {
           my ($navmap,$current_problem) =
               &Apache::lonsubmissiontimeanalysis::get_current_problem();
           if (ref($current_problem) eq 'HASH') {
               my $symb = $current_problem->{'symb'};
               if ($symb) {
                   $head_extra .= &Apache::loncommon::css_links($symb);
               }
           }
       } elsif (($env{'form.reportSelected'} eq 'problem_analysis') &&
                 ($env{'form.show_prob'})) {
           my $problem_types = &Apache::lonproblemanalysis::analyzable_types();
           my ($navmap,$current_problem) =
               &Apache::lonproblemanalysis::get_current_problem($problem_types);
           if (ref($current_problem) eq 'HASH') {
               my $symb = $current_problem->{'symb'};
               my $res = $current_problem->{'resource'};
               if ($symb) {
                   $head_extra .= &Apache::loncommon::css_links($symb);
               }
           }
       }
               
     $r->print(&Apache::loncommon::start_page('Course Statistics and Charts',      $r->print(&Apache::loncommon::start_page('Course Statistics and Charts',
      $style));       $head_extra));
     $r->rflush();      $r->rflush();
     #       # 
     # Either print out a menu for them or send them to a report      # Either print out a menu for them or send them to a report
Line 854  ENDSTYLE Line 886  ENDSTYLE
                                             text =>'Statistics',                                              text =>'Statistics',
                                             faq=>139,                                              faq=>139,
                                             bug=>'Statistics and Charts'});                                              bug=>'Statistics and Charts'});
     if (! exists($env{'form.reportSelected'}) ||       if ($GoToPage eq '') {
         $env{'form.reportSelected'} eq '') {  
         $r->print(&Apache::lonhtmlcommon::breadcrumbs('Statistics Main Page').          $r->print(&Apache::lonhtmlcommon::breadcrumbs('Statistics Main Page').
                   &CreateMainMenu());                    &CreateMainMenu());
     } else {      } else {
Line 883  ENDSTYLE Line 914  ENDSTYLE
             &Apache::loncoursedata::delete_caches($env{'request.course.id'});              &Apache::loncoursedata::delete_caches($env{'request.course.id'});
         }          }
         #          #
         my $GoToPage = $env{'form.reportSelected'};  
         #  
         # Begin form output          # Begin form output
         $r->print('<form name="Statistics" ');          $r->print('<form name="Statistics" ');
         if ($GoToPage eq 'student_submission_reports') {          if ($GoToPage eq 'student_submission_reports') {
Removed from v.1.156.2.7  
changed lines
  Added in v.1.156.2.8

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