--- loncom/interface/statistics/loncorrectproblemplot.pm 2006/05/05 20:03:43 1.20 +++ loncom/interface/statistics/loncorrectproblemplot.pm 2008/10/23 09:07:51 1.23 @@ -1,6 +1,6 @@ # The LearningOnline Network with CAPA # -# $Id: loncorrectproblemplot.pm,v 1.20 2006/05/05 20:03:43 raeburn Exp $ +# $Id: loncorrectproblemplot.pm,v 1.23 2008/10/23 09:07:51 bisitz Exp $ # # Copyright Michigan State University Board of Trustees # @@ -248,7 +248,7 @@ sub bin_data { my @Bins; my $count=0; my $idx=0; - while ($idx < scalar(@$data) && ($endbin-$binend + $binsize)>0) { + while ($idx < scalar(@$data) && ($endbin-$binend + $binsize)>=0) { my $dataset = $data->[$idx++]; my ($x,$y) = @{$dataset}; while ($x > ($binend-.001)) { @@ -297,7 +297,7 @@ sub CreateInterface { $Str .= ''; $Str .= ''.&mt('Sections').''; $Str .= ''.&mt('Groups').''; - $Str .= ''.&mt('Enrollment Status').''; + $Str .= ''.&mt('Access Status').''; $Str .= ''.&mt('Sequences and Folders').''; $Str .= ''. &Apache::lonstathelpers::limit_by_time_form().''; @@ -320,10 +320,12 @@ sub CreateInterface { $Str .= ''."\n"; $Str .= ''."\n"; # - $Str .= ''.&mt('Status: [_1]', - ''). - ''.'

'; + $Str .= '

' + .&mt('Status: [_1]', + '') + .'

'; + $Str .= '

'; ## return $Str; }