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