Bugzilla – Attachment 70887 Details for
Bug 20009
use Modern::Perl in Members perl scripts
Home
|
New
|
Browse
|
Search
|
[?]
|
Reports
|
Help
|
New Account
|
Log In
[x]
|
Forgot Password
Login:
[x]
[patch]
Bug 20009 - use Modern::Perl in Members perl scripts
Bug-20009---use-ModernPerl-in-Members-perl-scripts.patch (text/plain), 9.39 KB, created by
Jon Knight
on 2018-01-24 18:22:54 UTC
(
hide
)
Description:
Bug 20009 - use Modern::Perl in Members perl scripts
Filename:
MIME Type:
Creator:
Jon Knight
Created:
2018-01-24 18:22:54 UTC
Size:
9.39 KB
patch
obsolete
>From 72bca7cd6b89bc819e795aedafb773a196607cdf Mon Sep 17 00:00:00 2001 >From: Te Rauhina Jackson <terauhina.jackson@gmail.com> >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 <http://www.gnu.org/licenses>. > >-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 <http://www.gnu.org/licenses>. > # > >-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 <http://www.gnu.org/licenses>. > >-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 <http://www.gnu.org/licenses>. > >-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 <http://www.gnu.org/licenses>. > >-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 <http://www.gnu.org/licenses>. > >-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 <http://www.gnu.org/licenses>. > > # 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 <http://www.gnu.org/licenses>. > >-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 <http://www.gnu.org/licenses>. > >-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 <http://www.gnu.org/licenses>. > >-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 <http://www.gnu.org/licenses>. > >-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 <http://www.gnu.org/licenses>. > >-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 <http://www.gnu.org/licenses>. > >-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 <http://www.gnu.org/licenses>. > >-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 <http://www.gnu.org/licenses>. > >-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 <http://www.gnu.org/licenses>. > >-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
You cannot view the attachment while viewing its details because your browser does not support IFRAMEs.
View the attachment on a separate page
.
View Attachment As Diff
View Attachment As Raw
Actions:
View
|
Diff
|
Splinter Review
Attachments on
bug 20009
:
70676
|
70887
|
70892
|
71190