--- loncom/cgi/graph.png	2003/10/16 19:54:42	1.26
+++ loncom/cgi/graph.png	2003/10/16 20:03:31	1.27
@@ -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.27 2003/10/16 20:03:31 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -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;