Index: trunk/BNC/scripts/pppPlot.pl
===================================================================
--- trunk/BNC/scripts/pppPlot.pl	(revision 10588)
+++ trunk/BNC/scripts/pppPlot.pl	(revision 10589)
@@ -147,7 +147,7 @@
     $headline_text->text($headline);
     $y = $y0;
-    my $pngName  = sprintf ( "%s_NEU.png", $station );
+    my $pngNameNEU  = sprintf ( "%s_NEU.png", $station );
     my $chartNEU = newChart($station);
-    $chartNEU->set( output => $pngName );
+    $chartNEU->set( output => $pngNameNEU);
     $chartNEU->set( ylabel => "Displacements [m]", yrange => [ " -0.9 ", " 0.9 " ] );
 
@@ -179,13 +179,13 @@
 
     $png = $page->gfx();
-    LOGDIE("could not find image file: $!\n") unless -e $pngName;
-    $png->image( $pdf->image_png($pngName), $x, $y, $width, $height );    #print "y= : $y \n"
+    LOGDIE("could not find image file: $!\n") unless -e $pngNameNEU;
+    $png->image( $pdf->image_png($pngNameNEU), $x, $y, $width, $height );    #print "y= : $y \n"
 
     ######### TRP #####################
     if ( grep ( $_ eq "ALL", @plotTypes ) ) {
         DEBUG "Plot TRP";
-        my $pngName  = sprintf ( "%s_TRP.png", $station );
+        my $pngNameTRP  = sprintf ( "%s_TRP.png", $station );
         my $chartTRP = newChart($station);
-        $chartTRP->set( output => $pngName );
+        $chartTRP->set( output => $pngNameTRP);
         $chartTRP->set( ylabel => "Tropospheric Delay [m]", yrange => [ " 1.0 ", " 3.0 " ] );
 
@@ -206,6 +206,6 @@
         }
         $png = $page->gfx();
-        LOGDIE("could not find image file: $!\n") unless -e $pngName;
-        $png->image( $pdf->image_png($pngName), $x, $y, $width, $height );
+        LOGDIE("could not find image file: $!\n") unless -e $pngNameTRP;
+        $png->image( $pdf->image_png($pngNameTRP), $x, $y, $width, $height );
 
         ######### RECCLK #####################
@@ -223,6 +223,6 @@
         $chartRECCLK->set( legend => { position => "outside right" } );
         my @datasets = ();                                                # init datasets
-        my $pngName  = sprintf ( "%s_RECCLK.png", $station);
-            $chartRECCLK->set( output => $pngName );
+        my $pngNameRECCLK  = sprintf ( "%s_RECCLK.png", $station);
+            $chartRECCLK->set( output => $pngNameRECCLK);
             $chartRECCLK->set( ylabel => "Receiver Clocks [m]" );
             # SYSTEM
@@ -250,6 +250,6 @@
             }
             $png = $page->gfx();
-            die ("could not find image file: $!") unless -e $pngName;
-            $png->image( $pdf->image_png($pngName), $x, $y, $width, $height );
+            die ("could not find image file: $!") unless -e $pngNameRECCLK;
+            $png->image( $pdf->image_png($pngNameRECCLK), $x, $y, $width, $height );
 
         ######### ELE #####################
@@ -272,6 +272,6 @@
             # print "$key_sys \n";# print Dumper $ELE{$key_sys};
             my @datasets = ();                                                # init datasets
-            my $pngName  = sprintf ( "%s_ELE_%s.png", $station, $key_sys );
-            $chartELE->set( output => $pngName );
+            my $pngNameELE  = sprintf ( "%s_ELE_%s.png", $station, $key_sys );
+            $chartELE->set( output => $pngNameELE);
             $chartELE->set( ylabel => "Elevation [°]", yrange => [ " 0.0 ", " 90.0 " ] );
 
@@ -301,6 +301,6 @@
             }
             $png = $page->gfx();
-            die ("could not find image file: $!") unless -e $pngName;
-            $png->image( $pdf->image_png($pngName), $x, $y, $width, $height );
+            die ("could not find image file: $!") unless -e $pngNameELE;
+            $png->image( $pdf->image_png($pngNameELE), $x, $y, $width, $height );
         }
 
@@ -322,8 +322,8 @@
                 #print "$key_sys \n"; print Dumper $AMB{$key_ambType};
                 my ( @datasets_amb, @datasets_epo );    # init datasets
