[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.161

version 1.156.2.7, 2016/08/14 16:38:05 version 1.161, 2015/03/10 00:47:18
Line 366  sub section_or_group_text { Line 366  sub section_or_group_text {
   
 sub get_students {  sub get_students {
     if (! @Students) {      if (! @Students) {
         &PrepareClasslist();          &PrepareClasslist()
     }      }
     return @Students;      return @Students;
 }  }
Line 547  sub SectionSelect { Line 547  sub SectionSelect {
         &PrepareClasslist()          &PrepareClasslist()
     }      }
     #      #
     # Make sure course's student table is up to date  
     if (@Sections) {  
         &Apache::loncoursedata::ensure_current_sections();  
     }  
     #  
     # Build the form element      # Build the form element
     my $Str = "\n";      my $Str = "\n";
     $Str .= '<select name="'.$elementname.'" ';      $Str .= '<select name="'.$elementname.'" ';
Line 587  sub GroupSelect { Line 582  sub GroupSelect {
         &PrepareClasslist();          &PrepareClasslist();
     }      }
     #      #
     # Make sure course's groupnames and studentgroups tables  
     # are up to date.  
     #  
     if (@Groups) {  
         &Apache::loncoursedata::ensure_current_groups();  
         &Apache::loncoursedata::ensure_current_students_groups();  
     }  
     #  
     # Build the form element      # Build the form element
     my $Str = "\n";      my $Str = "\n";
     $Str .= '<select name="'.$elementname.'" ';      $Str .= '<select name="'.$elementname.'" ';
Line 856  ENDSTYLE Line 843  ENDSTYLE
                                             bug=>'Statistics and Charts'});                                              bug=>'Statistics and Charts'});
     if (! exists($env{'form.reportSelected'}) ||       if (! exists($env{'form.reportSelected'}) || 
         $env{'form.reportSelected'} eq '') {          $env{'form.reportSelected'} eq '') {
         $r->print(&Apache::lonhtmlcommon::breadcrumbs('Statistics Main Page').          $r->print(&Apache::lonhtmlcommon::breadcrumbs('Statistics Main Page'));
                   &CreateMainMenu());          &Apache::lonquickgrades::startGradeScreen($r,'statistics');
           $r->print(&CreateMainMenu());
     } else {      } else {
     #      #
         if (! &Apache::lonmysql::verify_sql_connection()) {          if (! &Apache::lonmysql::verify_sql_connection()) {
Line 944  ENDSTYLE Line 932  ENDSTYLE
         #          #
         $r->print("</form>\n");          $r->print("</form>\n");
     }      }
       &Apache::lonquickgrades::endGradeScreen($r);
     $r->print(&Apache::loncommon::end_page());      $r->print(&Apache::loncommon::end_page());
     $r->rflush();      $r->rflush();
     #      #
Removed from v.1.156.2.7  
changed lines
  Added in v.1.161

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