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

Diff for /loncom/cgi/graph.png between versions 1.29 and 1.30

version 1.29, 2003/10/27 21:21:08 version 1.30, 2003/10/29 14:47:43
Line 143  my %GraphSettings = ( Line 143  my %GraphSettings = (
   
 $GraphSettings{'x_label_skip'}  = &get_env('xskip',1);  $GraphSettings{'x_label_skip'}  = &get_env('xskip',1);
 $GraphSettings{'x_tick_offset'} = &get_env('x_tick_offset',0);  $GraphSettings{'x_tick_offset'} = &get_env('x_tick_offset',0);
 $GraphSettings{'y_max_value'}   = &get_env('Max',undef);  $GraphSettings{'y_max_value'}   = &get_env('Max',1);
   
 my $MyGraph;  my $MyGraph;
 if ($PlotType eq 'bar') {  if ($PlotType eq 'bar') {
Line 168  if ($PlotType eq 'bar') { Line 168  if ($PlotType eq 'bar') {
     $GraphSettings{'x_label_skip'}  = $skip_x;      $GraphSettings{'x_label_skip'}  = $skip_x;
     $GraphSettings{'x_tick_offset'} = $x_tick_offset;      $GraphSettings{'x_tick_offset'} = $x_tick_offset;
     $GraphSettings{'zero_axis'}     = 1;      $GraphSettings{'zero_axis'}     = 1;
       if (&get_env('two_axes',0)) {
           $GraphSettings{'two_axes'}     = 1;
           $GraphSettings{'y1_max_value'} = &get_env('y1_max_value',0);
           $GraphSettings{'y1_min_value'} = &get_env('y1_min_value',1);
           $GraphSettings{'y2_max_value'} = &get_env('y2_max_value',1);
           $GraphSettings{'y2_min_value'} = &get_env('y2_min_value',1);
       }
 }  }
 #  #
 # Pick up miscellanious values passed in by the user  # Pick up miscellanious values passed in by the user
Line 202  if (! $MyGraph->set(%GraphSettings)) { Line 209  if (! $MyGraph->set(%GraphSettings)) {
 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.';
     $error .= '<pre>'.join(',',@{$Data[0]}).'</pre>';  # Debugging code:    
     $error .= '<pre>'.join(',',@{$Data[1]}).'</pre>';  #    $error .= '<pre>'.join(',',@{$Data[0]}).'</pre>';
     $error .= '<pre>'.join(',',@{$Data[2]}).'</pre>';  #    $error .= '<pre>'.join(',',@{$Data[1]}).'</pre>';
   #    $error .= '<pre>'.join(',',@{$Data[2]}).'</pre>' if (ref($Data[2]));
   #    $error .= '<pre>'.join(',',@{$Data[3]}).'</pre>' if (ref($Data[3]));
     print &error($error);      print &error($error);
     exit;      exit;
 }  }
Removed from v.1.29  
changed lines
  Added in v.1.30

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