version 1.4, 2001/12/21 14:45:36
|
version 1.7, 2002/01/22 15:12:05
|
Line 1
|
Line 1
|
#!/usr/bin/perl |
#!/usr/bin/perl |
# |
# |
# The LearningOnline Network with CAPA |
# $Id$ |
|
# |
|
# 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 |
# Behrouz Minaei |
# 9/13/2001, 9/25/2001 |
# YEAR=2001 |
# 10/6/2001, 10,9,2001 |
# 9/13/2001, 9/25/2001, 10/6/2001, 10/9/2001, 12/25/2001 |
# |
# |
# A CGI script that dynamically outputs a graphical chart for lonstatistics. |
# A CGI script that dynamically outputs a graphical chart for lonstatistics. |
|
# |
|
#### |
|
|
use strict; |
use strict; |
use GD::Graph::bars3d; |
use GD::Graph::bars3d; |
Line 28 my $Range;
|
Line 53 my $Range;
|
if ( $PNo > 10 ) {$Range = 30*$PNo;} |
if ( $PNo > 10 ) {$Range = 30*$PNo;} |
else { $Range = 300+30*$PNo; } |
else { $Range = 300+30*$PNo; } |
|
|
if ( $Max <= 1 ) { $Max = 1; } |
$Max += (10 - $Max % 10); |
elsif ( $Max <= 10 ) { $Max = 10; } |
|
elsif ( $Max >= 60 ) { $Max = 100; } |
|
|
|
my $MyGraph = GD::Graph::bars3d->new($Range, 400); |
my $MyGraph = GD::Graph::bars3d->new($Range, 400); |
|
|