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

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

Return to bug 21018