From dc9ac1c43e9bf17bc94008a4691586e45b3ed4f8 Mon Sep 17 00:00:00 2001 From: Charlotte Cordwell Date: Thu, 18 Jan 2018 01:57:32 +0000 Subject: [PATCH] Bug 19997: use Modern::Perl in Circulation perl scripts Test Case: Check the following files have been updated from use strict; use warnings; to use Modern::Perl; bookcount.pl branchoverdues.pl branchtransfers.pl circulation.pl hold-transfer-slip.pl reserveratios.pl returns.pl selectbranchprinter.pl transfer-slip.pl transferstoreceive.pl view_holdsqueue.pl waitingreserves.pl ypattrodue-attr-search-authvalue.pl Signed-off-by: Jon Knight Signed-off-by: Katrin Fischer --- circ/bookcount.pl | 3 +-- circ/branchoverdues.pl | 3 +-- circ/branchtransfers.pl | 3 +-- circ/circulation.pl | 3 +-- circ/hold-transfer-slip.pl | 3 +-- circ/reserveratios.pl | 3 +-- circ/returns.pl | 3 +-- circ/selectbranchprinter.pl | 3 +-- circ/transfer-slip.pl | 3 +-- circ/transferstoreceive.pl | 3 +-- circ/view_holdsqueue.pl | 3 +-- circ/waitingreserves.pl | 3 +-- circ/ypattrodue-attr-search-authvalue.pl | 5 ++--- 13 files changed, 14 insertions(+), 27 deletions(-) diff --git a/circ/bookcount.pl b/circ/bookcount.pl index 2976a05b66..3543d920e9 100755 --- a/circ/bookcount.pl +++ b/circ/bookcount.pl @@ -20,8 +20,7 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; -#use warnings; FIXME - Bug 2505 +use Modern::Perl; use CGI qw ( -utf8 ); use C4::Debug; use C4::Context; diff --git a/circ/branchoverdues.pl b/circ/branchoverdues.pl index 29aad88092..d4c20cbb18 100755 --- a/circ/branchoverdues.pl +++ b/circ/branchoverdues.pl @@ -16,8 +16,7 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; -#use warnings; FIXME - Bug 2505 +use Modern::Perl; use C4::Context; use CGI qw ( -utf8 ); use C4::Output; diff --git a/circ/branchtransfers.pl b/circ/branchtransfers.pl index c1d30cb55d..c9791cc068 100755 --- a/circ/branchtransfers.pl +++ b/circ/branchtransfers.pl @@ -20,8 +20,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::Circulation; use C4::Output; diff --git a/circ/circulation.pl b/circ/circulation.pl index 5dc5d89a88..d074c8fb92 100755 --- a/circ/circulation.pl +++ b/circ/circulation.pl @@ -24,8 +24,7 @@ # FIXME There are too many calls to Koha::Patrons->find in this script -use strict; -use warnings; +use Modern::Perl; use CGI qw ( -utf8 ); use DateTime; use DateTime::Duration; diff --git a/circ/hold-transfer-slip.pl b/circ/hold-transfer-slip.pl index bd09e21586..115a434bbc 100755 --- a/circ/hold-transfer-slip.pl +++ b/circ/hold-transfer-slip.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; FIXME - Bug 2505 +use Modern::Perl; use C4::Context; use C4::Output; use CGI qw ( -utf8 ); diff --git a/circ/reserveratios.pl b/circ/reserveratios.pl index cea63eb8ed..104928addc 100755 --- a/circ/reserveratios.pl +++ b/circ/reserveratios.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 Date::Calc qw/Today Add_Delta_YM/; diff --git a/circ/returns.pl b/circ/returns.pl index 247a71eab9..9e02feecf3 100755 --- a/circ/returns.pl +++ b/circ/returns.pl @@ -27,8 +27,7 @@ script to execute returns of books =cut -use strict; -use warnings; +use Modern::Perl; # FIXME There are weird things going on with $patron and $borrowernumber in this script diff --git a/circ/selectbranchprinter.pl b/circ/selectbranchprinter.pl index 8099a38466..03fa65b1ec 100755 --- a/circ/selectbranchprinter.pl +++ b/circ/selectbranchprinter.pl @@ -17,8 +17,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::Context; diff --git a/circ/transfer-slip.pl b/circ/transfer-slip.pl index 52116729ea..8ffbeaae72 100755 --- a/circ/transfer-slip.pl +++ b/circ/transfer-slip.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::Context; use C4::Output; diff --git a/circ/transferstoreceive.pl b/circ/transferstoreceive.pl index 0929ed3137..de6a89aa22 100755 --- a/circ/transferstoreceive.pl +++ b/circ/transferstoreceive.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::Context; use C4::Output; diff --git a/circ/view_holdsqueue.pl b/circ/view_holdsqueue.pl index 3d8649aff1..bcacd5036e 100755 --- a/circ/view_holdsqueue.pl +++ b/circ/view_holdsqueue.pl @@ -22,8 +22,7 @@ This script displays items in the tmp_holdsqueue table =cut -use strict; -use warnings; +use Modern::Perl; use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; diff --git a/circ/waitingreserves.pl b/circ/waitingreserves.pl index 332c5dddb6..24e03475ab 100755 --- a/circ/waitingreserves.pl +++ b/circ/waitingreserves.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::Context; use C4::Output; diff --git a/circ/ypattrodue-attr-search-authvalue.pl b/circ/ypattrodue-attr-search-authvalue.pl index 7834b3bc24..4e8e2b3315 100755 --- a/circ/ypattrodue-attr-search-authvalue.pl +++ b/circ/ypattrodue-attr-search-authvalue.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::Context; use C4::Auth qw/check_cookie_auth/; @@ -56,4 +55,4 @@ while ( my $rec = $sth->fetchrow_hashref ) { "}"; $i++; } -print "]"; \ No newline at end of file +print "]"; -- 2.14.1