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'); |
#} |
#} |