version 1.18, 2003/01/11 06:28:19
|
version 1.21, 2003/03/26 21:52:37
|
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 41 use GD::Graph::bars;
|
Line 41 use GD::Graph::bars;
|
use GD::Graph::colour; |
use GD::Graph::colour; |
use GD::Graph::Data; |
use GD::Graph::Data; |
|
|
|
sub unescape { |
|
my $str=shift; |
|
$str =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg; |
|
return $str; |
|
} |
|
|
$|=1; # Autoflush after each print/write |
$|=1; # Autoflush after each print/write |
my ($Titr,$xlab,$ylab,$Max,$PNo,$data1,$data2)=split(/&/,$ENV{'QUERY_STRING'}); |
my ($Titr,$xlab,$ylab,$Max,$PNo,$data1,$data2)=split(/&/,$ENV{'QUERY_STRING'}); |
|
$Titr = &unescape($Titr); |
|
$xlab = &unescape($xlab); |
|
$ylab = &unescape($ylab); |
|
|
my @data11=split(/\,/,$data1); |
my @data11=split(/\,/,$data1); |
my @data12=split(/\,/,$data2); |
my @data12=split(/\,/,$data2); |
Line 51 my $bar_space=10;
|
Line 60 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 67 if ($xlab=~/^Percentage$/){
|
Line 76 if ($xlab=~/^Percentage$/){
|
|
|
my @data =(\@xlabels,\@data11,\@data12); |
my @data =(\@xlabels,\@data11,\@data12); |
|
|
my $Range1; |
my $width; |
my $Range2; |
my $height = 200; |
|
|
if ($xlab=~/^Concepts$/){ |
if ($xlab=~/^Concepts$/){ |
$Range1=270; |
$width=270; |
$Range2=200; |
} elsif ($xlab=~/^Problem\snumber$/){ |
} elsif ($xlab=~/^Percentage$/){ |
$width=450; |
$Range1=800;#*$PNo; |
} else { |
$Range2=200; |
$width=($PNo==100) ? 800 : (120+$PNo*10); |
$skip_x=5; |
$skip_x=5; |
$bar_space=1; |
$bar_space=1; |
$xlab='Percentage_of_Correct_Problems'; |
|
} else { |
|
$Range1=450; |
|
$Range2=200; |
|
} |
} |
|
|
|
my $x_tick_offset = 0; |
|
if ($skip_x > 1) { |
|
$x_tick_offset = $skip_x - 1; |
|
} |
|
|
my $MyGraph = GD::Graph::bars->new($Range1,$Range2); |
my $MyGraph = GD::Graph::bars->new($width,$height); |
|
|
$MyGraph->set( |
$MyGraph->set( |
x_label => $xlab, |
x_label => $xlab, |
y_label => $ylab, |
y_label => $ylab, |
|
x_label_position => 0.5, |
long_ticks => 1, |
long_ticks => 1, |
tick_length => 0, |
tick_length => 0, |
x_ticks => 0, |
x_ticks => 0, |
Line 98 $MyGraph->set(
|
Line 108 $MyGraph->set(
|
# y_tick_number => $ytic, |
# y_tick_number => $ytic, |
y_label_skip => 5, |
y_label_skip => 5, |
x_label_skip => $skip_x, |
x_label_skip => $skip_x, |
|
x_tick_offset => $x_tick_offset, |
|
|
dclrs => [ qw( lgreen dgreen lyellow lpurple cyan lorange)], |
dclrs => [ qw( lgreen dgreen lyellow lpurple cyan lorange)], |
|
|