|
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 |
- |
|
|