@@ -, +, @@ --- cataloguing/addbiblio.pl | 3 ++- cataloguing/addbooks.pl | 4 ++-- cataloguing/additem.pl | 3 ++- cataloguing/linkitem.pl | 3 ++- cataloguing/moveitem.pl | 3 ++- cataloguing/value_builder/normarc_field_007.pl | 2 +- cataloguing/value_builder/normarc_field_008.pl | 2 +- cataloguing/value_builder/normarc_leader.pl | 3 ++- cataloguing/value_builder/unimarc_field_010.pl | 3 +-- cataloguing/value_builder/unimarc_field_100.pl | 2 +- cataloguing/value_builder/unimarc_field_105.pl | 3 ++- cataloguing/value_builder/unimarc_field_106.pl | 2 +- cataloguing/value_builder/unimarc_field_110.pl | 3 ++- cataloguing/value_builder/unimarc_field_115a.pl | 3 ++- cataloguing/value_builder/unimarc_field_115b.pl | 3 ++- cataloguing/value_builder/unimarc_field_116.pl | 3 ++- cataloguing/value_builder/unimarc_field_117.pl | 2 +- cataloguing/value_builder/unimarc_field_120.pl | 2 +- cataloguing/value_builder/unimarc_field_121a.pl | 2 +- cataloguing/value_builder/unimarc_field_121b.pl | 2 +- cataloguing/value_builder/unimarc_field_122.pl | 2 +- cataloguing/value_builder/unimarc_field_123a.pl | 2 +- cataloguing/value_builder/unimarc_field_123d.pl | 2 +- cataloguing/value_builder/unimarc_field_123e.pl | 2 +- cataloguing/value_builder/unimarc_field_123f.pl | 2 +- cataloguing/value_builder/unimarc_field_123g.pl | 2 +- cataloguing/value_builder/unimarc_field_123i.pl | 3 ++- cataloguing/value_builder/unimarc_field_123j.pl | 2 +- cataloguing/value_builder/unimarc_field_124.pl | 2 +- cataloguing/value_builder/unimarc_field_124a.pl | 2 +- cataloguing/value_builder/unimarc_field_124b.pl | 3 ++- cataloguing/value_builder/unimarc_field_124c.pl | 3 ++- cataloguing/value_builder/unimarc_field_124d.pl | 3 ++- cataloguing/value_builder/unimarc_field_124e.pl | 3 ++- cataloguing/value_builder/unimarc_field_124f.pl | 3 ++- cataloguing/value_builder/unimarc_field_124g.pl | 2 +- cataloguing/value_builder/unimarc_field_125.pl | 2 +- cataloguing/value_builder/unimarc_field_125a.pl | 2 +- cataloguing/value_builder/unimarc_field_125b.pl | 2 +- cataloguing/value_builder/unimarc_field_126.pl | 2 +- cataloguing/value_builder/unimarc_field_126a.pl | 2 +- cataloguing/value_builder/unimarc_field_126b.pl | 2 +- cataloguing/value_builder/unimarc_field_127.pl | 2 +- cataloguing/value_builder/unimarc_field_128a.pl | 2 +- cataloguing/value_builder/unimarc_field_128b.pl | 2 +- cataloguing/value_builder/unimarc_field_128c.pl | 2 +- cataloguing/value_builder/unimarc_field_130.pl | 2 +- cataloguing/value_builder/unimarc_field_135a.pl | 2 +- cataloguing/value_builder/unimarc_field_140.pl | 2 +- cataloguing/value_builder/unimarc_field_141.pl | 2 +- cataloguing/value_builder/unimarc_field_210c.pl | 4 +--- cataloguing/value_builder/unimarc_field_210c_bis.pl | 2 +- cataloguing/value_builder/unimarc_field_225a.pl | 2 +- cataloguing/value_builder/unimarc_field_4XX.pl | 2 +- cataloguing/value_builder/unimarc_field_686a.pl | 2 +- cataloguing/value_builder/unimarc_field_700-4.pl | 2 +- cataloguing/value_builder/unimarc_leader.pl | 2 +- cataloguing/z3950_auth_search.pl | 4 ++-- cataloguing/z3950_search.pl | 3 +-- 59 files changed, 77 insertions(+), 65 deletions(-) --- a/cataloguing/addbiblio.pl +++ a/cataloguing/addbiblio.pl @@ -19,7 +19,8 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; +use Modern::Perl; + #use warnings; FIXME - Bug 2505 use CGI q(-utf8); use C4::Output; --- a/cataloguing/addbooks.pl +++ a/cataloguing/addbooks.pl @@ -24,8 +24,8 @@ =cut -use strict; -use warnings; +use Modern::Perl; + use CGI qw ( -utf8 ); use C4::Auth; use C4::Biblio; --- a/cataloguing/additem.pl +++ a/cataloguing/additem.pl @@ -19,7 +19,8 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; +use Modern::Perl; + #use warnings; FIXME - Bug 2505 use CGI qw ( -utf8 ); use C4::Auth; --- a/cataloguing/linkitem.pl +++ a/cataloguing/linkitem.pl @@ -19,7 +19,8 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; +use Modern::Perl; + use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; --- a/cataloguing/moveitem.pl +++ a/cataloguing/moveitem.pl @@ -19,7 +19,8 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; +use Modern::Perl; + #use warnings; FIXME - Bug 2505 use CGI qw ( -utf8 ); use C4::Auth; --- a/cataloguing/value_builder/normarc_field_007.pl +++ a/cataloguing/value_builder/normarc_field_007.pl @@ -17,7 +17,7 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; +use Modern::Perl; use C4::Auth; use CGI qw ( -utf8 ); use C4::Context; --- a/cataloguing/value_builder/normarc_field_008.pl +++ a/cataloguing/value_builder/normarc_field_008.pl @@ -17,7 +17,7 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; +use Modern::Perl; use C4::Auth; use CGI qw ( -utf8 ); use C4::Context; --- a/cataloguing/value_builder/normarc_leader.pl +++ a/cataloguing/value_builder/normarc_leader.pl @@ -18,7 +18,8 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; +use Modern::Perl; + use C4::Auth; use CGI qw ( -utf8 ); use C4::Context; --- a/cataloguing/value_builder/unimarc_field_010.pl +++ a/cataloguing/value_builder/unimarc_field_010.pl @@ -18,8 +18,7 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; -use warnings; +use Modern::Perl; use C4::Auth; use CGI qw ( -utf8 ); use C4::Context; --- a/cataloguing/value_builder/unimarc_field_100.pl +++ a/cataloguing/value_builder/unimarc_field_100.pl @@ -18,7 +18,7 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; +use Modern::Perl; #use warnings; FIXME - Bug 2505 use Date::Calc qw( Today ); --- a/cataloguing/value_builder/unimarc_field_105.pl +++ a/cataloguing/value_builder/unimarc_field_105.pl @@ -18,7 +18,8 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; +use Modern::Perl; + #use warnings; FIXME - Bug 2505 use Koha::Util::FrameworkPlugin qw(wrapper); --- a/cataloguing/value_builder/unimarc_field_106.pl +++ a/cataloguing/value_builder/unimarc_field_106.pl @@ -18,7 +18,7 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; +use Modern::Perl; #use warnings; FIXME - Bug 2505 use C4::Auth; use CGI qw ( -utf8 ); --- a/cataloguing/value_builder/unimarc_field_110.pl +++ a/cataloguing/value_builder/unimarc_field_110.pl @@ -18,7 +18,8 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; +use Modern::Perl; + #use warnings; FIXME - Bug 2505 use Koha::Util::FrameworkPlugin qw(wrapper); --- a/cataloguing/value_builder/unimarc_field_115a.pl +++ a/cataloguing/value_builder/unimarc_field_115a.pl @@ -18,7 +18,8 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; +use Modern::Perl; + #use warnings; FIXME - Bug 2505 use Koha::Util::FrameworkPlugin qw(wrapper); --- a/cataloguing/value_builder/unimarc_field_115b.pl +++ a/cataloguing/value_builder/unimarc_field_115b.pl @@ -18,7 +18,8 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; +use Modern::Perl; + #use warnings; FIXME - Bug 2505 use Koha::Util::FrameworkPlugin qw(wrapper); --- a/cataloguing/value_builder/unimarc_field_116.pl +++ a/cataloguing/value_builder/unimarc_field_116.pl @@ -18,7 +18,8 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; +use Modern::Perl; + #use warnings; FIXME - Bug 2505 use Koha::Util::FrameworkPlugin qw(wrapper); --- a/cataloguing/value_builder/unimarc_field_117.pl +++ a/cataloguing/value_builder/unimarc_field_117.pl @@ -18,7 +18,7 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; +use Modern::Perl; #use warnings; FIXME - Bug 2505 use Koha::Util::FrameworkPlugin qw(wrapper); --- a/cataloguing/value_builder/unimarc_field_120.pl +++ a/cataloguing/value_builder/unimarc_field_120.pl @@ -18,7 +18,7 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; +use Modern::Perl; #use warnings; FIXME - Bug 2505 use Koha::Util::FrameworkPlugin qw(wrapper); --- a/cataloguing/value_builder/unimarc_field_121a.pl +++ a/cataloguing/value_builder/unimarc_field_121a.pl @@ -18,7 +18,7 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; +use Modern::Perl; #use warnings; FIXME - Bug 2505 use Koha::Util::FrameworkPlugin qw(wrapper); --- a/cataloguing/value_builder/unimarc_field_121b.pl +++ a/cataloguing/value_builder/unimarc_field_121b.pl @@ -18,7 +18,7 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; +use Modern::Perl; #use warnings; FIXME - Bug 2505 use C4::Auth; use CGI qw ( -utf8 ); --- a/cataloguing/value_builder/unimarc_field_122.pl +++ a/cataloguing/value_builder/unimarc_field_122.pl @@ -18,7 +18,7 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; +use Modern::Perl; #use warnings; FIXME - Bug 2505 use C4::Auth; use CGI qw ( -utf8 ); --- a/cataloguing/value_builder/unimarc_field_123a.pl +++ a/cataloguing/value_builder/unimarc_field_123a.pl @@ -18,7 +18,7 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; +use Modern::Perl; #use warnings; FIXME - Bug 2505 use C4::Auth; use CGI qw ( -utf8 ); --- a/cataloguing/value_builder/unimarc_field_123d.pl +++ a/cataloguing/value_builder/unimarc_field_123d.pl @@ -18,7 +18,7 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; +use Modern::Perl; #use warnings; FIXME - Bug 2505 use C4::Auth; use CGI qw ( -utf8 ); --- a/cataloguing/value_builder/unimarc_field_123e.pl +++ a/cataloguing/value_builder/unimarc_field_123e.pl @@ -18,7 +18,7 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; +use Modern::Perl; #use warnings; FIXME - Bug 2505 use C4::Auth; use CGI qw ( -utf8 ); --- a/cataloguing/value_builder/unimarc_field_123f.pl +++ a/cataloguing/value_builder/unimarc_field_123f.pl @@ -18,7 +18,7 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; +use Modern::Perl; #use warnings; FIXME - Bug 2505 use C4::Auth; use CGI qw ( -utf8 ); --- a/cataloguing/value_builder/unimarc_field_123g.pl +++ a/cataloguing/value_builder/unimarc_field_123g.pl @@ -18,7 +18,7 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; +use Modern::Perl; #use warnings; FIXME - Bug 2505 use C4::Auth; use CGI qw ( -utf8 ); --- a/cataloguing/value_builder/unimarc_field_123i.pl +++ a/cataloguing/value_builder/unimarc_field_123i.pl @@ -18,7 +18,8 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; +use Modern::Perl; + #use warnings; FIXME - Bug 2505 use C4::Auth; use CGI qw ( -utf8 ); --- a/cataloguing/value_builder/unimarc_field_123j.pl +++ a/cataloguing/value_builder/unimarc_field_123j.pl @@ -18,7 +18,7 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; +use Modern::Perl; #use warnings; FIXME - Bug 2505 use C4::Auth; use CGI qw ( -utf8 ); --- a/cataloguing/value_builder/unimarc_field_124.pl +++ a/cataloguing/value_builder/unimarc_field_124.pl @@ -18,7 +18,7 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; +use Modern::Perl; #use warnings; FIXME - Bug 2505 use C4::Auth; use CGI qw ( -utf8 ); --- a/cataloguing/value_builder/unimarc_field_124a.pl +++ a/cataloguing/value_builder/unimarc_field_124a.pl @@ -18,7 +18,7 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; +use Modern::Perl; #use warnings; FIXME - Bug 2505 use C4::Auth; use CGI qw ( -utf8 ); --- a/cataloguing/value_builder/unimarc_field_124b.pl +++ a/cataloguing/value_builder/unimarc_field_124b.pl @@ -18,7 +18,8 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; +use Modern::Perl; + #use warnings; FIXME - Bug 2505 use C4::Auth; use CGI qw ( -utf8 ); --- a/cataloguing/value_builder/unimarc_field_124c.pl +++ a/cataloguing/value_builder/unimarc_field_124c.pl @@ -18,7 +18,8 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; +use Modern::Perl; + #use warnings; FIXME - Bug 2505 use C4::Auth; use CGI qw ( -utf8 ); --- a/cataloguing/value_builder/unimarc_field_124d.pl +++ a/cataloguing/value_builder/unimarc_field_124d.pl @@ -18,7 +18,8 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; +use Modern::Perl; + #use warnings; FIXME - Bug 2505 use C4::Auth; use CGI qw ( -utf8 ); --- a/cataloguing/value_builder/unimarc_field_124e.pl +++ a/cataloguing/value_builder/unimarc_field_124e.pl @@ -18,7 +18,8 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; +use Modern::Perl; + #use warnings; FIXME - Bug 2505 use C4::Auth; use CGI qw ( -utf8 ); --- a/cataloguing/value_builder/unimarc_field_124f.pl +++ a/cataloguing/value_builder/unimarc_field_124f.pl @@ -18,7 +18,8 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; +use Modern::Perl; + #use warnings; FIXME - Bug 2505 use C4::Auth; use CGI qw ( -utf8 ); --- a/cataloguing/value_builder/unimarc_field_124g.pl +++ a/cataloguing/value_builder/unimarc_field_124g.pl @@ -18,7 +18,7 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; +use Modern::Perl; #use warnings; FIXME - Bug 2505 use C4::Auth; use CGI qw ( -utf8 ); --- a/cataloguing/value_builder/unimarc_field_125.pl +++ a/cataloguing/value_builder/unimarc_field_125.pl @@ -18,7 +18,7 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; +use Modern::Perl; #use warnings; FIXME - Bug 2505 use C4::Auth; use CGI qw ( -utf8 ); --- a/cataloguing/value_builder/unimarc_field_125a.pl +++ a/cataloguing/value_builder/unimarc_field_125a.pl @@ -18,7 +18,7 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; +use Modern::Perl; #use warnings; FIXME - Bug 2505 use C4::Auth; use CGI qw ( -utf8 ); --- a/cataloguing/value_builder/unimarc_field_125b.pl +++ a/cataloguing/value_builder/unimarc_field_125b.pl @@ -18,7 +18,7 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; +use Modern::Perl; #use warnings; FIXME - Bug 2505 use Koha::Util::FrameworkPlugin qw(wrapper); --- a/cataloguing/value_builder/unimarc_field_126.pl +++ a/cataloguing/value_builder/unimarc_field_126.pl @@ -18,7 +18,7 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; +use Modern::Perl; #use warnings; FIXME - Bug 2505 use C4::Auth; use CGI qw ( -utf8 ); --- a/cataloguing/value_builder/unimarc_field_126a.pl +++ a/cataloguing/value_builder/unimarc_field_126a.pl @@ -18,7 +18,7 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; +use Modern::Perl; #use warnings; FIXME - Bug 2505 use Koha::Util::FrameworkPlugin qw(wrapper); --- a/cataloguing/value_builder/unimarc_field_126b.pl +++ a/cataloguing/value_builder/unimarc_field_126b.pl @@ -18,7 +18,7 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; +use Modern::Perl; #use warnings; FIXME - Bug 2505 use C4::Auth; use CGI qw ( -utf8 ); --- a/cataloguing/value_builder/unimarc_field_127.pl +++ a/cataloguing/value_builder/unimarc_field_127.pl @@ -18,7 +18,7 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; +use Modern::Perl; #use warnings; FIXME - Bug 2505 use C4::Auth; use CGI qw ( -utf8 ); --- a/cataloguing/value_builder/unimarc_field_128a.pl +++ a/cataloguing/value_builder/unimarc_field_128a.pl @@ -18,7 +18,7 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; +use Modern::Perl; #use warnings; FIXME - Bug 2505 use C4::Auth; use CGI qw ( -utf8 ); --- a/cataloguing/value_builder/unimarc_field_128b.pl +++ a/cataloguing/value_builder/unimarc_field_128b.pl @@ -18,7 +18,7 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; +use Modern::Perl; #use warnings; FIXME - Bug 2505 use Koha::Util::FrameworkPlugin qw(wrapper); --- a/cataloguing/value_builder/unimarc_field_128c.pl +++ a/cataloguing/value_builder/unimarc_field_128c.pl @@ -18,7 +18,7 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; +use Modern::Perl; #use warnings; FIXME - Bug 2505 use C4::Auth; use CGI qw ( -utf8 ); --- a/cataloguing/value_builder/unimarc_field_130.pl +++ a/cataloguing/value_builder/unimarc_field_130.pl @@ -18,7 +18,7 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; +use Modern::Perl; #use warnings; FIXME - Bug 2505 use Koha::Util::FrameworkPlugin qw(wrapper); --- a/cataloguing/value_builder/unimarc_field_135a.pl +++ a/cataloguing/value_builder/unimarc_field_135a.pl @@ -18,7 +18,7 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; +use Modern::Perl; #use warnings; FIXME - Bug 2505 use Koha::Util::FrameworkPlugin qw(wrapper); --- a/cataloguing/value_builder/unimarc_field_140.pl +++ a/cataloguing/value_builder/unimarc_field_140.pl @@ -18,7 +18,7 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; +use Modern::Perl; #use warnings; FIXME - Bug 2505 use Koha::Util::FrameworkPlugin qw(wrapper); --- a/cataloguing/value_builder/unimarc_field_141.pl +++ a/cataloguing/value_builder/unimarc_field_141.pl @@ -18,7 +18,7 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; +use Modern::Perl; #use warnings; FIXME - Bug 2505 use C4::Auth; use CGI qw ( -utf8 ); --- a/cataloguing/value_builder/unimarc_field_210c.pl +++ a/cataloguing/value_builder/unimarc_field_210c.pl @@ -18,9 +18,7 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; -use warnings; - +use Modern::Perl; use C4::AuthoritiesMarc; use C4::Auth; use C4::Context; --- a/cataloguing/value_builder/unimarc_field_210c_bis.pl +++ a/cataloguing/value_builder/unimarc_field_210c_bis.pl @@ -38,7 +38,7 @@ It need : =cut -use strict; +use Modern::Perl; #use warnings; FIXME - Bug 2505 use C4::Auth; --- a/cataloguing/value_builder/unimarc_field_225a.pl +++ a/cataloguing/value_builder/unimarc_field_225a.pl @@ -39,7 +39,7 @@ It need : =cut -use strict; +use Modern::Perl; #use warnings; FIXME - Bug 2505 use C4::Auth; use CGI qw ( -utf8 ); --- a/cataloguing/value_builder/unimarc_field_4XX.pl +++ a/cataloguing/value_builder/unimarc_field_4XX.pl @@ -18,7 +18,7 @@ # along with Koha; if not, see . -use strict; +use Modern::Perl; #use warnings; FIXME - Bug 2505 use CGI qw ( -utf8 ); --- a/cataloguing/value_builder/unimarc_field_686a.pl +++ a/cataloguing/value_builder/unimarc_field_686a.pl @@ -17,7 +17,7 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; +use Modern::Perl; #use warnings; FIXME - Bug 2505 use C4::Auth; use CGI qw ( -utf8 ); --- a/cataloguing/value_builder/unimarc_field_700-4.pl +++ a/cataloguing/value_builder/unimarc_field_700-4.pl @@ -19,7 +19,7 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; +use Modern::Perl; #use warnings; FIXME - Bug 2505 use C4::Auth; use CGI qw ( -utf8 ); --- a/cataloguing/value_builder/unimarc_leader.pl +++ a/cataloguing/value_builder/unimarc_leader.pl @@ -18,7 +18,7 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; +use Modern::Perl; #use warnings; FIXME - Bug 2505 use Koha::Util::FrameworkPlugin qw(wrapper); --- a/cataloguing/z3950_auth_search.pl +++ a/cataloguing/z3950_auth_search.pl @@ -16,8 +16,8 @@ # You should have received a copy of the GNU General Public License along # with Koha; if not, see . -use strict; -use warnings; +use Modern::Perl; + use CGI qw / -utf8 /; use C4::Auth; --- a/cataloguing/z3950_search.pl +++ a/cataloguing/z3950_search.pl @@ -18,8 +18,7 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; -use warnings; +use Modern::Perl; use CGI qw ( -utf8 ); use C4::Auth; --