Lines 22-27
use Modern::Perl;
Link Here
|
22 |
use C4::Context; |
22 |
use C4::Context; |
23 |
use C4::Auth qw(checkauth); |
23 |
use C4::Auth qw(checkauth); |
24 |
use C4::Biblio; |
24 |
use C4::Biblio; |
|
|
25 |
use Koha::Items; |
25 |
use Koha::Linktracker; |
26 |
use Koha::Linktracker; |
26 |
use CGI qw ( -utf8 ); |
27 |
use CGI qw ( -utf8 ); |
27 |
|
28 |
|
Lines 57-63
if ($uri) {
Link Here
|
57 |
|
58 |
|
58 |
my $record = C4::Biblio::GetMarcBiblio({ biblionumber => $biblionumber }); |
59 |
my $record = C4::Biblio::GetMarcBiblio({ biblionumber => $biblionumber }); |
59 |
my $marc_urls = C4::Biblio::GetMarcUrls($record, C4::Context->preference('marcflavour')); |
60 |
my $marc_urls = C4::Biblio::GetMarcUrls($record, C4::Context->preference('marcflavour')); |
60 |
if ( grep { $_ eq $uri } map { $_->{MARCURL} } @$marc_urls ) { |
61 |
if ( ( grep { $_ eq $uri } map { $_->{MARCURL} } @$marc_urls ) |
|
|
62 |
|| Koha::Items->search( { uri => $uri } )->count ) |
63 |
{ |
61 |
$tracker->trackclick( |
64 |
$tracker->trackclick( |
62 |
{ |
65 |
{ |
63 |
uri => $uri, |
66 |
uri => $uri, |
64 |
- |
|
|