--- loncom/interface/lonstatistics.pm 2013/03/18 01:28:27 1.156.2.2
+++ loncom/interface/lonstatistics.pm 2016/08/14 16:13:22 1.163
@@ -1,6 +1,6 @@
# The LearningOnline Network with CAPA
#
-# $Id: lonstatistics.pm,v 1.156.2.2 2013/03/18 01:28:27 raeburn Exp $
+# $Id: lonstatistics.pm,v 1.163 2016/08/14 16:13:22 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -366,7 +366,7 @@ sub section_or_group_text {
sub get_students {
if (! @Students) {
- &PrepareClasslist()
+ &PrepareClasslist();
}
return @Students;
}
@@ -511,7 +511,7 @@ sub map_select {
if ($selected_maps[0] eq 'all') {
$form .= ' selected="selected"';
}
- $form .= ">all\n";
+ $form .= '>'.&mt('all').''."\n";
#
# Loop through the sequences
my @sequences = &selected_sequences_with_assessments('all');
@@ -547,6 +547,11 @@ sub SectionSelect {
&PrepareClasslist()
}
#
+ # Make sure course's student table is up to date
+ if (@Sections) {
+ &Apache::loncoursedata::ensure_current_sections();
+ }
+ #
# Build the form element
my $Str = "\n";
$Str .= '
';
+ $Str .= '';
$Str .= '';
$r->print($Str);
@@ -696,8 +709,8 @@ sub DisplayClasslist {
.&Apache::loncommon::start_data_table_header_row();
foreach my $field (@Fields) {
$Str .= ''.&mt($field).
' | ';
}
@@ -712,8 +725,8 @@ sub DisplayClasslist {
if ($field eq 'fullname' || $field eq 'username') {
$Str .= '';
$Str .= $student->{$field};
$Str .= '';
@@ -725,7 +738,6 @@ sub DisplayClasslist {
} else {
$Str .= $student->{$field};
}
- $Str .= $student->{$field};
}
$Str .= '';
}
@@ -844,8 +856,9 @@ ENDSTYLE
bug=>'Statistics and Charts'});
if (! exists($env{'form.reportSelected'}) ||
$env{'form.reportSelected'} eq '') {
- $r->print(&Apache::lonhtmlcommon::breadcrumbs('Statistics Main Page').
- &CreateMainMenu());
+ $r->print(&Apache::lonhtmlcommon::breadcrumbs('Statistics Main Page'));
+ &Apache::lonquickgrades::startGradeScreen($r,'statistics');
+ $r->print(&CreateMainMenu());
} else {
#
if (! &Apache::lonmysql::verify_sql_connection()) {
@@ -868,7 +881,7 @@ ENDSTYLE
#
# Clean out the caches
if (exists($env{'form.ClearCache'})) {
- &Apache::loncoursedata::delete_caches($env{'requres.course.id'});
+ &Apache::loncoursedata::delete_caches($env{'request.course.id'});
}
#
my $GoToPage = $env{'form.reportSelected'};
@@ -932,6 +945,7 @@ ENDSTYLE
#
$r->print("\n");
}
+ &Apache::lonquickgrades::endGradeScreen($r);
$r->print(&Apache::loncommon::end_page());
$r->rflush();
#