loncom/cgi/graph.png - diff

Return to graph.png CVS log

Up to [LON-CAPA] / loncom / cgi

version 1.18, 2003/01/11 06:28:19	version 1.19, 2003/01/13 00:07:51
Line 51 my $bar_space=10;	Line 51 my $bar_space=10;

my @xlabels;	my @xlabels;

if ($xlab=~/^Percentage$/){	if ($Titr =~ /^Percentage$/){
for (my $nIdx=0; $nIdx<$PNo; $nIdx++ ) {	for (my $nIdx=0; $nIdx<$PNo; $nIdx++ ) {
# $xlabels[$nIdx]=$data11[$nIdx];
$xlabels[$nIdx]=$nIdx;	$xlabels[$nIdx]=$nIdx;
}	}
@data11=();	@data11=();
@data11=split(/\,/,$data2);	@data11=split(/\,/,$data2);
@data12=();	@data12=();
	$Titr = '';
} else {	} else {
for (my $nIdx=0; $nIdx<$PNo; $nIdx++ ) {	for (my $nIdx=0; $nIdx<$PNo; $nIdx++ ) {
$xlabels[$nIdx]=$nIdx+1;	$xlabels[$nIdx]=$nIdx+1;
Line 73 my $Range2;	Line 73 my $Range2;
if ($xlab=~/^Concepts$/){	if ($xlab=~/^Concepts$/){
$Range1=270;	$Range1=270;
$Range2=200;	$Range2=200;
} elsif ($xlab=~/^Percentage$/){	} elsif ($xlab=~/^Problem_number$/){
	$Range1=450;
	$Range2=200;
	} else {
$Range1=800;#*$PNo;	$Range1=800;#*$PNo;
$Range2=200;	$Range2=200;
$skip_x=5;	$skip_x=5;
$bar_space=1;	$bar_space=1;
$xlab='Percentage_of_Correct_Problems';
} else {
$Range1=450;
$Range2=200;
}	}