From b183c440d5817180431498c0d4b5cdff8116dad3 Mon Sep 17 00:00:00 2001 From: Jenny Way Date: Thu, 18 Jan 2018 00:56:42 +0000 Subject: [PATCH] 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 --- serials/acqui-search-result.pl | 3 +-- serials/acqui-search.pl | 3 +-- serials/checkexpiration.pl | 3 +-- serials/reorder_members.pl | 3 +-- serials/routing-preview.pl | 3 +-- serials/routing.pl | 3 +-- serials/serials-collection.pl | 3 +-- serials/serials-edit.pl | 3 +-- serials/subscription-add.pl | 3 +-- serials/subscription-bib-search.pl | 3 +-- serials/subscription-renew.pl | 3 +-- serials/viewalerts.pl | 3 +-- 12 files changed, 12 insertions(+), 24 deletions(-) diff --git a/serials/acqui-search-result.pl b/serials/acqui-search-result.pl index 5e57288..ede6c89 100755 --- 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 --- a/serials/acqui-search.pl +++ b/serials/acqui-search.pl @@ -18,8 +18,7 @@ # along with Koha; if not, see . -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 --- 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 --- 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 --- 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 --- 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 --- a/serials/serials-collection.pl +++ b/serials/serials-collection.pl @@ -19,8 +19,7 @@ # along with Koha; if not, see . -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 --- 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 --- 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 . -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 --- 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 --- 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 --- 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 . -use strict; -use warnings; +use Modern::Perl; use CGI qw ( -utf8 ); use C4::Auth; use C4::Context; -- 2.1.4