View | Details | Raw Unified | Return to bug 23329
Collapse All | Expand All

(-)a/opac/tracklinks.pl (-2 / +2 lines)
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
- 

Return to bug 23329