Bug 24488: perf - Group by at DBMS level

[srvgit] / opac / tracklinks.pl

diff --git a/opac/tracklinks.pl b/opac/tracklinks.pl
index 2c0d213..ab07f03 100755 (executable)
--- a/opac/tracklinks.pl
+++ b/opac/tracklinks.pl
@@ -28,7 +28,7 @@ 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;