loncom/interface/statistics/lonpercentage.pm - diff

Return to lonpercentage.pm CVS log

Up to [LON-CAPA] / loncom / interface / statistics

version 1.6, 2003/01/13 00:15:16	version 1.7, 2003/01/13 17:31:41
Line 241 sub GraphData {	Line 241 sub GraphData {
my $max = 0;	my $max = 0;
my $pno = 0;	my $pno = 0;

my $xlabel = ($totalProblems >= 100 ) ?
'Percentage_of_Problems_Correct' :
'Number_of_Problems_Correct';

foreach my $key (sort NumericSort keys(%percentages)) {	foreach my $key (sort NumericSort keys(%percentages)) {
push(@percent, $key);	push(@percent, $key);
my @temp = split(':::', $percentages{$key});	my @temp = split(':::', $percentages{$key});
Line 270 sub GraphData {	Line 266 sub GraphData {
}	}
}	}

# $r->print('<br> xlable='.$xlabel);	my $xlabel;
	my $Freq;
	if ($totalProblems >= 100 ) {
	$xlabel = 'Percentage_of_Problems_Correct';
	$Freq=100;
	} else {
	$xlabel = 'Number_of_Problems_Correct';
	$Freq = $cId;
	}

	# $r->print('<br>Freq='.$Freq);
# $r->print('<br>max='.$max);	# $r->print('<br>max='.$max);
# $r->print('<br> percentcount='.join(',', @percentCount));	# $r->print('<br> percentcount='.join(',', @percentCount));
# $r->print('<br> percent='.join(',', @percent));	# $r->print('<br> percent='.join(',', @percent));
Line 278 sub GraphData {	Line 284 sub GraphData {
# $r->print('<br> percent='.join(',', @data2));	# $r->print('<br> percent='.join(',', @data2));

my @GData = ("Percentage",$xlabel,	my @GData = ("Percentage",$xlabel,
'Number_of_Students',$max,100 ,	'Number_of_Students',$max,$Freq,
join(',',@data1), join(',', @data2));	join(',',@data1), join(',', @data2));

$Ptr .= '</form>'."\n";	$Ptr .= '</form>'."\n";