Index: trunk/ippScripts/scripts/phase0imfile.pl
===================================================================
--- trunk/ippScripts/scripts/phase0imfile.pl	(revision 8327)
+++ trunk/ippScripts/scripts/phase0imfile.pl	(revision 8710)
@@ -17,8 +17,8 @@
     "FPA.FILTER"   => "-filter", # Filter used
     "FPA.AIRMASS"  => "-airmass", # Airmass
-    "FPA.RA"       => "-ra",	# Right ascension
-    "FPA.DEC"      => "-decl",	# Declination
-    "TELALT"       => "-alt",	# Altitude
-    "TELAZ"        => "-az",	# Azimuth
+    "FPA.RA"       => "-ra",        # Right ascension
+    "FPA.DEC"      => "-decl",        # Declination
+    "TELALT"       => "-alt",        # Altitude
+    "TELAZ"        => "-az",        # Azimuth
     "DETTEM"       => "-ccd_temp", # CCD temperature
     "FPA.POSANGLE" => "-posang" # Position angle
@@ -43,10 +43,10 @@
 if (scalar @ARGV == 0 || scalar @ARGV > 3) {
     die "Perform phase 0 processing at the imfile level.\n\n" .
-	"Usage: $0 EXP_ID CLASS_ID FILE.fits\n\n";
+        "Usage: $0 EXP_ID CLASS_ID FILE.fits\n\n";
 }
 
-my $expid = shift @ARGV;	# Exposure identifier
-my $classid = shift @ARGV;	# Class identifier
-my $file = shift @ARGV;		# Input filename
+my $expid = shift @ARGV;        # Exposure identifier
+my $classid = shift @ARGV;        # Class identifier
+my $file = shift @ARGV;                # Input filename
 
 
@@ -62,9 +62,9 @@
     my $command = "$ppStats $file -recipe PPSTATS " . RECIPE; # Command to run ppStats
     my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
-	run(command => $command, verbose => 1);
+        run(command => $command, verbose => 1);
     die "Unable to perform ppStats on exposure id $expid: $error_code\n" if not $success;
     
     # Parse the output
-    my $mdcParser = PS::IPP::Metadata::Config->new;	# Parser for metadata config files
+    my $mdcParser = PS::IPP::Metadata::Config->new;        # Parser for metadata config files
     my $metadata = $mdcParser->parse(join "", @$stdout_buf);
     my @constants = keys %{CONSTANTS()}; # List of constants to parse out
@@ -77,12 +77,12 @@
 {
     my $command = $p0tool . " " . P0TOOL_MODE() . " " . P0TOOL_EXPID() . " " . $expid . " " .
-	P0TOOL_CLASSID() . " " . $classid; # Command to run p0tool
+        P0TOOL_CLASSID() . " " . $classid; # Command to run p0tool
     
     foreach my $constant (keys %{CONSTANTS()}) {
-	$command .= " " . CONSTANTS->{$constant} . " " . ($stats->data($constant))->{value};
+        $command .= " " . CONSTANTS->{$constant} . " " . ($stats->data($constant))->{value};
     }
     foreach my $variable (keys %{VARIABLES()}) {
-	# Just use the mean value
-	$command .= " " . VARIABLES->{$variable} . " " . ($stats->data($variable))->{mean};
+        # Just use the mean value
+        $command .= " " . VARIABLES->{$variable} . " " . ($stats->data($variable))->{mean};
     }
     
@@ -92,5 +92,5 @@
  
     my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
-	run(command => $command, verbose => 1);
+        run(command => $command, verbose => 1);
     die "Unable to perform p0tool -updateimfile: $error_code\n" if not $success;
 }