Lines 25-30
use C4::Biblio;
Link Here
|
25 |
use Koha::Items; |
25 |
use Koha::Items; |
26 |
use Koha::Linktracker; |
26 |
use Koha::Linktracker; |
27 |
use CGI qw ( -utf8 ); |
27 |
use CGI qw ( -utf8 ); |
|
|
28 |
use List::MoreUtils qw(any); |
28 |
|
29 |
|
29 |
my $cgi = new CGI; |
30 |
my $cgi = new CGI; |
30 |
my $uri = $cgi->param('uri') || ''; |
31 |
my $uri = $cgi->param('uri') || ''; |
Lines 55-61
if ($uri && ($biblionumber || $itemnumber) ) {
Link Here
|
55 |
|
56 |
|
56 |
my $record = C4::Biblio::GetMarcBiblio({ biblionumber => $biblionumber }); |
57 |
my $record = C4::Biblio::GetMarcBiblio({ biblionumber => $biblionumber }); |
57 |
my $marc_urls = C4::Biblio::GetMarcUrls($record, C4::Context->preference('marcflavour')); |
58 |
my $marc_urls = C4::Biblio::GetMarcUrls($record, C4::Context->preference('marcflavour')); |
58 |
if ( ( grep { $_ eq $uri } map { $_->{MARCURL} } @$marc_urls ) |
59 |
if ( ( any { $_ eq $uri } map { $_->{MARCURL} } @$marc_urls ) |
59 |
|| Koha::Items->search( { itemnumber => $itemnumber, uri => $uri } )->count ) |
60 |
|| Koha::Items->search( { itemnumber => $itemnumber, uri => $uri } )->count ) |
60 |
{ |
61 |
{ |
61 |
$tracker->trackclick( |
62 |
$tracker->trackclick( |
62 |
- |
|
|