--- loncom/cgi/graph.png 2003/10/16 19:54:42 1.26 +++ loncom/cgi/graph.png 2003/10/21 15:19:25 1.28 @@ -1,6 +1,6 @@ #!/usr/bin/perl # -# $Id: graph.png,v 1.26 2003/10/16 19:54:42 albertel Exp $ +# $Id: graph.png,v 1.28 2003/10/21 15:19:25 matthew Exp $ # # Copyright Michigan State University Board of Trustees # @@ -74,7 +74,7 @@ Content-type: text/html Bad Cookie -Your cookie information is incorrect. What\'s up with that? +Your cookie information is incorrect. END @@ -83,13 +83,13 @@ END $|=1; # Autoflush after each print/write my $identifier = $ENV{'QUERY_STRING'}; -my $Title = &unescape($ENV{$identifier.'.title'}); -my $xlabel = &unescape($ENV{$identifier.'.xlabel'}); -my $ylabel = &unescape($ENV{$identifier.'.ylabel'}); -my $Max = $ENV{$identifier.'.Max'}; -my $NumBars = $ENV{$identifier.'.NumBars'}; -my $NumSets = $ENV{$identifier.'.NumSets'}; -my @Colors = split(',',$ENV{$identifier.'.Colors'}); +my $Title = &unescape($ENV{'cgi.'.$identifier.'.title'}); +my $xlabel = &unescape($ENV{'cgi.'.$identifier.'.xlabel'}); +my $ylabel = &unescape($ENV{'cgi.'.$identifier.'.ylabel'}); +my $Max = $ENV{'cgi.'.$identifier.'.Max'}; +my $NumBars = $ENV{'cgi.'.$identifier.'.NumBars'}; +my $NumSets = $ENV{'cgi.'.$identifier.'.NumSets'}; +my @Colors = split(',',$ENV{'cgi.'.$identifier.'.Colors'}); # # Labels are always digits @@ -100,7 +100,7 @@ for (my $nIdx=0; $nIdx<$NumBars; $nIdx++ my @data; # stores the data for the graph push(@data,\@xlabels); 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;