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>
use Koha::Items;
use Koha::Linktracker;
use CGI qw ( -utf8 );
use Koha::Items;
use Koha::Linktracker;
use CGI qw ( -utf8 );
+use List::MoreUtils qw(any);
my $cgi = new CGI;
my $uri = $cgi->param('uri') || '';
my $cgi = new CGI;
my $uri = $cgi->param('uri') || '';
my $record = C4::Biblio::GetMarcBiblio({ biblionumber => $biblionumber });
my $marc_urls = C4::Biblio::GetMarcUrls($record, C4::Context->preference('marcflavour'));
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(
|| Koha::Items->search( { itemnumber => $itemnumber, uri => $uri } )->count )
{
$tracker->trackclick(