--- 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 .= '
' + .&mt('Status: [_1]', + '') + .'
'; + $Str .= ''; ## return $Str; }