--- loncom/interface/statistics/lonproblemanalysis.pm 2003/10/13 21:12:56 1.34 +++ loncom/interface/statistics/lonproblemanalysis.pm 2003/10/14 14:23:14 1.35 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # -# $Id: lonproblemanalysis.pm,v 1.34 2003/10/13 21:12:56 matthew Exp $ +# $Id: lonproblemanalysis.pm,v 1.35 2003/10/14 14:23:14 matthew Exp $ # # Copyright Michigan State University Board of Trustees # @@ -218,25 +218,18 @@ sub tries_analysis { } $maxstu = 0 if (! $maxstu); $minstu = 0 if (! $minstu); - my $graphlink; + my $title; if ($maxstu == $minstu) { - $graphlink = &Apache::loncommon::DrawGraph - ('Attempt '.$i.', '.$maxstu.' students', - 'Foil Number', - 'Percent Correct', - 100, - $PlotData[$i]->{'good'}, - $PlotData[$i]->{'bad'}); + $title = 'Attempt '.$i.', '.$maxstu.' students'; } else { - $graphlink = &Apache::loncommon::DrawGraph - ('Attempt '.$i.', '.$minstu.'-'.$maxstu. - ' students', - 'Foil Number', - 'Percent Correct', - 100, - $PlotData[$i]->{'good'}, - $PlotData[$i]->{'bad'}); + $title = 'Attempt '.$i.', '.$minstu.'-'.$maxstu.' students'; } + my $graphlink = &Apache::loncommon::DrawGraph($title, + 'Foil Number', + 'Percent Correct', + 100, + $PlotData[$i]->{'good'}, + $PlotData[$i]->{'bad'}); push(@Plots,$graphlink); } # @@ -334,7 +327,7 @@ sub time_analysis { last if ($PerformanceData->[$j]->[2] > $endtime); } $end_index = $j; - $plottitle = 'Tries plot '.$i; + $plottitle = 'Tries plot '.($i+1); } ($plothtml,$starttime,$endtime,$data) =