Changeset 28728

Timestamp:

Jul 28, 2010, 11:56:20 AM (16 years ago)

Author:

rhenders

Message:

Building stage into plot filename

File:

• trunk/tools/czartool/Czarplot.pm (modified) (3 diffs)

trunk/tools/czartool/Czarplot.pm

@@ -35 +35 @@
 ###########################################################################
 sub createImageFileName {
-    my ($self, $label, $suffix) = @_;
+    my ($self, $label, $stage, $suffix) = @_;
 
     my $prefix = $self->{_outputPath} ? $self->{_outputPath} : ".";
-
-    return $prefix . "/czarplot_" . $label . "_$suffix.png";
+    my $stagePart = $stage ? $stage : "all_stages";
+    return $prefix . "/czarplot_" . $label . "_" . $stagePart . "_$suffix.png";
 }
 
@@ -50 +50 @@
     my ($self, $label, $selectedStage, $beginTime, $endTime) = @_;
 
-    my $outputFile = createImageFileName($self, $label, "t");
+    my $outputFile = createImageFileName($self, $label, $selectedStage, "t");
 
     my ($minX, $maxX, $minY, $maxY, $timeDiff);
@@ -81 +81 @@
     my ($self, $label, $beginTime, $endTime) = @_;
 
-    my $outputFile = createImageFileName($self, $label, "h");
+    my $outputFile = createImageFileName($self, $label, undef, "h");
 
     my ($tempFile, $inputFile) = tempfile( "/tmp/czartool_gnuplot_histogram.XXXX", UNLINK => !$self->{_save_temps});