From 9ce71f34ee1e106a3d1b36533e9a86b1d2c7ad01 Mon Sep 17 00:00:00 2001
From: Martin Renvoize <martin.renvoize@ptfs-europe.com>
Date: Mon, 11 Feb 2019 17:45:51 +0000
Subject: [PATCH] Bug 19164: (QA follow-up) Minor whitespace cleanup

Signed-off-by: Nick Clemens <nick@bywatersolutions.com>
---
 misc/stage_file.pl | 69 ++++++++++++++++++++++++----------------------
 1 file changed, 36 insertions(+), 33 deletions(-)

diff --git a/misc/stage_file.pl b/misc/stage_file.pl
index 48074f7351..b86f5254d6 100755
--- a/misc/stage_file.pl
+++ b/misc/stage_file.pl
@@ -52,18 +52,18 @@ my $marc_mod_template = '';
 my $marc_mod_template_id = undef;
 
 my $result = GetOptions(
-    'encoding:s'    => \$encoding,
-    'file:s'        => \$input_file,
-    'format:s'      => \$format,
-    'match|match-bibs:s'  => \$match,
-    'add-items'     => \$add_items,
-    'item-action:s' => \$item_action,
-    'no-replace'    => \$no_replace,
-    'no-create'     => \$no_create,
-    'comment:s'     => \$batch_comment,
-    'authorities'   => \$authorities,
-    'marcmodtemplate:s' => \$marc_mod_template,
-    'h|help'        => \$want_help
+    'encoding:s'         => \$encoding,
+    'file:s'             => \$input_file,
+    'format:s'           => \$format,
+    'match|match-bibs:s' => \$match,
+    'add-items'          => \$add_items,
+    'item-action:s'      => \$item_action,
+    'no-replace'         => \$no_replace,
+    'no-create'          => \$no_create,
+    'comment:s'          => \$batch_comment,
+    'authorities'        => \$authorities,
+    'marcmodtemplate:s'  => \$marc_mod_template,
+    'h|help'             => \$want_help
 );
 
 if($marc_mod_template ne '') {
@@ -104,19 +104,21 @@ unless (-r $input_file) {
 
 my $dbh = C4::Context->dbh;
 $dbh->{AutoCommit} = 0;
-process_batch({
-    format        => $format,
-    input_file    => $input_file,
-    record_type   => $record_type,
-    match         => $match,
-    add_items     => $add_items,
-    batch_comment => $batch_comment,
-    encoding      => $encoding,
-    no_replace    => $no_replace,
-    no_create     => $no_create,
-    item_action   => $item_action,
-    marc_mod_template_id => $marc_mod_template_id,
-});
+process_batch(
+    {
+        format               => $format,
+        input_file           => $input_file,
+        record_type          => $record_type,
+        match                => $match,
+        add_items            => $add_items,
+        batch_comment        => $batch_comment,
+        encoding             => $encoding,
+        no_replace           => $no_replace,
+        no_create            => $no_create,
+        item_action          => $item_action,
+        marc_mod_template_id => $marc_mod_template_id,
+    }
+);
 $dbh->commit();
 
 exit 0;
@@ -139,14 +141,15 @@ sub process_batch {
 
     print "... staging MARC records -- please wait\n";
     #FIXME: We should really allow the use of marc modification frameworks and to_marc plugins here if possible
-    my ($batch_id, $num_valid_records, $num_items, @import_errors) =
-        BatchStageMarcRecords(
-            $record_type, $params->{encoding},
-            $marc_records, $params->{input_file},
-            $params->{'marc_mod_template_id'},
-            $params->{batch_comment}, '',
-            $params->{add_items}, 0,
-            100, \&print_progress_and_commit);
+    my ( $batch_id, $num_valid_records, $num_items, @import_errors ) =
+      BatchStageMarcRecords(
+        $record_type,                      $params->{encoding},
+        $marc_records,                     $params->{input_file},
+        $params->{'marc_mod_template_id'}, $params->{batch_comment},
+        '',                                $params->{add_items},
+        0,                                 100,
+        \&print_progress_and_commit
+      );
     print "... finished staging MARC records\n";
 
     my $num_with_matches = 0;
-- 
2.39.5