diff --git a/opac/ilsdi.pl b/opac/ilsdi.pl index 05e7c5cf90..c53acc6bca 100755 --- a/opac/ilsdi.pl +++ b/opac/ilsdi.pl @@ -17,14 +17,15 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use Modern::Perl; +use strict; +use warnings; + +use List::MoreUtils qw(any); use C4::ILSDI::Services; use C4::Auth; use C4::Output; use C4::Context; - -use List::MoreUtils qw(any); use XML::Simple; use CGI qw ( -utf8 ); @@ -216,7 +217,7 @@ if ( $service and any { $service eq $_ } @services ) { # Variable functions my $sub = do { -# no strict 'refs'; + no strict 'refs'; my $symbol = 'C4::ILSDI::Services::' . $service; \&{"$symbol"}; };