Fix whitespace.
authorRobin H. Johnson <rjohnson@sitka.bclibraries.ca>
Mon, 31 Oct 2011 07:54:59 +0000 (00:54 -0700)
committerRobin H. Johnson <rjohnson@sitka.bclibraries.ca>
Mon, 31 Oct 2011 07:54:59 +0000 (00:54 -0700)
marc_export_custom/marc_export_custom

index e153acc..847ead7 100755 (executable)
@@ -46,12 +46,12 @@ GetOptions(
         'force901'  => \$force901,
         'exclusion_ini=s' => \$exclusion_ini,
         'collapse_to_depth=i' => \$collapse_to_depth,
-       'output-file=s' => \$output_file,
+        'output-file=s' => \$output_file,
 );
 
 if ($exclusion_ini) {
-       die "exclusion ini file does not exist" unless (-r $exclusion_ini and -s $exclusion_ini);
-       $cfg = new Config::Simple($exclusion_ini) 
+        die "exclusion ini file does not exist" unless (-r $exclusion_ini and -s $exclusion_ini);
+        $cfg = new Config::Simple($exclusion_ini) 
 }
 
 if ($help) {
@@ -285,7 +285,7 @@ sub export_record {
     } otherwise {
         my $e = shift;
         my $errorid = $id;
-       chomp($errorid);
+        chomp($errorid);
         chomp($e);
         warn "\nERROR ON RECORD $errorid: $e\n";
         import MARC::File::XML; # reset SAX parser so that one bad record doesn't kill the entire export
@@ -618,9 +618,9 @@ sub add_bib_holdings {
 } # sub
 
 sub skipnote { 
-       my $id = shift;
-       my $note = shift;
-       my $outf = *STDERR;
-       $outf = *STDOUT if($output_file) ;
-       printf($outf "Skipped %s due to config: %s\n",$id,$note); 
+        my $id = shift;
+        my $note = shift;
+        my $outf = *STDERR;
+        $outf = *STDOUT if($output_file) ;
+        printf($outf "Skipped %s due to config: %s\n",$id,$note); 
 }