loncom/xml/lonplot.pm - diff

Return to lonplot.pm CVS log

Up to [LON-CAPA] / loncom / xml

-version 1.99, 2004/06/28 17:02:27
+version 1.100, 2004/08/17 17:37:56
  Line 954  sub write_gnuplot_file {
      my $gnuplot_input = '';
      my $curve;
      my $pt = $plot{'texfont'};
+     #
+     # Check to be sure we do not have any empty curves
+     my @curvescopy;
+     foreach my $curve (@curves) {
+         if (exists($curve->{'function'})) {
+             if ($curve->{'function'} !~ /^\s*$/) {
+                 push(@curvescopy,$curve);
+             }
+         } elsif (exists($curve->{'data'})) {
+             foreach my $data (@{$curve->{'data'}}) {
+                 if (scalar(@$data) > 0) {
+                     push(@curvescopy,$curve);
+                     last;
+                 }
+             }
+         }
+     }
+     @curves = @curvescopy;
      # Collect all the colors
      my @Colors;
      push @Colors, $plot{'bgcolor'};