From 388e886f8b156e65d2b5eb8ab2f6c4fdb89232db Mon Sep 17 00:00:00 2001
From: Indranil Das Gupta <indradg@gmail.com>
Date: Sun, 14 Jun 2015 14:52:04 +0530
Subject: [PATCH] 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
---
 tools/upload-file-progress.pl | 14 +++++++-------
 tools/upload-file.pl          | 16 ++++++++--------
 2 files changed, 15 insertions(+), 15 deletions(-)

diff --git a/tools/upload-file-progress.pl b/tools/upload-file-progress.pl
index 3f7d2cd..91af827 100755
--- 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
--- 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) {
-- 
2.1.0