Bug 20015: use Modern::Perl in Serials perl script

Test plan:
Check that use strict; use warnings; doesn't exist in the following
files and use Modern::Perl; is written instead.
acqui-search-result.pl
acqui-search.pl
checkexpiration.pl
reorder_members.pl
routing-preview.pl
routing.pl
serials-collection.pl
serials-edit.pl
subscription-add.pl
subscription-bib-search.pl
subscription-renew.pl
viewalerts.pl

Signed-off-by: Jon Knight <J.P.Knight@lboro.ac.uk>

Signed-off-by: Katrin Fischer <katrin.fischer.83@web.de>

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>

diff --git a/serials/acqui-search-result.pl b/serials/acqui-search-result.pl
index 5e57288..ede6c89 100755 (executable)
--- a/serials/acqui-search-result.pl
+++ b/serials/acqui-search-result.pl
@@ -40,8 +40,7 @@ acqui-search-result.pl
 =cut
 
 
-use strict;
-use warnings;
+use Modern::Perl;
 use C4::Auth;
 use C4::Biblio;
 use C4::Output;

diff --git a/serials/acqui-search.pl b/serials/acqui-search.pl
index ff404f7..bc25c69 100755 (executable)
--- a/serials/acqui-search.pl
+++ b/serials/acqui-search.pl
@@ -18,8 +18,7 @@
 # along with Koha; if not, see <http://www.gnu.org/licenses>.
 
 
-use strict;
-use warnings;
+use Modern::Perl;
 use CGI qw ( -utf8 );
 use C4::Auth;
 use C4::Output;

diff --git a/serials/checkexpiration.pl b/serials/checkexpiration.pl
index 7e2eed4..ae88841 100755 (executable)
--- a/serials/checkexpiration.pl
+++ b/serials/checkexpiration.pl
@@ -42,8 +42,7 @@ The date to filter on.
 
 =cut
 
-use strict;
-use warnings;
+use Modern::Perl;
 use CGI qw ( -utf8 );
 use C4::Auth;
 use C4::Serials; # GetExpirationDate

diff --git a/serials/reorder_members.pl b/serials/reorder_members.pl
index 3e0b86a..7edeb80 100755 (executable)
--- a/serials/reorder_members.pl
+++ b/serials/reorder_members.pl
@@ -18,8 +18,7 @@
 # In this instance it is in fact a setting up of a list of reserves for the item
 # where the hierarchical order can be changed on the fly and a routing list can be
 # printed out
-use strict;
-use warnings;
+use Modern::Perl;
 use CGI qw ( -utf8 );
 use C4::Auth qw( checkauth );
 use C4::Serials qw( reorder_members );

diff --git a/serials/routing-preview.pl b/serials/routing-preview.pl
index 56b1a73..798b14c 100755 (executable)
--- a/serials/routing-preview.pl
+++ b/serials/routing-preview.pl
@@ -18,8 +18,7 @@
 # Routing Preview.pl script used to view a routing list after creation
 # lets one print out routing slip and create (in this instance) the heirarchy
 # of reserves for the serial
-use strict;
-use warnings;
+use Modern::Perl;
 use CGI qw ( -utf8 );
 use C4::Koha;
 use C4::Auth;

diff --git a/serials/routing.pl b/serials/routing.pl
index af23b6c..ad5fe38 100755 (executable)
--- a/serials/routing.pl
+++ b/serials/routing.pl
@@ -25,8 +25,7 @@ printed out
 
 =cut
 
-use strict;
-use warnings;
+use Modern::Perl;
 use CGI qw ( -utf8 );
 use C4::Koha;
 use C4::Auth;

diff --git a/serials/serials-collection.pl b/serials/serials-collection.pl
index e9cb3fd..ed102c2 100755 (executable)
--- a/serials/serials-collection.pl
+++ b/serials/serials-collection.pl
@@ -19,8 +19,7 @@
 # along with Koha; if not, see <http://www.gnu.org/licenses>.
 
 
-use strict;
-use warnings;
+use Modern::Perl;
 use CGI qw ( -utf8 );
 use C4::Auth;
 use C4::Koha;

diff --git a/serials/serials-edit.pl b/serials/serials-edit.pl
index 1f5c775..090e2d3 100755 (executable)
--- a/serials/serials-edit.pl
+++ b/serials/serials-edit.pl
@@ -61,8 +61,7 @@ op can be :
 
 =cut
 
-use strict;
-use warnings;
+use Modern::Perl;
 use CGI qw ( -utf8 );
 use Encode qw( decode is_utf8 );
 use C4::Auth;

diff --git a/serials/subscription-add.pl b/serials/subscription-add.pl
index 16d397b..85ebd62 100755 (executable)
--- a/serials/subscription-add.pl
+++ b/serials/subscription-add.pl
@@ -15,8 +15,7 @@
 # You should have received a copy of the GNU General Public License
 # along with Koha; if not, see <http://www.gnu.org/licenses>.
 
-use strict;
-use warnings;
+use Modern::Perl;
 
 use CGI qw ( -utf8 );
 use Date::Calc qw(Today Day_of_Year Week_of_Year Add_Delta_Days Add_Delta_YM);

diff --git a/serials/subscription-bib-search.pl b/serials/subscription-bib-search.pl
index 35159e6..88de874 100755 (executable)
--- a/serials/subscription-bib-search.pl
+++ b/serials/subscription-bib-search.pl
@@ -46,8 +46,7 @@ to multipage gestion.
 
 =cut
 
-use strict;
-use warnings;
+use Modern::Perl;
 
 use CGI qw ( -utf8 );
 use C4::Koha;

diff --git a/serials/subscription-renew.pl b/serials/subscription-renew.pl
index bbbc8e5..06b03e2 100755 (executable)
--- a/serials/subscription-renew.pl
+++ b/serials/subscription-renew.pl
@@ -43,8 +43,7 @@ Id of the subscription this script has to renew
 
 =cut
 
-use strict;
-use warnings;
+use Modern::Perl;
 
 use CGI qw ( -utf8 );
 use Carp;

diff --git a/serials/viewalerts.pl b/serials/viewalerts.pl
index 7ee90b3..451032f 100755 (executable)
--- a/serials/viewalerts.pl
+++ b/serials/viewalerts.pl
@@ -18,8 +18,7 @@
 # You should have received a copy of the GNU General Public License
 # along with Koha; if not, see <http://www.gnu.org/licenses>.
 
-use strict;
-use warnings;
+use Modern::Perl;
 use CGI qw ( -utf8 );
 use C4::Auth;
 use C4::Context;