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

Diff for /loncom/cgi/graph.png between versions 1.31 and 1.34

version 1.31, 2003/10/29 15:18:09 version 1.34, 2005/04/07 06:56:21
Line 59  use GD::Graph::bars; Line 59  use GD::Graph::bars;
 use GD::Graph::lines;  use GD::Graph::lines;
 use GD::Graph::colour;  use GD::Graph::colour;
 use GD::Graph::Data;  use GD::Graph::Data;
 use LONCAPA::loncgi();  use LONCAPA::loncgi;
   
 sub unescape {  sub unescape {
     my $str=shift;      my $str=shift;
Line 92  my $id = $ENV{'QUERY_STRING'}; Line 92  my $id = $ENV{'QUERY_STRING'};
 # usage: &get_env($name,$default)  # usage: &get_env($name,$default)
 sub get_env {  sub get_env {
     my $key = 'cgi.'.$id.'.'.(shift());      my $key = 'cgi.'.$id.'.'.(shift());
     return shift if (! exists($ENV{$key}));      return shift if (! exists($env{$key}));
     return $ENV{$key};      return $env{$key};
 }  }
   
 if (! &LONCAPA::loncgi::check_cookie_and_load_env()) {  if (! &LONCAPA::loncgi::check_cookie_and_load_env()) {
Line 172  if ($PlotType eq 'bar') { Line 172  if ($PlotType eq 'bar') {
     $GraphSettings{'zero_axis'}     = 1;      $GraphSettings{'zero_axis'}     = 1;
     if (&get_env('two_axes',0)) {      if (&get_env('two_axes',0)) {
         $GraphSettings{'two_axes'}     = 1;          $GraphSettings{'two_axes'}     = 1;
           $GraphSettings{'y1_label'}     = &get_env('y1_label',
                                                     $GraphSettings{'y_label'});
           $GraphSettings{'y2_label'}     = &get_env('y2_label','');
         $GraphSettings{'y1_max_value'} = &get_env('y1_max_value',0);          $GraphSettings{'y1_max_value'} = &get_env('y1_max_value',0);
         $GraphSettings{'y1_min_value'} = &get_env('y1_min_value',1);          $GraphSettings{'y1_min_value'} = &get_env('y1_min_value',1);
         $GraphSettings{'y2_max_value'} = &get_env('y2_max_value',1);          $GraphSettings{'y2_max_value'} = &get_env('y2_max_value',1);
Line 195  if (! defined($MyGraph)) { Line 198  if (! defined($MyGraph)) {
 ##  ##
 ## Build the @Data array  ## Build the @Data array
 my $NumSets = &get_env('NumSets');  my $NumSets = &get_env('NumSets');
 my @Data;  # stores the data for the graph  my @Data;        # stores the data for the graph
   my @Legend;      # one entry per data set
 my @xlabels  = split(',',&get_env('labels'));  my @xlabels  = split(',',&get_env('labels'));
 push(@Data,\@xlabels);  push(@Data,\@xlabels);
 for (my $i=1;$i<=$NumSets;$i++) {  for (my $i=1;$i<=$NumSets;$i++) {
     push(@Data,[split(',',&get_env('data.'.$i))]);      push(@Data,[split(',',&get_env('data.'.$i))]);
       push(@Legend,&get_env('data.'.$i.'.label',undef));
 }  }
   
 my $error = '';  my $error = '';
Line 208  if (! $MyGraph->set(%GraphSettings)) { Line 213  if (! $MyGraph->set(%GraphSettings)) {
     return;      return;
 }  }
   
   if (join('',@Legend) ne '') {
       $MyGraph->set_legend(@Legend);
   }
   
   
 my $plot = $MyGraph->plot(\@Data);  my $plot = $MyGraph->plot(\@Data);
 if (! defined($plot)) {  if (! defined($plot)) {
     my $error = 'Unable to plot the data provided.';      my $error = 'Unable to plot the data provided.';
Removed from v.1.31  
changed lines
  Added in v.1.34

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