loncom/cgi/graph.png - diff

Return to graph.png CVS log

Up to [LON-CAPA] / loncom / cgi

version 1.26, 2003/10/16 19:54:42	version 1.27, 2003/10/16 20:03:31
Line 83 END	Line 83 END

$\|=1; # Autoflush after each print/write	$\|=1; # Autoflush after each print/write
my $identifier = $ENV{'QUERY_STRING'};	my $identifier = $ENV{'QUERY_STRING'};
my $Title = &unescape($ENV{$identifier.'.title'});	my $Title = &unescape($ENV{'cgi.'.$identifier.'.title'});
my $xlabel = &unescape($ENV{$identifier.'.xlabel'});	my $xlabel = &unescape($ENV{'cgi.'.$identifier.'.xlabel'});
my $ylabel = &unescape($ENV{$identifier.'.ylabel'});	my $ylabel = &unescape($ENV{'cgi.'.$identifier.'.ylabel'});
my $Max = $ENV{$identifier.'.Max'};	my $Max = $ENV{'cgi.'.$identifier.'.Max'};
my $NumBars = $ENV{$identifier.'.NumBars'};	my $NumBars = $ENV{'cgi.'.$identifier.'.NumBars'};
my $NumSets = $ENV{$identifier.'.NumSets'};	my $NumSets = $ENV{'cgi.'.$identifier.'.NumSets'};
my @Colors = split(',',$ENV{$identifier.'.Colors'});	my @Colors = split(',',$ENV{'cgi.'.$identifier.'.Colors'});

#	#
# Labels are always digits	# Labels are always digits
Line 100 for (my $nIdx=0; $nIdx<$NumBars; $nIdx++	Line 100 for (my $nIdx=0; $nIdx<$NumBars; $nIdx++
my @data; # stores the data for the graph	my @data; # stores the data for the graph
push(@data,\@xlabels);	push(@data,\@xlabels);
for (my $i=1;$i<=$NumSets;$i++) {	for (my $i=1;$i<=$NumSets;$i++) {
push(@data,[split(',',$ENV{$identifier.'.data.'.$i})]);	push(@data,[split(',',$ENV{'cgi.'.$identifier.'.data.'.$i})]);
}	}

my $skip_x = 1;	my $skip_x = 1;