From c8b0fa7968558c79b63f8cd27ab2727f504d3f68 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 --- 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 9988494..632b521 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 1a148ee..105c1dd 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 ea12ae6..b68cb54 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 069182d..628ef31 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 fcfa1bf..5f91f70 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 6c646c1..c63d933 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 ba01d3b..746cef8 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 efeadd7..cba025d 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 13793e7..38ffa6c 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 fcd8eb1..68c330c 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 bd1757f..613090b 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 f79f2f8..faae4d7 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 7129f18..af66679 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 a248db0..03f3594 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 6e2fe67..9bfa502 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 8bce7a8..ff31c6c 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 53c9438..76d473d 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 dfe93d7..c7331af 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 d94ff96..ee835ba 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 be9a863..8c8a301 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 f00bcba..16ce267 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 c14db87..c7e87b1 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.1.4