loncom/cgi/graph.png - diff

Return to graph.png CVS log

Up to [LON-CAPA] / loncom / cgi

version 1.13, 2002/05/19 15:47:25	version 1.14, 2002/08/06 18:10:03
Line 65 if ($xlab=~/^Concepts$/){	Line 65 if ($xlab=~/^Concepts$/){
$Range1 = 20*$PNo;	$Range1 = 20*$PNo;
} else {	} else {
$Range1 = 250+30*$PNo;	$Range1 = 250+30*$PNo;
}	}
$Range2=200;	$Range2=200;
}	}

Line 73 if ($xlab=~/^Concepts$/){	Line 73 if ($xlab=~/^Concepts$/){
my $MyGraph = GD::Graph::bars->new($Range1,$Range2);	my $MyGraph = GD::Graph::bars->new($Range1,$Range2);

$MyGraph->set(	$MyGraph->set(
# x_label => $xlab,	x_label => $xlab,
y_label => $ylab,	y_label => $ylab,
long_ticks => 1,	long_ticks => 1,
tick_length => 0,	tick_length => 0,
x_ticks => 0,	x_ticks => 0,
# title => 'LON-CAPA Option Response Problem:'.$cid,
title => $Titr,	title => $Titr,
y_max_value => $Max,	y_max_value => $Max,
# y_tick_number => $ytic,	# y_tick_number => $ytic,
Line 103 $MyGraph->set(	Line 102 $MyGraph->set(

transparent => 0,	transparent => 0,
) or warn $MyGraph->error;	) or warn $MyGraph->error;

#if ($xlab=~/^Concepts$/){	#if ($xlab=~/^Concepts$/){
# $MyGraph->set_legend( 'Correct Answers', 'Incorrect Answers');	# $MyGraph->set_legend( 'Correct Answers', 'Incorrect Answers');
#}	#}