@@ -, +, @@ --- opac/ilsdi.pl | 9 ++++----- 1 files changed, 4 insertions(+), 5 deletions(-) --- a/opac/ilsdi.pl +++ a/opac/ilsdi.pl @@ -17,15 +17,14 @@ # with Koha; if not, write to the Free Software Foundation, Inc., # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. -use strict; -use warnings; - -use List::MoreUtils qw(any); +use Modern::Perl; use C4::ILSDI::Services; use C4::Auth; use C4::Output; use C4::Context; + +use List::MoreUtils qw(any); use XML::Simple; use CGI; @@ -214,7 +213,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"}; }; --