Bug 28561: Fix noisy warning about $direction too

[koha-ffzg.git] / opac / tracklinks.pl

diff --git a/opac/tracklinks.pl b/opac/tracklinks.pl
index 80794cb..e357f0a 100755 (executable)
--- a/opac/tracklinks.pl
+++ b/opac/tracklinks.pl
@@ -28,13 +28,16 @@ use Koha::Linktracker;
 use CGI qw ( -utf8 );
 use List::MoreUtils qw(any);
 
-my $cgi = new CGI;
+my $cgi = CGI->new;
 my $uri = $cgi->param('uri') || '';
 my $biblionumber = $cgi->param('biblionumber') || 0;
 my $itemnumber   = $cgi->param('itemnumber')   || 0;
 
 my $tracking_method = C4::Context->preference('TrackClicks');
-output_error( $cgi, '404' ) unless $tracking_method;
+unless ( $tracking_method ) {
+    output_error( $cgi, '404' );
+    exit;
+}
 my $tracker = Koha::Linktracker->new(
     { trackingmethod => $tracking_method } );
 if ($uri && ($biblionumber || $itemnumber) ) {
@@ -58,7 +61,7 @@ if ($uri && ($biblionumber || $itemnumber) ) {
 
     my $record = C4::Biblio::GetMarcBiblio({ biblionumber => $biblionumber });
     my $marc_urls = $record ? C4::Biblio::GetMarcUrls($record, C4::Context->preference('marcflavour')) : [];
-    my $search_crit = { uri => $uri };
+    my $search_crit = { uri => { -like => "%$uri%" } };
     if( $itemnumber ) { # itemnumber is leading over biblionumber
         $search_crit->{itemnumber} = $itemnumber;
     } elsif( $biblionumber ) {