version 1.21, 2003/03/26 21:52:37
|
version 1.23, 2003/10/09 15:56:41
|
Line 25
|
Line 25
|
# http://www.lon-capa.org/ |
# http://www.lon-capa.org/ |
# |
# |
# The LearningOnline Network with CAPA |
# The LearningOnline Network with CAPA |
# Behrouz Minaei |
# |
# YEAR=2001 |
|
# 9/13/01, 9/25/01, 10/6/01, 10/9/01, 12/25/01 |
|
# YEAR=2002 |
|
# 2/1/, 5/13, 5/15 |
|
# YEAR=2003 |
|
# 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. |
# |
# |
#### |
#### |
|
|
|
=pod |
|
|
|
=head1 NAME |
|
|
|
graph.png |
|
|
|
=head1 SYNOPSIS |
|
|
|
produces plots based on input |
|
|
|
=head1 DESCRIPTION |
|
|
|
graph.png is a cgi-bin script which produces plots based on input data. |
|
|
|
The query string is expected to be as follows (without whitespace): |
|
|
|
escape(Plot title) & escape(X label)& escape(Y label) & Maximum Y value & |
|
Number of bars & $data1 & $data2 |
|
|
|
$data1 and $data2 are expected to be comma seperated lists of numbers. |
|
escape( value ) means the values must be run through lonnet::escape. |
|
|
|
=cut |
|
|
use strict; |
use strict; |
use GD::Graph::bars; |
use GD::Graph::bars; |
use GD::Graph::colour; |
use GD::Graph::colour; |
Line 48 sub unescape {
|
Line 66 sub unescape {
|
} |
} |
|
|
$|=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,$NumBars,$data1,$data2)=split(/&/,$ENV{'QUERY_STRING'}); |
$Titr = &unescape($Titr); |
$Titr = &unescape($Titr); |
$xlab = &unescape($xlab); |
$xlab = &unescape($xlab); |
$ylab = &unescape($ylab); |
$ylab = &unescape($ylab); |
Line 56 $ylab = &unescape($ylab);
|
Line 74 $ylab = &unescape($ylab);
|
my @data11=split(/\,/,$data1); |
my @data11=split(/\,/,$data1); |
my @data12=split(/\,/,$data2); |
my @data12=split(/\,/,$data2); |
my $skip_x = 1; |
my $skip_x = 1; |
my $bar_space=10; |
#my $bar_space=1; |
|
my $bar_width=10; |
|
|
my @xlabels; |
my @xlabels; |
|
|
if ($Titr =~ /^Percentage$/){ |
for (my $nIdx=0; $nIdx<$NumBars; $nIdx++ ) { |
for (my $nIdx=0; $nIdx<$PNo; $nIdx++ ) { |
$xlabels[$nIdx]=$nIdx+1; |
$xlabels[$nIdx]=$nIdx; |
} |
} |
|
@data11=(); |
#if ($Titr =~ /^Percentage$/){ |
@data11=split(/\,/,$data2); |
# for (my $nIdx=0; $nIdx<$NumBars; $nIdx++ ) { |
@data12=(); |
# $xlabels[$nIdx]=$nIdx; |
$Titr = ''; |
# } |
} else { |
# @data11=(); |
for (my $nIdx=0; $nIdx<$PNo; $nIdx++ ) { |
# @data11=split(/\,/,$data2); |
$xlabels[$nIdx]=$nIdx+1; |
# @data12=(); |
} |
# $Titr = ''; |
} |
#} else { |
|
#} |
|
|
my @data =(\@xlabels,\@data11,\@data12); |
my @data =(\@xlabels,\@data11,\@data12); |
|
|
my $width; |
my $width; |
my $height = 200; |
my $height = 200; |
|
|
if ($xlab=~/^Concepts$/){ |
if ($NumBars < 10) { |
$width=270; |
$width = 120+$NumBars*15; |
} elsif ($xlab=~/^Problem\snumber$/){ |
$skip_x = 1; |
$width=450; |
$bar_width = 15; |
|
} elsif ($NumBars <= 25) { |
|
$width = 120+$NumBars*11; |
|
$skip_x = 5; |
|
$bar_width = 8; |
|
} elsif ($NumBars <= 50) { |
|
$width = 120+$NumBars*8; |
|
$skip_x = 5; |
|
$bar_width = 4; |
} else { |
} else { |
$width=($PNo==100) ? 800 : (120+$PNo*10); |
$width = 120+$NumBars*8; |
$skip_x=5; |
$skip_x = 5; |
$bar_space=1; |
$bar_width = 4; |
} |
} |
|
|
my $x_tick_offset = 0; |
my $x_tick_offset = 0; |
Line 106 $MyGraph->set(
|
Line 134 $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 => 5, |
# y_label_skip => 5, |
x_label_skip => $skip_x, |
x_label_skip => $skip_x, |
x_tick_offset => $x_tick_offset, |
x_tick_offset => $x_tick_offset, |
|
|
dclrs => [ qw( lgreen dgreen lyellow lpurple cyan lorange)], |
dclrs => [ qw( lgreen dgreen lyellow lpurple cyan lorange)], |
|
bar_width => $bar_width, |
bar_spacing => $bar_space, |
# bar_spacing => $bar_space, |
cumulate => 2, |
cumulate => 2, |
zero_axis => 1, |
zero_axis => 1, |
|
|