From: Tomas Cohen Arazi <tomascohen@theke.io>
Date: Tue, 23 Jul 2019 19:39:18 +0000 (-0300)
Subject: Bug 23329: (follow-up) Use any instead of grep
X-Git-Tag: v19.11.00~20
X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=commitdiff_plain;h=608cf1b073d0a61f14967c64ef1b55d3cec218d1;p=koha-ffzg.git

Bug 23329: (follow-up) Use any instead of grep

Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>
Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
---

diff --git a/opac/tracklinks.pl b/opac/tracklinks.pl
index 329addf0b5..31fc930b0e 100755
--- a/opac/tracklinks.pl
+++ b/opac/tracklinks.pl
@@ -25,6 +25,7 @@ use C4::Biblio;
 use Koha::Items;
 use Koha::Linktracker;
 use CGI qw ( -utf8 );
+use List::MoreUtils qw(any);
 
 my $cgi = new CGI;
 my $uri = $cgi->param('uri') || '';
@@ -55,7 +56,7 @@ if ($uri && ($biblionumber || $itemnumber) ) {
 
     my $record = C4::Biblio::GetMarcBiblio({ biblionumber => $biblionumber });
     my $marc_urls = C4::Biblio::GetMarcUrls($record, C4::Context->preference('marcflavour'));
-    if ( ( grep { $_ eq $uri } map { $_->{MARCURL} } @$marc_urls )
+    if ( ( any { $_ eq $uri } map { $_->{MARCURL} } @$marc_urls )
         || Koha::Items->search( { itemnumber => $itemnumber, uri => $uri } )->count )
     {
         $tracker->trackclick(