loncom/cgi/graph.png - diff

Return to graph.png CVS log

Up to [LON-CAPA] / loncom / cgi

version 1.17, 2003/01/08 03:31:54	version 1.18, 2003/01/11 06:28:19
Line 46 my ($Titr,$xlab,$ylab,$Max,$PNo,$data1,$	Line 46 my ($Titr,$xlab,$ylab,$Max,$PNo,$data1,$

my @data11=split(/\,/,$data1);	my @data11=split(/\,/,$data1);
my @data12=split(/\,/,$data2);	my @data12=split(/\,/,$data2);
	my $skip_x = 1;
	my $bar_space=10;

my @xlabels;	my @xlabels;

if ($xlab=~/^Percentage$/){	if ($xlab=~/^Percentage$/){
for (my $nIdx=0; $nIdx<$PNo; $nIdx++ ) {	for (my $nIdx=0; $nIdx<$PNo; $nIdx++ ) {
$xlabels[$nIdx]=$data11[$nIdx];	# $xlabels[$nIdx]=$data11[$nIdx];
	$xlabels[$nIdx]=$nIdx;
}	}
@data11=();	@data11=();
@data11=split(/\,/,$data2);	@data11=split(/\,/,$data2);
Line 71 if ($xlab=~/^Concepts$/){	Line 74 if ($xlab=~/^Concepts$/){
$Range1=270;	$Range1=270;
$Range2=200;	$Range2=200;
} elsif ($xlab=~/^Percentage$/){	} elsif ($xlab=~/^Percentage$/){
$Range1=250+20*$PNo;	$Range1=800;#*$PNo;
$Range2=200;	$Range2=200;
	$skip_x=5;
	$bar_space=1;
	$xlab='Percentage_of_Correct_Problems';
} else {	} else {
$Range1=450;	$Range1=450;
$Range2=200;	$Range2=200;
Line 90 $MyGraph->set(	Line 96 $MyGraph->set(
title => $Titr,	title => $Titr,
y_max_value => $Max,	y_max_value => $Max,
# y_tick_number => $ytic,	# y_tick_number => $ytic,
y_label_skip => 1,	y_label_skip => 5,
	x_label_skip => $skip_x,

dclrs => [ qw( lgreen dgreen lyellow lpurple cyan lorange)],	dclrs => [ qw( lgreen dgreen lyellow lpurple cyan lorange)],

bar_spacing => 10,	bar_spacing => $bar_space,
cumulate => 2,	cumulate => 2,
zero_axis => 1,	zero_axis => 1,