--- loncom/cgi/graph.png 2001/10/10 15:26:00 1.1
+++ loncom/cgi/graph.png 2003/01/13 00:07:51 1.19
@@ -1,92 +1,135 @@
#!/usr/bin/perl
#
-# The LearningOnline Network with CAPA
+# $Id: graph.png,v 1.19 2003/01/13 00:07:51 minaeibi Exp $
#
-# Behrouz Minaei
-# 9/13/2001, 9/25/2001
-# 10/6/2001, 10,9,2001
+# Copyright Michigan State University Board of Trustees
+#
+# This file is part of the LearningOnline Network with CAPA (LON-CAPA).
+#
+# LON-CAPA is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# LON-CAPA is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with LON-CAPA; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+#
+# /home/httpd/cgi-bin/graph.gif
+#
+# http://www.lon-capa.org/
#
+# 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/
# A CGI script that dynamically outputs a graphical chart for lonstatistics.
+#
+####
use strict;
use GD::Graph::bars;
use GD::Graph::colour;
use GD::Graph::Data;
-my ($cid, $Tag, $Max, $PNo, $data) = split(/&/,$ENV{'QUERY_STRING'});
+$|=1; # Autoflush after each print/write
+my ($Titr,$xlab,$ylab,$Max,$PNo,$data1,$data2)=split(/&/,$ENV{'QUERY_STRING'});
+
+my @data11=split(/\,/,$data1);
+my @data12=split(/\,/,$data2);
+my $skip_x = 1;
+my $bar_space=10;
-my @data1=split(/\,/,$data);
-
my @xlabels;
-for (my $nIdx=0; $nIdx<$PNo; $nIdx++ ) {
- $xlabels[$nIdx]=$nIdx+1;
+
+if ($Titr =~ /^Percentage$/){
+ for (my $nIdx=0; $nIdx<$PNo; $nIdx++ ) {
+ $xlabels[$nIdx]=$nIdx;
+ }
+ @data11=();
+ @data11=split(/\,/,$data2);
+ @data12=();
+ $Titr = '';
+} else {
+ for (my $nIdx=0; $nIdx<$PNo; $nIdx++ ) {
+ $xlabels[$nIdx]=$nIdx+1;
+ }
}
-my @data =(\@xlabels,\@data1);
-#print "Content-type: text/html\n\n";
-#print $ENV{'QUERY_STRING';
-#print "
";
-#print $Max;
-#print "
";
-#print $PNo;
-#print "
";
-#print $data;
-#exit;
-
-my $Range;
-if ( $PNo > 10 ) {$Range = 30*$PNo;}
-else { $Range = 300+30*$PNo; }
-
-if ( $Max < 1 ) { $Max = 1; }
-elsif ( $Max < 10 ) { $Max = 10; }
-elsif ( $Max < 100 ) { $Max = 100; }
+my @data =(\@xlabels,\@data11,\@data12);
-my $MyGraph = GD::Graph::bars->new($Range, 400);
+my $Range1;
+my $Range2;
+
+if ($xlab=~/^Concepts$/){
+ $Range1=270;
+ $Range2=200;
+} elsif ($xlab=~/^Problem_number$/){
+ $Range1=450;
+ $Range2=200;
+} else {
+ $Range1=800;#*$PNo;
+ $Range2=200;
+ $skip_x=5;
+ $bar_space=1;
+}
+
+
+my $MyGraph = GD::Graph::bars->new($Range1,$Range2);
$MyGraph->set(
- x_label => 'Problems #',
- y_label => $Tag,
- title => 'LON-CAPA Graphical Chart, Course: '.$cid,
+ x_label => $xlab,
+ y_label => $ylab,
+ long_ticks => 1,
+ tick_length => 0,
+ x_ticks => 0,
+ title => $Titr,
y_max_value => $Max,
- y_tick_number => 10,
- y_label_skip => 1,
- x_label_skip => 2,
-
- # colors
- dclrs => [ qw(green lblue lyellow lpurple cyan lorange)],
+# y_tick_number => $ytic,
+ y_label_skip => 5,
+ x_label_skip => $skip_x,
+
+ dclrs => [ qw( lgreen dgreen lyellow lpurple cyan lorange)],
- # shadows
- bar_spacing => 4,
- shadow_depth => 1,
- shadowclr => 'dred',
+ bar_spacing => $bar_space,
+ cumulate => 2,
+ zero_axis => 1,
+
+# legend_placement => 'RT',
+
+ fgclr => 'black',
+ boxclr => 'white',
+ accentclr => 'dblue',
+ valuesclr => '#ffff77',
+ l_margin => 10,
+ b_margin => 10,
+ r_margin => 10,
+ t_margin => 10,
transparent => 0,
) or warn $MyGraph->error;
-# Tell the server we are sending a gif graphic
+
+# Tell the server we are sending a png graphic
print <plot(\@data)->png;
undef $MyGraph;
binmode(STDOUT);
-open IMG,"|pngtopnm|ppmtogif"; # convert into a gif image
-print IMG $BinaryData; # output image
-$|=1; # be sure to flush before closing
-close IMG;
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+#open IMG,"|pngtopnm|ppmtogif 2>/dev/null"; # convert into a gif image
+#print IMG $BinaryData; # output image
+#$|=1; # be sure to flush before closing
+#close IMG;
+print $BinaryData;