version 1.17, 2003/01/08 03:31:54
|
version 1.20, 2003/01/13 17:41:45
|
Line 31
|
Line 31
|
# YEAR=2002 |
# YEAR=2002 |
# 2/1/, 5/13, 5/15 |
# 2/1/, 5/13, 5/15 |
# YEAR=2003 |
# YEAR=2003 |
# 1/7/ |
# 1/7/, 1/13 |
# A CGI script that dynamically outputs a graphical chart for lonstatistics. |
# A CGI script that dynamically outputs a graphical chart for lonstatistics. |
# |
# |
#### |
#### |
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 ($Titr =~ /^Percentage$/){ |
for (my $nIdx=0; $nIdx<$PNo; $nIdx++ ) { |
for (my $nIdx=0; $nIdx<$PNo; $nIdx++ ) { |
$xlabels[$nIdx]=$data11[$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 65 if ($xlab=~/^Percentage$/){
|
Line 68 if ($xlab=~/^Percentage$/){
|
my @data =(\@xlabels,\@data11,\@data12); |
my @data =(\@xlabels,\@data11,\@data12); |
|
|
my $Range1; |
my $Range1; |
my $Range2; |
my $Range2 = 200; |
|
|
if ($xlab=~/^Concepts$/){ |
if ($xlab=~/^Concepts$/){ |
$Range1=270; |
$Range1=270; |
$Range2=200; |
} elsif ($xlab=~/^Problem_number$/){ |
} elsif ($xlab=~/^Percentage$/){ |
|
$Range1=250+20*$PNo; |
|
$Range2=200; |
|
} else { |
|
$Range1=450; |
$Range1=450; |
$Range2=200; |
} else { |
|
$Range1=($PNo==100) ? 800 : (120+$PNo*10); |
|
$skip_x=5; |
|
$bar_space=1; |
} |
} |
|
|
|
|
Line 90 $MyGraph->set(
|
Line 92 $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, |
|
|