--- 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);