--- loncom/interface/statistics/lonproblemstatistics.pm 2014/03/03 20:45:05 1.122.2.3 +++ loncom/interface/statistics/lonproblemstatistics.pm 2014/02/03 18:52:30 1.125 @@ -1,6 +1,6 @@ # The LearningOnline Network with CAPA # -# $Id: lonproblemstatistics.pm,v 1.122.2.3 2014/03/03 20:45:05 raeburn Exp $ +# $Id: lonproblemstatistics.pm,v 1.125 2014/02/03 18:52:30 bisitz Exp $ # # Copyright Michigan State University Board of Trustees # @@ -52,6 +52,7 @@ package Apache::lonproblemstatistics; use strict; use Apache::lonnet; use Apache::loncommon(); +use Apache::lonquickgrades(); use Apache::lonhtmlcommon; use Apache::loncoursedata; use Apache::lonstatistics; @@ -182,7 +183,7 @@ my @Fields = ( format => '%d', sortable => 'yes', graphable => 'yes', - long_title => 'Minimum Number of Tries', + long_title => 'Minumum Number of Tries', selectable => 'yes', defaultselected => 'yes', }, @@ -438,7 +439,7 @@ my @SeqFields = ( format => '%4.2f', sortable => 'no', graphable => 'no', - long_title => 'Minimum Sequence Score', + long_title => 'Minumum Sequence Score', selectable => 'yes', defaultselected => 'no', }, @@ -493,7 +494,7 @@ my @SeqFields = ( format => '%4.2f', sortable => 'no', graphable => 'no', - long_title => 'Minimum Number of Correct Problems', + long_title => 'Minumum Number of Correct Problems', selectable => 'yes', defaultselected => 'no', }, @@ -589,9 +590,9 @@ sub field_selection_input { $Str .= ''."\n"; foreach my $field (@Fields) { next if ($field->{'selectable'} ne 'yes'); - $Str .= ' '."\n"; } @@ -704,6 +705,7 @@ sub BuildProblemStatisticsPage { # Finally let the user know we are here $r->print(&Apache::lonhtmlcommon::breadcrumbs('Overall Problem Statistics', 'Statistics_Overall_Key')); + &Apache::lonquickgrades::startGradeScreen($r,'statistics'); my $interface = &CreateInterface($r); $r->print($interface);