-                my $pngName_amb = sprintf ( "%s_AMB_%s_%s.png", $station, $key_ambType, $key_sys );
-                my $pngName_epo = sprintf ( "%s_EPO_%s_%s.png", $station, $key_ambType, $key_sys );
+                my $pngNameAMB = sprintf ( "%s_AMB_%s_%s.png", $station, $key_ambType, $key_sys );
+                my $pngNameEPO = sprintf ( "%s_EPO_%s_%s.png", $station, $key_ambType, $key_sys );
                 my $chartAMB = Chart::Gnuplot->new(
-                    output   => $pngName_amb,
+                    output   => $pngNameAMB,
                     terminal => 'png',
                     title    => $station,
@@ -338,5 +338,5 @@
                 );
                 my $chartEPO = Chart::Gnuplot->new(
-                    output   => $pngName_epo,
+                    output   => $pngNameEPO,
                     terminal => 'png',
                     title    => $station,
@@ -391,6 +391,6 @@
                 }
                 $png = $page->gfx();
-                LOGDIE("could not find image file: $!\n") unless -e $pngName_amb;
-                $png->image( $pdf->image_png($pngName_amb), $x, $y, $width, $height );
+                LOGDIE("could not find image file: $!\n") unless -e $pngNameAMB;
+                $png->image( $pdf->image_png($pngNameAMB), $x, $y, $width, $height );
 
                 # number of epochs used for ambiguity
@@ -405,6 +405,6 @@
                 }
                 $png = $page->gfx();
-                LOGDIE("could not find image file $pngName_epo: $!\n") unless -e $pngName_epo;
-                $png->image( $pdf->image_png($pngName_epo), $x, $y, $width, $height );
+                LOGDIE("could not find image file $pngNameEPO: $!\n") unless -e $pngNameEPO;
+                $png->image( $pdf->image_png($pngNameEPO), $x, $y, $width, $height );
             }
         }
@@ -429,6 +429,6 @@
             foreach my $ksys ( sort keys %ION ) {    #print "$key_sys \n"; #print Dumper $ION{$key_sys};
                 my @datasets;                        # init datasets
-                my $pngName = sprintf ( "%s_ION_%s.png", $station, $ksys );
-                $chartION->set( output => $pngName );
+                my $pngNameION = sprintf ( "%s_ION_%s.png", $station, $ksys );
+                $chartION->set( output => $pngNameION);
 
                 # SATELLITE
@@ -454,6 +454,6 @@
                 }
                 $png = $page->gfx();
-                die ("could not find image file: $!") unless -e $pngName;
-                $png->image( $pdf->image_png($pngName), $x, $y, $width, $height );
+                die ("could not find image file: $!") unless -e $pngNameION;
+                $png->image( $pdf->image_png($pngNameION), $x, $y, $width, $height );
             }
         }
@@ -480,6 +480,6 @@
                     #print "key_sys: $key_sys \n"; #print Dumper $BIA{$key_biasType};
                     my @datasets;                            # init datasets
-                    my $pngName = sprintf ( "%s_BIAS_%s_%s.png", $station, $key_biasType, $key_sys );
-                    $chartBIAS->set( output => $pngName );
+                    my $pngNameBIA = sprintf ( "%s_BIAS_%s_%s.png", $station, $key_biasType, $key_sys );
+                    $chartBIAS->set( output => $pngNameBIA);
                     $chartBIAS->set( ylabel => "Receiver Bias $key_biasType [m]" );
 
@@ -502,6 +502,6 @@
                     }
                     $png = $page->gfx();
-                    die ("could not find image file: $!") unless -e $pngName;
-                    $png->image( $pdf->image_png($pngName), $x, $y, $width, $height );
+                    die ("could not find image file: $!") unless -e $pngNameBIA;
+                    $png->image( $pdf->image_png($pngNameBIA), $x, $y, $width, $height );
                 }
             }
@@ -529,6 +529,6 @@
                 #print "key_sys: $key_sys \n"; #print Dumper $RES{$key_resType};
                 my @datasets;
-                my $pngName = sprintf ( "%s_RES_%s_%s.png", $station, $key_resType, $key_sys );
-                $chartRES->set( output => $pngName );
+                my $pngNameRES = sprintf ( "%s_RES_%s_%s.png", $station, $key_resType, $key_sys );
+                $chartRES->set( output => $pngNameRES);
                 $chartRES->set( ylabel => "Residuals $key_resType [m]" );
 
@@ -565,6 +565,6 @@
                 }
                 $png = $page->gfx();
-                LOGDIE("could not find image file: $!\n") unless -e $pngName;
-                $png->image( $pdf->image_png($pngName), $x, $y, $width, $height );
+                LOGDIE("could not find image file: $!\n") unless -e $pngNameRES;
+                $png->image( $pdf->image_png($pngNameRES), $x, $y, $width, $height );
             }
         }