Bug 13663: (followup) fixes tab char QA test fails

Fixes the tab char qa test suite fails in the following files:

1/ tools/upload-file-progress.pl
2/ tools/upload-file.pl

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
Amended patch: tidy whitespaces
Signed-off-by: Tomas Cohen Arazi <tomascohen@unc.edu.ar>

diff --git a/tools/upload-file-progress.pl b/tools/upload-file-progress.pl
index 3f7d2cd..91af827 100755 (executable)
--- a/tools/upload-file-progress.pl
+++ b/tools/upload-file-progress.pl
@@ -31,9 +31,9 @@ use CGI::Cookie; # need to check cookies before
                  # having CGI parse the POST request
 
 my $flags_required = [
-               {circulate => 'circulate_remaining_permissions'},
-               {tools => 'stage_marc_import'},
-               {tools => 'upload_local_cover_images'}
+     {circulate => 'circulate_remaining_permissions'},
+     {tools     => 'stage_marc_import'},
+     {tools     => 'upload_local_cover_images'},
 ];
 
 my %cookies = fetch CGI::Cookie;
@@ -41,10 +41,10 @@ my %cookies = fetch CGI::Cookie;
 my ($auth_status, $sessionID) = check_cookie_auth($cookies{'CGISESSID'}->value);
 
 my $auth_failure = 1;
-foreach my $flag_required (@{ $flags_required}) {
-               if (my $flags = haspermission(C4::Context->config('user'), $flag_required)) {
-                               $auth_failure = 0 if $auth_status eq 'ok';
-               }
+foreach my $flag_required ( @{$flags_required} ) {
+    if ( my $flags = haspermission( C4::Context->config('user'), $flag_required ) ) {
+        $auth_failure = 0 if $auth_status eq 'ok';
+    }
 }
 
 if ($auth_failure) {

diff --git a/tools/upload-file.pl b/tools/upload-file.pl
index 2dd66f0..94a33a6 100755 (executable)
--- a/tools/upload-file.pl
+++ b/tools/upload-file.pl
@@ -39,19 +39,19 @@ use C4::UploadedFile;
 # have been created.
 
 my $flags_required = [
-               {circulate => 'circulate_remaining_permissions'},
-               {tools => 'stage_marc_import'},
-               {tools => 'upload_local_cover_images'}
+    {circulate  => 'circulate_remaining_permissions'},
+    {tools      => 'stage_marc_import'},
+    {tools      => 'upload_local_cover_images'}
 ];
 
 my %cookies = fetch CGI::Cookie;
 
 my $auth_failure = 1;
-my ($auth_status, $sessionID) = check_cookie_auth($cookies{'CGISESSID'}->value);
-foreach my $flag_required (@{ $flags_required}) {
-               if (my $flags = haspermission(C4::Context->config('user'), $flag_required)) {
-                               $auth_failure = 0 if $auth_status eq 'ok';
-               }
+my ( $auth_status, $sessionID ) = check_cookie_auth( $cookies{'CGISESSID'}->value );
+foreach my $flag_required ( @{$flags_required} ) {
+    if ( my $flags = haspermission( C4::Context->config('user'), $flag_required ) ) {
+        $auth_failure = 0 if $auth_status eq 'ok';
+    }
 }
 
 if ($auth_failure) {