From f2502c94998c5a60e6ec038e64decc5fb64e5b6a Mon Sep 17 00:00:00 2001 From: Te Rauhina Jackson Date: Thu, 18 Jan 2018 03:43:59 +0000 Subject: [PATCH] Bug 20009: use Modern::Perl in Members perl scripts Test Plan: Check the following files have been updated from use strict; use warnings; to use Modern::Perl; boraccount.pl default_messageprefs.pl deletemem.pl files.pl mancredit.pl maninvoice.pl member-flags.pl member-password.pl memberentry.pl members-home.pl members-update-do.pl moremember.pl notices.pl pay.pl paycollect.pl printfeercpt.pl printinvoice.pl printslip.pl readingrec.pl routing-lists.pl setstatus.pl update-child.pl Signed-off-by: Jon Knight Signed-off-by: Katrin Fischer Signed-off-by: Jonathan Druart --- members/boraccount.pl | 3 +-- members/default_messageprefs.pl | 3 +-- members/deletemem.pl | 3 +-- members/files.pl | 3 +-- members/mancredit.pl | 3 +-- members/maninvoice.pl | 3 +-- members/member-flags.pl | 3 +-- members/member-password.pl | 3 +-- members/memberentry.pl | 3 +-- members/members-home.pl | 3 +-- members/members-update-do.pl | 3 +-- members/moremember.pl | 3 +-- members/notices.pl | 3 +-- members/pay.pl | 3 +-- members/paycollect.pl | 3 +-- members/printfeercpt.pl | 3 +-- members/printinvoice.pl | 3 +-- members/printslip.pl | 3 +-- members/readingrec.pl | 3 +-- members/routing-lists.pl | 3 +-- members/setstatus.pl | 3 +-- members/update-child.pl | 3 +-- 22 files changed, 22 insertions(+), 44 deletions(-) diff --git a/members/boraccount.pl b/members/boraccount.pl index 99884940f9..632b5210c0 100755 --- a/members/boraccount.pl +++ b/members/boraccount.pl @@ -22,8 +22,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 C4::Output; diff --git a/members/default_messageprefs.pl b/members/default_messageprefs.pl index 1a148eed47..105c1ddef0 100755 --- a/members/default_messageprefs.pl +++ b/members/default_messageprefs.pl @@ -18,8 +18,7 @@ # along with Koha; if not, see . # -use strict; -use warnings; +use Modern::Perl; use C4::Service; use C4::Form::MessagingPreferences; diff --git a/members/deletemem.pl b/members/deletemem.pl index ea12ae6008..b68cb54ad3 100755 --- a/members/deletemem.pl +++ b/members/deletemem.pl @@ -21,8 +21,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::Context; diff --git a/members/files.pl b/members/files.pl index 069182deb7..628ef3196c 100755 --- a/members/files.pl +++ b/members/files.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 ); diff --git a/members/mancredit.pl b/members/mancredit.pl index fcfa1bf96d..5f91f707d2 100755 --- a/members/mancredit.pl +++ b/members/mancredit.pl @@ -22,8 +22,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 C4::Output; diff --git a/members/maninvoice.pl b/members/maninvoice.pl index 6c646c14a4..c63d93321d 100755 --- a/members/maninvoice.pl +++ b/members/maninvoice.pl @@ -22,8 +22,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 C4::Output; diff --git a/members/member-flags.pl b/members/member-flags.pl index ba01d3befc..746cef81c1 100755 --- a/members/member-flags.pl +++ b/members/member-flags.pl @@ -4,8 +4,7 @@ # Written by Steve Tonnesen # July 26, 2002 (my birthday!) -use strict; -use warnings; +use Modern::Perl; use CGI qw ( -utf8 ); use C4::Output; diff --git a/members/member-password.pl b/members/member-password.pl index efeadd7bb2..cba025d4e2 100755 --- a/members/member-password.pl +++ b/members/member-password.pl @@ -4,8 +4,7 @@ #by chris@katipo.co.nz #converted to using templates 3/16/03 by mwhansen@hmc.edu -use strict; -use warnings; +use Modern::Perl; use C4::Auth; use Koha::AuthUtils; diff --git a/members/memberentry.pl b/members/memberentry.pl index 13793e71cf..38ffa6c952 100755 --- a/members/memberentry.pl +++ b/members/memberentry.pl @@ -19,8 +19,7 @@ # along with Koha; if not, see . # pragma -use strict; -use warnings; +use Modern::Perl; # external modules use CGI qw ( -utf8 ); diff --git a/members/members-home.pl b/members/members-home.pl index fcd8eb1734..68c330cdd7 100755 --- a/members/members-home.pl +++ b/members/members-home.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; +use Modern::Perl; use CGI qw ( -utf8 ); use C4::Auth; diff --git a/members/members-update-do.pl b/members/members-update-do.pl index bd1757f019..613090bf53 100755 --- a/members/members-update-do.pl +++ b/members/members-update-do.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; +use Modern::Perl; use CGI qw ( -utf8 ); use C4::Auth; diff --git a/members/moremember.pl b/members/moremember.pl index f79f2f811e..faae4d7f44 100755 --- a/members/moremember.pl +++ b/members/moremember.pl @@ -33,8 +33,7 @@ =cut -use strict; -#use warnings; FIXME - Bug 2505 +use Modern::Perl; use CGI qw ( -utf8 ); use HTML::Entities; use C4::Context; diff --git a/members/notices.pl b/members/notices.pl index 7129f18b5a..af66679e31 100755 --- a/members/notices.pl +++ b/members/notices.pl @@ -19,8 +19,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::Auth; use C4::Output; use CGI qw ( -utf8 ); diff --git a/members/pay.pl b/members/pay.pl index a248db0a51..03f3594d4d 100755 --- a/members/pay.pl +++ b/members/pay.pl @@ -26,8 +26,7 @@ =cut -use strict; -use warnings; +use Modern::Perl; use URI::Escape; use C4::Context; diff --git a/members/paycollect.pl b/members/paycollect.pl index 6e2fe679a0..9bfa502537 100755 --- a/members/paycollect.pl +++ b/members/paycollect.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 URI::Escape; use C4::Context; use C4::Auth; diff --git a/members/printfeercpt.pl b/members/printfeercpt.pl index 8bce7a8892..ff31c6ceed 100755 --- a/members/printfeercpt.pl +++ b/members/printfeercpt.pl @@ -22,8 +22,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 C4::Output; diff --git a/members/printinvoice.pl b/members/printinvoice.pl index 53c9438266..76d473d23b 100755 --- a/members/printinvoice.pl +++ b/members/printinvoice.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 C4::Auth; use C4::Output; diff --git a/members/printslip.pl b/members/printslip.pl index dfe93d75cd..c7331af442 100755 --- a/members/printslip.pl +++ b/members/printslip.pl @@ -32,8 +32,7 @@ =cut -use strict; -#use warnings; FIXME - Bug 2505 +use Modern::Perl; use CGI qw ( -utf8 ); use C4::Context; use C4::Auth qw/:DEFAULT get_session/; diff --git a/members/readingrec.pl b/members/readingrec.pl index d94ff96b39..ee835ba6f6 100755 --- a/members/readingrec.pl +++ b/members/readingrec.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 ); diff --git a/members/routing-lists.pl b/members/routing-lists.pl index be9a863a3f..8c8a301e67 100755 --- a/members/routing-lists.pl +++ b/members/routing-lists.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; FIXME - Bug 2505 +use Modern::Perl; use CGI qw ( -utf8 ); use C4::Output; use C4::Auth qw/:DEFAULT/; diff --git a/members/setstatus.pl b/members/setstatus.pl index f00bcbaf4d..16ce2676c8 100755 --- a/members/setstatus.pl +++ b/members/setstatus.pl @@ -23,8 +23,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/members/update-child.pl b/members/update-child.pl index c14db87ea7..c7e87b1163 100755 --- a/members/update-child.pl +++ b/members/update-child.pl @@ -26,8 +26,7 @@ =cut -use strict; -#use warnings; FIXME - Bug 2505 +use Modern::Perl; use CGI qw ( -utf8 ); use C4::Context; use C4::Auth; -- 2.39.5