loncom/cgi/graph.png - diff

Return to graph.png CVS log

Up to [LON-CAPA] / loncom / cgi

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,