[BACK]Return to graph.png CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / cgi

Diff for /loncom/cgi/graph.png between versions 1.25 and 1.27

version 1.25, 2003/10/15 21:08:39 version 1.27, 2003/10/16 20:03:31
Line 78  Your cookie information is incorrect.  W Line 78  Your cookie information is incorrect.  W
 </body>  </body>
 </html>  </html>
 END  END
     return;      exit;
 }  }
   
 $|=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;
Removed from v.1.25  
changed lines
  Added in v.1.27

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>