Bugzilla – Attachment 71186 Details for
Bug 20015
use Modern::Perl in Serials perl scripts
Home
|
New
|
Browse
|
Search
|
[?]
|
Reports
|
Help
|
New Account
|
Log In
[x]
|
Forgot Password
Login:
[x]
[patch]
Bug 20015: use Modern::Perl in Serials perl script
Bug-20015-use-ModernPerl-in-Serials-perl-script.patch (text/plain), 5.68 KB, created by
Katrin Fischer
on 2018-02-04 13:26:44 UTC
(
hide
)
Description:
Bug 20015: use Modern::Perl in Serials perl script
Filename:
MIME Type:
Creator:
Katrin Fischer
Created:
2018-02-04 13:26:44 UTC
Size:
5.68 KB
patch
obsolete
>From 85bb44dc4259630fa604e03e1847c11e405bb0a1 Mon Sep 17 00:00:00 2001 >From: Jenny Way <jwayway@hotmail.com> >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 <J.P.Knight@lboro.ac.uk> > >Signed-off-by: Katrin Fischer <katrin.fischer.83@web.de> >--- > 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 5e57288e2d..ede6c89a7b 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 ff404f7139..bc25c69e58 100755 >--- a/serials/acqui-search.pl >+++ b/serials/acqui-search.pl >@@ -18,8 +18,7 @@ > # 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; > use C4::Output; >diff --git a/serials/checkexpiration.pl b/serials/checkexpiration.pl >index 7e2eed483c..ae88841444 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 3e0b86a7b8..7edeb80909 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 56b1a73b35..798b14cebb 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 af23b6cffd..ad5fe380b6 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 e9cb3fd8b8..ed102c2a22 100755 >--- a/serials/serials-collection.pl >+++ b/serials/serials-collection.pl >@@ -19,8 +19,7 @@ > # 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; > use C4::Koha; >diff --git a/serials/serials-edit.pl b/serials/serials-edit.pl >index 1f5c775ce8..090e2d3194 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 16d397bae8..85ebd62c72 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 <http://www.gnu.org/licenses>. > >-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 35159e6754..88de8748c4 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 bbbc8e501d..06b03e2d35 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 7ee90b39ec..451032f1e8 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 <http://www.gnu.org/licenses>. > >-use strict; >-use warnings; >+use Modern::Perl; > use CGI qw ( -utf8 ); > use C4::Auth; > use C4::Context; >-- >2.14.1
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 20015
:
70658
|
70898
|
71184
| 71186