--- loncom/interface/statistics/loncorrectproblemplot.pm 2011/01/17 00:19:41 1.25 +++ loncom/interface/statistics/loncorrectproblemplot.pm 2012/05/03 11:21:33 1.27 @@ -1,6 +1,6 @@ # The LearningOnline Network with CAPA # -# $Id: loncorrectproblemplot.pm,v 1.25 2011/01/17 00:19:41 www Exp $ +# $Id: loncorrectproblemplot.pm,v 1.27 2012/05/03 11:21:33 goltermann Exp $ # # Copyright Michigan State University Board of Trustees # @@ -127,9 +127,9 @@ sub BuildCorrectProblemsPage { } } } - $r->print('
'. &Apache::lonstatistics::section_and_enrollment_description(). - ''); + '
'); my ($starttime,$endtime) = &Apache::lonstathelpers::get_time_limits(); if (defined($starttime) || defined($endtime)) { # Inform the user what the time limits on the data are. @@ -146,7 +146,7 @@ sub BuildCorrectProblemsPage { $starttime,$endtime); $r->print(&AnalyzeScoreData($score_data,$title,$total_weights)); } else { - $r->print(''.&mt('Make a sequence selection from the "Sequences and Folders" menu and hit "Create Plot" to begin').'
'); } return; } @@ -170,7 +170,7 @@ sub AnalyzeScoreData { # # Basic check first if (ref($score_data) ne 'ARRAY' || @$score_data < 1) { - return ''.&mt('There is no data to plot').'
'; } # # Determine which bins to use @@ -192,7 +192,10 @@ sub AnalyzeScoreData { ''. &mt('Problem weights do not reflect individual student settings.') .'
'. - 'Range | Count | Range | Count | '."\n". + &Apache::loncommon::end_data_table_header_row(); my $sum = 0; while (my $bin = shift(@Bins)) { push (@Xdata,$bin->{'start'}); @@ -201,12 +204,14 @@ sub AnalyzeScoreData { if ($bin->{'count'} > $max) { $max = $bin->{'count'}; } - $Str.= '
---|---|
'.$bin->{'start'}.' - '.$bin->{'end'}.' | '. - ''.$bin->{'count'}.' | '.$bin->{'start'}.' - '.$bin->{'end'}.' | '. + ''.$bin->{'count'}.' | '. + &Apache::loncommon::end_data_table_row().'
". &Apache::loncommon::DrawBarGraph($title.' ('.$sum.' students)', @@ -327,13 +332,6 @@ sub CreateInterface { # $Str .= &Apache::loncommon::end_data_table_row(); $Str .= &Apache::loncommon::end_data_table(); - # - $Str .= '
' - .&mt('Status: [_1]', - '') - .'
'; - $Str .= ''; ## return $Str; }