[Orca-checkins] r367 - trunk/orca/lib/Orca

[Blair Zajac]

Author: blair
Date: Sun Jul  4 11:22:17 2004
New Revision: 367

Modified:
   trunk/orca/lib/Orca/ImageFile.pm
Log:
* lib/Orca/ImageFile.pm
  (add_additional_plot):
    Do not copy the hrule attributes from the additional plot to the
    existing image, as hrule's do not change as plots are added to an
    image.


Modified: trunk/orca/lib/Orca/ImageFile.pm
==============================================================================
--- trunk/orca/lib/Orca/ImageFile.pm	(original)
+++ trunk/orca/lib/Orca/ImageFile.pm	Sun Jul  4 11:22:17 2004
@@ -249,12 +249,15 @@
     # For those attributes of the new plot that are array references
     # and need to be indexed for the particular data being plotted,
     # copy them over.  Skip the 'created_orca_images' attribute which
-    # is not used for plotting and skip the color attribute as the
-    # color is treated specially.
+    # is not used for plotting.  Skip the color attribute as the color
+    # is treated specially below.  Skip the hrule attribute as the
+    # hrule's do not change as additional data sources are added to an
+    # image.
     for my $attribute (keys %$new_plot_ref) {
+      next unless UNIVERSAL::isa($new_plot_ref->{$attribute}, 'ARRAY');
       next if $attribute eq 'color';
       next if $attribute eq 'created_orca_images';
-      next unless UNIVERSAL::isa($new_plot_ref->{$attribute}, 'ARRAY');
+      next if $attribute eq 'hrule';
       $existing_plot_ref->{$attribute}[$i] = $new_plot_ref->{$attribute}[$j];
     }