version 1.12, 2002/05/16 01:31:23
|
version 1.13, 2002/05/19 15:47:25
|
Line 29
|
Line 29
|
# YEAR=2001 |
# YEAR=2001 |
# 9/13/01, 9/25/01, 10/6/01, 10/9/01, 12/25/01 |
# 9/13/01, 9/25/01, 10/6/01, 10/9/01, 12/25/01 |
# YEAR=2002 |
# YEAR=2002 |
# 2/1/02, 5/13/02, |
# 2/1/, 5/13, 5/15 |
# A CGI script that dynamically outputs a graphical chart for lonstatistics. |
# A CGI script that dynamically outputs a graphical chart for lonstatistics. |
# |
# |
#### |
#### |
Line 50 for (my $nIdx=0; $nIdx<$PNo; $nIdx++ ) {
|
Line 50 for (my $nIdx=0; $nIdx<$PNo; $nIdx++ ) {
|
$xlabels[$nIdx]=$nIdx+1; |
$xlabels[$nIdx]=$nIdx+1; |
} |
} |
|
|
#my $bg = (defined(@data2)) ? 'lorange' : 'white'; |
|
|
|
my @data =(\@xlabels,\@data11,\@data12); |
my @data =(\@xlabels,\@data11,\@data12); |
|
|
Line 84 $MyGraph->set(
|
Line 84 $MyGraph->set(
|
# y_tick_number => $ytic, |
# y_tick_number => $ytic, |
y_label_skip => 1, |
y_label_skip => 1, |
|
|
dclrs => [ qw( green dgreen lyellow lpurple cyan lorange)], |
dclrs => [ qw( lgreen dgreen lyellow lpurple cyan lorange)], |
|
|
bar_spacing => 10, |
bar_spacing => 10, |
cumulate => 2, |
cumulate => 2, |
Line 93 $MyGraph->set(
|
Line 93 $MyGraph->set(
|
# legend_placement => 'RT', |
# legend_placement => 'RT', |
|
|
fgclr => 'black', |
fgclr => 'black', |
boxclr => 'lorange', |
boxclr => 'white', |
accentclr => 'dblue', |
accentclr => 'dblue', |
valuesclr => '#ffff77', |
valuesclr => '#ffff77', |
l_margin => 10, |
l_margin => 10, |