From bd1ea86e143e1bdb99d8f762e148cb61c1aa4321 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Tue, 3 Dec 2013 15:09:01 +0100 Subject: [PATCH] [PASSED QA] Bug 7673: QA Followup: trailing whitespace and perlcritic issues This patch fixes the following qa issues: FAIL cataloguing/additem.pl FAIL forbidden patterns forbidden pattern: trailing space char (line 833) FAIL critic # Variables::ProhibitConditionalDeclarations: Got 2 violation(s). FAIL tools/batchMod.pl FAIL critic # Variables::ProhibitConditionalDeclarations: Got 2 violation(s). Signed-off-by: Koha Team AMU Signed-off-by: Katrin Fischer --- cataloguing/additem.pl | 6 +++--- tools/batchMod.pl | 4 ++-- 2 files changed, 5 insertions(+), 5 deletions(-) diff --git a/cataloguing/additem.pl b/cataloguing/additem.pl index fe1db82..5f35077 100755 --- a/cataloguing/additem.pl +++ b/cataloguing/additem.pl @@ -369,8 +369,8 @@ my ($template, $loggedinuser, $cookie) # Does the user have a limited item edition permission? -my $uid = GetMember( borrowernumber => $loggedinuser )->{userid} if ($loggedinuser) ; -my $limitededition = haspermission($uid, {'editcatalogue' => 'limited_item_edition'}) if ($uid); +my $uid = $loggedinuser ? GetMember( borrowernumber => $loggedinuser )->{userid} : undef; +my $limitededition = $uid ? haspermission($uid, {'editcatalogue' => 'limited_item_edition'}) : undef; # In case user is a superlibrarian, edition is not limited $limitededition = 0 if ($limitededition != 0 && $limitededition->{'superlibrarian'} eq 1); @@ -833,7 +833,7 @@ foreach my $tag ( keys %{$tagslib}){ my $subfield_data = generate_subfield_form($tag, $subtag, $value, $tagslib, $tagslib->{$tag}->{$subtag}, $branches, $today_iso, $biblionumber, $temp, \@loop_data, $i, $limitededition); push (@loop_data, $subfield_data); $i++; - } + } } } @loop_data = sort {$a->{subfield} cmp $b->{subfield} } @loop_data; diff --git a/tools/batchMod.pl b/tools/batchMod.pl index ca10f61..d0648e4 100755 --- a/tools/batchMod.pl +++ b/tools/batchMod.pl @@ -71,8 +71,8 @@ my ($template, $loggedinuser, $cookie) }); # Does the user have a limited item edition permission? -my $uid = GetMember( borrowernumber => $loggedinuser )->{userid} if ($loggedinuser) ; -my $limitededition = haspermission($uid, {'tools' => 'items_limited_batchmod'}) if ($uid); +my $uid = $loggedinuser ? GetMember( borrowernumber => $loggedinuser )->{userid} : undef; +my $limitededition = $uid ? haspermission($uid, {'tools' => 'items_limited_batchmod'}) : undef; # In case user is a superlibrarian, edition is not limited $limitededition = 0 if ($limitededition != 0 && $limitededition->{'superlibrarian'} eq 1); -- 1.9.1