Bugzilla – Attachment 71194 Details for
Bug 19996
use Modern::Perl in cataloguing perl scripts
Home
|
New
|
Browse
|
Search
|
[?]
|
Reports
|
Help
|
New Account
|
Log In
[x]
|
Forgot Password
Login:
[x]
[patch]
Bug 19996: use Modern::Perl in cataloguing perl scripts
Bug-19996-use-ModernPerl-in-cataloguing-perl-scrip.patch (text/plain), 34.17 KB, created by
Katrin Fischer
on 2018-02-04 14:28:57 UTC
(
hide
)
Description:
Bug 19996: use Modern::Perl in cataloguing perl scripts
Filename:
MIME Type:
Creator:
Katrin Fischer
Created:
2018-02-04 14:28:57 UTC
Size:
34.17 KB
patch
obsolete
>From 153d9feccaa4ddfa8385b36628858a1fddae98f7 Mon Sep 17 00:00:00 2001 >From: Grace Smyth <gracesmythh@gmail.com> >Date: Thu, 18 Jan 2018 03:30:08 +0000 >Subject: [PATCH] Bug 19996: use Modern::Perl in cataloguing perl scripts > >Test Case: >Check the following files have been updated from >use strict; >use warnings; >to >use Modern::Perl; > >addbiblio.pl >addbooks.pl >additem.pl >linkitem.pl >moveitem.pl >value_builder/normarc_field_007.pl >value_builder/normarc_field_008.pl >value_builder/normarc_leader.pl >value_builder/unimarc_field_010.pl >value_builder/unimarc_field_100.pl >value_builder/unimarc_field_105.pl >value_builder/unimarc_field_106.pl >value_builder/unimarc_field_110.pl >value_builder/unimarc_field_115a.pl >value_builder/unimarc_field_115b.pl >value_builder/unimarc_field_116.pl >value_builder/unimarc_field_117.pl >value_builder/unimarc_field_120.pl >value_builder/unimarc_field_121a.pl >value_builder/unimarc_field_121b.pl >value_builder/unimarc_field_122.pl >value_builder/unimarc_field_123a.pl >value_builder/unimarc_field_123d.pl >value_builder/unimarc_field_123e.pl >value_builder/unimarc_field_123f.pl >value_builder/unimarc_field_123g.pl >value_builder/unimarc_field_123i.pl >value_builder/unimarc_field_123j.pl >value_builder/unimarc_field_124.pl >value_builder/unimarc_field_124a.pl >value_builder/unimarc_field_124b.pl >value_builder/unimarc_field_124c.pl >value_builder/unimarc_field_124d.pl >value_builder/unimarc_field_124e.pl >value_builder/unimarc_field_124f.pl >value_builder/unimarc_field_124g.pl >value_builder/unimarc_field_125.pl >value_builder/unimarc_field_125a.pl >value_builder/unimarc_field_125b.pl >value_builder/unimarc_field_126.pl >value_builder/unimarc_field_126a.pl >value_builder/unimarc_field_126b.pl >value_builder/unimarc_field_127.pl >value_builder/unimarc_field_128a.pl >value_builder/unimarc_field_128b.pl >value_builder/unimarc_field_128c.pl >value_builder/unimarc_field_130.pl >value_builder/unimarc_field_135a.pl >value_builder/unimarc_field_140.pl >value_builder/unimarc_field_141.pl >value_builder/unimarc_field_210c.pl >value_builder/unimarc_field_210c_bis.pl >value_builder/unimarc_field_225a.pl >value_builder/unimarc_field_4XX.pl >value_builder/unimarc_field_686a.pl >value_builder/unimarc_field_700-4.pl >value_builder/unimarc_leader.pl >z3950_auth_search.pl >z3950_search.pl > >Signed-off-by: Katrin Fischer <katrin.fischer.83@web.de> >--- > cataloguing/addbiblio.pl | 3 ++- > cataloguing/addbooks.pl | 4 ++-- > cataloguing/additem.pl | 3 ++- > cataloguing/linkitem.pl | 3 ++- > cataloguing/moveitem.pl | 3 ++- > cataloguing/value_builder/normarc_field_007.pl | 2 +- > cataloguing/value_builder/normarc_field_008.pl | 2 +- > cataloguing/value_builder/normarc_leader.pl | 3 ++- > cataloguing/value_builder/unimarc_field_010.pl | 3 +-- > cataloguing/value_builder/unimarc_field_100.pl | 2 +- > cataloguing/value_builder/unimarc_field_105.pl | 3 ++- > cataloguing/value_builder/unimarc_field_106.pl | 2 +- > cataloguing/value_builder/unimarc_field_110.pl | 3 ++- > cataloguing/value_builder/unimarc_field_115a.pl | 3 ++- > cataloguing/value_builder/unimarc_field_115b.pl | 3 ++- > cataloguing/value_builder/unimarc_field_116.pl | 3 ++- > cataloguing/value_builder/unimarc_field_117.pl | 2 +- > cataloguing/value_builder/unimarc_field_120.pl | 2 +- > cataloguing/value_builder/unimarc_field_121a.pl | 2 +- > cataloguing/value_builder/unimarc_field_121b.pl | 2 +- > cataloguing/value_builder/unimarc_field_122.pl | 2 +- > cataloguing/value_builder/unimarc_field_123a.pl | 2 +- > cataloguing/value_builder/unimarc_field_123d.pl | 2 +- > cataloguing/value_builder/unimarc_field_123e.pl | 2 +- > cataloguing/value_builder/unimarc_field_123f.pl | 2 +- > cataloguing/value_builder/unimarc_field_123g.pl | 2 +- > cataloguing/value_builder/unimarc_field_123i.pl | 3 ++- > cataloguing/value_builder/unimarc_field_123j.pl | 2 +- > cataloguing/value_builder/unimarc_field_124.pl | 2 +- > cataloguing/value_builder/unimarc_field_124a.pl | 2 +- > cataloguing/value_builder/unimarc_field_124b.pl | 3 ++- > cataloguing/value_builder/unimarc_field_124c.pl | 3 ++- > cataloguing/value_builder/unimarc_field_124d.pl | 3 ++- > cataloguing/value_builder/unimarc_field_124e.pl | 3 ++- > cataloguing/value_builder/unimarc_field_124f.pl | 3 ++- > cataloguing/value_builder/unimarc_field_124g.pl | 2 +- > cataloguing/value_builder/unimarc_field_125.pl | 2 +- > cataloguing/value_builder/unimarc_field_125a.pl | 2 +- > cataloguing/value_builder/unimarc_field_125b.pl | 2 +- > cataloguing/value_builder/unimarc_field_126.pl | 2 +- > cataloguing/value_builder/unimarc_field_126a.pl | 2 +- > cataloguing/value_builder/unimarc_field_126b.pl | 2 +- > cataloguing/value_builder/unimarc_field_127.pl | 2 +- > cataloguing/value_builder/unimarc_field_128a.pl | 2 +- > cataloguing/value_builder/unimarc_field_128b.pl | 2 +- > cataloguing/value_builder/unimarc_field_128c.pl | 2 +- > cataloguing/value_builder/unimarc_field_130.pl | 2 +- > cataloguing/value_builder/unimarc_field_135a.pl | 2 +- > cataloguing/value_builder/unimarc_field_140.pl | 2 +- > cataloguing/value_builder/unimarc_field_141.pl | 2 +- > cataloguing/value_builder/unimarc_field_210c.pl | 4 +--- > cataloguing/value_builder/unimarc_field_210c_bis.pl | 2 +- > cataloguing/value_builder/unimarc_field_225a.pl | 2 +- > cataloguing/value_builder/unimarc_field_4XX.pl | 2 +- > cataloguing/value_builder/unimarc_field_686a.pl | 2 +- > cataloguing/value_builder/unimarc_field_700-4.pl | 2 +- > cataloguing/value_builder/unimarc_leader.pl | 2 +- > cataloguing/z3950_auth_search.pl | 4 ++-- > cataloguing/z3950_search.pl | 3 +-- > 59 files changed, 77 insertions(+), 65 deletions(-) > >diff --git a/cataloguing/addbiblio.pl b/cataloguing/addbiblio.pl >index 3d14f83e66..cfae8734db 100755 >--- a/cataloguing/addbiblio.pl >+++ b/cataloguing/addbiblio.pl >@@ -19,7 +19,8 @@ > # 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 Modern::Perl; >+ > #use warnings; FIXME - Bug 2505 > use CGI q(-utf8); > use C4::Output; >diff --git a/cataloguing/addbooks.pl b/cataloguing/addbooks.pl >index 653bced3f7..ae4d7acbde 100755 >--- a/cataloguing/addbooks.pl >+++ b/cataloguing/addbooks.pl >@@ -24,8 +24,8 @@ > > =cut > >-use strict; >-use warnings; >+use Modern::Perl; >+ > use CGI qw ( -utf8 ); > use C4::Auth; > use C4::Biblio; >diff --git a/cataloguing/additem.pl b/cataloguing/additem.pl >index a0500a4189..77dd5d5cf3 100755 >--- a/cataloguing/additem.pl >+++ b/cataloguing/additem.pl >@@ -19,7 +19,8 @@ > # 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 Modern::Perl; >+ > #use warnings; FIXME - Bug 2505 > use CGI qw ( -utf8 ); > use C4::Auth; >diff --git a/cataloguing/linkitem.pl b/cataloguing/linkitem.pl >index e23ff25fb1..40e2a98898 100755 >--- a/cataloguing/linkitem.pl >+++ b/cataloguing/linkitem.pl >@@ -19,7 +19,8 @@ > # 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 Modern::Perl; >+ > use CGI qw ( -utf8 ); > use C4::Auth; > use C4::Output; >diff --git a/cataloguing/moveitem.pl b/cataloguing/moveitem.pl >index 7805da4dad..ed6c3df889 100755 >--- a/cataloguing/moveitem.pl >+++ b/cataloguing/moveitem.pl >@@ -19,7 +19,8 @@ > # 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 Modern::Perl; >+ > #use warnings; FIXME - Bug 2505 > use CGI qw ( -utf8 ); > use C4::Auth; >diff --git a/cataloguing/value_builder/normarc_field_007.pl b/cataloguing/value_builder/normarc_field_007.pl >index 8bf3ba7e13..2931b4204e 100755 >--- a/cataloguing/value_builder/normarc_field_007.pl >+++ b/cataloguing/value_builder/normarc_field_007.pl >@@ -17,7 +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 Modern::Perl; > use C4::Auth; > use CGI qw ( -utf8 ); > use C4::Context; >diff --git a/cataloguing/value_builder/normarc_field_008.pl b/cataloguing/value_builder/normarc_field_008.pl >index b626d370b2..a156cd268e 100755 >--- a/cataloguing/value_builder/normarc_field_008.pl >+++ b/cataloguing/value_builder/normarc_field_008.pl >@@ -17,7 +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 Modern::Perl; > use C4::Auth; > use CGI qw ( -utf8 ); > use C4::Context; >diff --git a/cataloguing/value_builder/normarc_leader.pl b/cataloguing/value_builder/normarc_leader.pl >index d0842d788a..29a1a7aef2 100755 >--- a/cataloguing/value_builder/normarc_leader.pl >+++ b/cataloguing/value_builder/normarc_leader.pl >@@ -18,7 +18,8 @@ > # 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 Modern::Perl; >+ > use C4::Auth; > use CGI qw ( -utf8 ); > use C4::Context; >diff --git a/cataloguing/value_builder/unimarc_field_010.pl b/cataloguing/value_builder/unimarc_field_010.pl >index 1df7e80ce4..5c68b184cd 100755 >--- a/cataloguing/value_builder/unimarc_field_010.pl >+++ b/cataloguing/value_builder/unimarc_field_010.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 C4::Auth; > use CGI qw ( -utf8 ); > use C4::Context; >diff --git a/cataloguing/value_builder/unimarc_field_100.pl b/cataloguing/value_builder/unimarc_field_100.pl >index 99798e6714..1fe8ff47ad 100755 >--- a/cataloguing/value_builder/unimarc_field_100.pl >+++ b/cataloguing/value_builder/unimarc_field_100.pl >@@ -18,7 +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 Modern::Perl; > #use warnings; FIXME - Bug 2505 > use Date::Calc qw( Today ); > >diff --git a/cataloguing/value_builder/unimarc_field_105.pl b/cataloguing/value_builder/unimarc_field_105.pl >index 0afc26f2cc..1b5f9c5e32 100755 >--- a/cataloguing/value_builder/unimarc_field_105.pl >+++ b/cataloguing/value_builder/unimarc_field_105.pl >@@ -18,7 +18,8 @@ > # 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 Modern::Perl; >+ > #use warnings; FIXME - Bug 2505 > > use Koha::Util::FrameworkPlugin qw(wrapper); >diff --git a/cataloguing/value_builder/unimarc_field_106.pl b/cataloguing/value_builder/unimarc_field_106.pl >index 031edab1cf..8eca995e17 100755 >--- a/cataloguing/value_builder/unimarc_field_106.pl >+++ b/cataloguing/value_builder/unimarc_field_106.pl >@@ -18,7 +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 Modern::Perl; > #use warnings; FIXME - Bug 2505 > use C4::Auth; > use CGI qw ( -utf8 ); >diff --git a/cataloguing/value_builder/unimarc_field_110.pl b/cataloguing/value_builder/unimarc_field_110.pl >index 547b4087bd..4d37ce17c0 100755 >--- a/cataloguing/value_builder/unimarc_field_110.pl >+++ b/cataloguing/value_builder/unimarc_field_110.pl >@@ -18,7 +18,8 @@ > # 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 Modern::Perl; >+ > #use warnings; FIXME - Bug 2505 > > use Koha::Util::FrameworkPlugin qw(wrapper); >diff --git a/cataloguing/value_builder/unimarc_field_115a.pl b/cataloguing/value_builder/unimarc_field_115a.pl >index 68bbdcb9db..8a3839ac68 100755 >--- a/cataloguing/value_builder/unimarc_field_115a.pl >+++ b/cataloguing/value_builder/unimarc_field_115a.pl >@@ -18,7 +18,8 @@ > # 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 Modern::Perl; >+ > #use warnings; FIXME - Bug 2505 > > use Koha::Util::FrameworkPlugin qw(wrapper); >diff --git a/cataloguing/value_builder/unimarc_field_115b.pl b/cataloguing/value_builder/unimarc_field_115b.pl >index 5aa81d4c55..e0aa09032c 100755 >--- a/cataloguing/value_builder/unimarc_field_115b.pl >+++ b/cataloguing/value_builder/unimarc_field_115b.pl >@@ -18,7 +18,8 @@ > # 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 Modern::Perl; >+ > #use warnings; FIXME - Bug 2505 > > use Koha::Util::FrameworkPlugin qw(wrapper); >diff --git a/cataloguing/value_builder/unimarc_field_116.pl b/cataloguing/value_builder/unimarc_field_116.pl >index da5ab99d28..4e8abf1d01 100755 >--- a/cataloguing/value_builder/unimarc_field_116.pl >+++ b/cataloguing/value_builder/unimarc_field_116.pl >@@ -18,7 +18,8 @@ > # 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 Modern::Perl; >+ > #use warnings; FIXME - Bug 2505 > > use Koha::Util::FrameworkPlugin qw(wrapper); >diff --git a/cataloguing/value_builder/unimarc_field_117.pl b/cataloguing/value_builder/unimarc_field_117.pl >index 995e53b9f5..baa1834c11 100755 >--- a/cataloguing/value_builder/unimarc_field_117.pl >+++ b/cataloguing/value_builder/unimarc_field_117.pl >@@ -18,7 +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 Modern::Perl; > #use warnings; FIXME - Bug 2505 > > use Koha::Util::FrameworkPlugin qw(wrapper); >diff --git a/cataloguing/value_builder/unimarc_field_120.pl b/cataloguing/value_builder/unimarc_field_120.pl >index 50abed84fe..633384d477 100755 >--- a/cataloguing/value_builder/unimarc_field_120.pl >+++ b/cataloguing/value_builder/unimarc_field_120.pl >@@ -18,7 +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 Modern::Perl; > #use warnings; FIXME - Bug 2505 > > use Koha::Util::FrameworkPlugin qw(wrapper); >diff --git a/cataloguing/value_builder/unimarc_field_121a.pl b/cataloguing/value_builder/unimarc_field_121a.pl >index 6f8092c118..4e8c157fba 100755 >--- a/cataloguing/value_builder/unimarc_field_121a.pl >+++ b/cataloguing/value_builder/unimarc_field_121a.pl >@@ -18,7 +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 Modern::Perl; > #use warnings; FIXME - Bug 2505 > > use Koha::Util::FrameworkPlugin qw(wrapper); >diff --git a/cataloguing/value_builder/unimarc_field_121b.pl b/cataloguing/value_builder/unimarc_field_121b.pl >index 209121026a..6de569cb0f 100755 >--- a/cataloguing/value_builder/unimarc_field_121b.pl >+++ b/cataloguing/value_builder/unimarc_field_121b.pl >@@ -18,7 +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 Modern::Perl; > #use warnings; FIXME - Bug 2505 > use C4::Auth; > use CGI qw ( -utf8 ); >diff --git a/cataloguing/value_builder/unimarc_field_122.pl b/cataloguing/value_builder/unimarc_field_122.pl >index 36a5459643..13660cbc07 100755 >--- a/cataloguing/value_builder/unimarc_field_122.pl >+++ b/cataloguing/value_builder/unimarc_field_122.pl >@@ -18,7 +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 Modern::Perl; > #use warnings; FIXME - Bug 2505 > use C4::Auth; > use CGI qw ( -utf8 ); >diff --git a/cataloguing/value_builder/unimarc_field_123a.pl b/cataloguing/value_builder/unimarc_field_123a.pl >index 3d3b2d3c85..a850673192 100755 >--- a/cataloguing/value_builder/unimarc_field_123a.pl >+++ b/cataloguing/value_builder/unimarc_field_123a.pl >@@ -18,7 +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 Modern::Perl; > #use warnings; FIXME - Bug 2505 > use C4::Auth; > use CGI qw ( -utf8 ); >diff --git a/cataloguing/value_builder/unimarc_field_123d.pl b/cataloguing/value_builder/unimarc_field_123d.pl >index 3f0db3efa0..aab8011abc 100755 >--- a/cataloguing/value_builder/unimarc_field_123d.pl >+++ b/cataloguing/value_builder/unimarc_field_123d.pl >@@ -18,7 +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 Modern::Perl; > #use warnings; FIXME - Bug 2505 > use C4::Auth; > use CGI qw ( -utf8 ); >diff --git a/cataloguing/value_builder/unimarc_field_123e.pl b/cataloguing/value_builder/unimarc_field_123e.pl >index 3f0db3efa0..aab8011abc 100755 >--- a/cataloguing/value_builder/unimarc_field_123e.pl >+++ b/cataloguing/value_builder/unimarc_field_123e.pl >@@ -18,7 +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 Modern::Perl; > #use warnings; FIXME - Bug 2505 > use C4::Auth; > use CGI qw ( -utf8 ); >diff --git a/cataloguing/value_builder/unimarc_field_123f.pl b/cataloguing/value_builder/unimarc_field_123f.pl >index 84c9294994..51e7190d5d 100755 >--- a/cataloguing/value_builder/unimarc_field_123f.pl >+++ b/cataloguing/value_builder/unimarc_field_123f.pl >@@ -18,7 +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 Modern::Perl; > #use warnings; FIXME - Bug 2505 > use C4::Auth; > use CGI qw ( -utf8 ); >diff --git a/cataloguing/value_builder/unimarc_field_123g.pl b/cataloguing/value_builder/unimarc_field_123g.pl >index 3f0db3efa0..aab8011abc 100755 >--- a/cataloguing/value_builder/unimarc_field_123g.pl >+++ b/cataloguing/value_builder/unimarc_field_123g.pl >@@ -18,7 +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 Modern::Perl; > #use warnings; FIXME - Bug 2505 > use C4::Auth; > use CGI qw ( -utf8 ); >diff --git a/cataloguing/value_builder/unimarc_field_123i.pl b/cataloguing/value_builder/unimarc_field_123i.pl >index 137b9d0ae9..dcd69b3cb0 100755 >--- a/cataloguing/value_builder/unimarc_field_123i.pl >+++ b/cataloguing/value_builder/unimarc_field_123i.pl >@@ -18,7 +18,8 @@ > # 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 Modern::Perl; >+ > #use warnings; FIXME - Bug 2505 > use C4::Auth; > use CGI qw ( -utf8 ); >diff --git a/cataloguing/value_builder/unimarc_field_123j.pl b/cataloguing/value_builder/unimarc_field_123j.pl >index 52cb4bf6fa..5cd213859f 100755 >--- a/cataloguing/value_builder/unimarc_field_123j.pl >+++ b/cataloguing/value_builder/unimarc_field_123j.pl >@@ -18,7 +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 Modern::Perl; > #use warnings; FIXME - Bug 2505 > use C4::Auth; > use CGI qw ( -utf8 ); >diff --git a/cataloguing/value_builder/unimarc_field_124.pl b/cataloguing/value_builder/unimarc_field_124.pl >index 78f0dc338c..1feb7d37db 100755 >--- a/cataloguing/value_builder/unimarc_field_124.pl >+++ b/cataloguing/value_builder/unimarc_field_124.pl >@@ -18,7 +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 Modern::Perl; > #use warnings; FIXME - Bug 2505 > use C4::Auth; > use CGI qw ( -utf8 ); >diff --git a/cataloguing/value_builder/unimarc_field_124a.pl b/cataloguing/value_builder/unimarc_field_124a.pl >index c7782bc4e8..a2895da83f 100755 >--- a/cataloguing/value_builder/unimarc_field_124a.pl >+++ b/cataloguing/value_builder/unimarc_field_124a.pl >@@ -18,7 +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 Modern::Perl; > #use warnings; FIXME - Bug 2505 > use C4::Auth; > use CGI qw ( -utf8 ); >diff --git a/cataloguing/value_builder/unimarc_field_124b.pl b/cataloguing/value_builder/unimarc_field_124b.pl >index 6f9c8934ca..d5f7e6652a 100755 >--- a/cataloguing/value_builder/unimarc_field_124b.pl >+++ b/cataloguing/value_builder/unimarc_field_124b.pl >@@ -18,7 +18,8 @@ > # 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 Modern::Perl; >+ > #use warnings; FIXME - Bug 2505 > use C4::Auth; > use CGI qw ( -utf8 ); >diff --git a/cataloguing/value_builder/unimarc_field_124c.pl b/cataloguing/value_builder/unimarc_field_124c.pl >index f14456dc20..cbce3a5cb0 100755 >--- a/cataloguing/value_builder/unimarc_field_124c.pl >+++ b/cataloguing/value_builder/unimarc_field_124c.pl >@@ -18,7 +18,8 @@ > # 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 Modern::Perl; >+ > #use warnings; FIXME - Bug 2505 > use C4::Auth; > use CGI qw ( -utf8 ); >diff --git a/cataloguing/value_builder/unimarc_field_124d.pl b/cataloguing/value_builder/unimarc_field_124d.pl >index 5d36466687..21264c781d 100755 >--- a/cataloguing/value_builder/unimarc_field_124d.pl >+++ b/cataloguing/value_builder/unimarc_field_124d.pl >@@ -18,7 +18,8 @@ > # 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 Modern::Perl; >+ > #use warnings; FIXME - Bug 2505 > use C4::Auth; > use CGI qw ( -utf8 ); >diff --git a/cataloguing/value_builder/unimarc_field_124e.pl b/cataloguing/value_builder/unimarc_field_124e.pl >index cd0e7d0b65..4e99831fa2 100755 >--- a/cataloguing/value_builder/unimarc_field_124e.pl >+++ b/cataloguing/value_builder/unimarc_field_124e.pl >@@ -18,7 +18,8 @@ > # 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 Modern::Perl; >+ > #use warnings; FIXME - Bug 2505 > use C4::Auth; > use CGI qw ( -utf8 ); >diff --git a/cataloguing/value_builder/unimarc_field_124f.pl b/cataloguing/value_builder/unimarc_field_124f.pl >index 5a823c99ed..cac0a5e1ea 100755 >--- a/cataloguing/value_builder/unimarc_field_124f.pl >+++ b/cataloguing/value_builder/unimarc_field_124f.pl >@@ -18,7 +18,8 @@ > # 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 Modern::Perl; >+ > #use warnings; FIXME - Bug 2505 > use C4::Auth; > use CGI qw ( -utf8 ); >diff --git a/cataloguing/value_builder/unimarc_field_124g.pl b/cataloguing/value_builder/unimarc_field_124g.pl >index 25d97b95ee..fbd31ecb0a 100755 >--- a/cataloguing/value_builder/unimarc_field_124g.pl >+++ b/cataloguing/value_builder/unimarc_field_124g.pl >@@ -18,7 +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 Modern::Perl; > #use warnings; FIXME - Bug 2505 > use C4::Auth; > use CGI qw ( -utf8 ); >diff --git a/cataloguing/value_builder/unimarc_field_125.pl b/cataloguing/value_builder/unimarc_field_125.pl >index 2b56b0ba1d..c220a79f38 100755 >--- a/cataloguing/value_builder/unimarc_field_125.pl >+++ b/cataloguing/value_builder/unimarc_field_125.pl >@@ -18,7 +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 Modern::Perl; > #use warnings; FIXME - Bug 2505 > use C4::Auth; > use CGI qw ( -utf8 ); >diff --git a/cataloguing/value_builder/unimarc_field_125a.pl b/cataloguing/value_builder/unimarc_field_125a.pl >index 2d862afa55..f555007086 100755 >--- a/cataloguing/value_builder/unimarc_field_125a.pl >+++ b/cataloguing/value_builder/unimarc_field_125a.pl >@@ -18,7 +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 Modern::Perl; > #use warnings; FIXME - Bug 2505 > use C4::Auth; > use CGI qw ( -utf8 ); >diff --git a/cataloguing/value_builder/unimarc_field_125b.pl b/cataloguing/value_builder/unimarc_field_125b.pl >index 09142efe1f..9887ba156f 100755 >--- a/cataloguing/value_builder/unimarc_field_125b.pl >+++ b/cataloguing/value_builder/unimarc_field_125b.pl >@@ -18,7 +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 Modern::Perl; > #use warnings; FIXME - Bug 2505 > > use Koha::Util::FrameworkPlugin qw(wrapper); >diff --git a/cataloguing/value_builder/unimarc_field_126.pl b/cataloguing/value_builder/unimarc_field_126.pl >index 78f0dc338c..1feb7d37db 100755 >--- a/cataloguing/value_builder/unimarc_field_126.pl >+++ b/cataloguing/value_builder/unimarc_field_126.pl >@@ -18,7 +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 Modern::Perl; > #use warnings; FIXME - Bug 2505 > use C4::Auth; > use CGI qw ( -utf8 ); >diff --git a/cataloguing/value_builder/unimarc_field_126a.pl b/cataloguing/value_builder/unimarc_field_126a.pl >index e9b141d445..fbccba86d2 100755 >--- a/cataloguing/value_builder/unimarc_field_126a.pl >+++ b/cataloguing/value_builder/unimarc_field_126a.pl >@@ -18,7 +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 Modern::Perl; > #use warnings; FIXME - Bug 2505 > > use Koha::Util::FrameworkPlugin qw(wrapper); >diff --git a/cataloguing/value_builder/unimarc_field_126b.pl b/cataloguing/value_builder/unimarc_field_126b.pl >index 592c96a861..77dfb0856f 100755 >--- a/cataloguing/value_builder/unimarc_field_126b.pl >+++ b/cataloguing/value_builder/unimarc_field_126b.pl >@@ -18,7 +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 Modern::Perl; > #use warnings; FIXME - Bug 2505 > use C4::Auth; > use CGI qw ( -utf8 ); >diff --git a/cataloguing/value_builder/unimarc_field_127.pl b/cataloguing/value_builder/unimarc_field_127.pl >index 3670f9d131..1084137ecf 100755 >--- a/cataloguing/value_builder/unimarc_field_127.pl >+++ b/cataloguing/value_builder/unimarc_field_127.pl >@@ -18,7 +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 Modern::Perl; > #use warnings; FIXME - Bug 2505 > use C4::Auth; > use CGI qw ( -utf8 ); >diff --git a/cataloguing/value_builder/unimarc_field_128a.pl b/cataloguing/value_builder/unimarc_field_128a.pl >index dafa0d1137..b3fb5c7dfb 100755 >--- a/cataloguing/value_builder/unimarc_field_128a.pl >+++ b/cataloguing/value_builder/unimarc_field_128a.pl >@@ -18,7 +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 Modern::Perl; > #use warnings; FIXME - Bug 2505 > use C4::Auth; > use CGI qw ( -utf8 ); >diff --git a/cataloguing/value_builder/unimarc_field_128b.pl b/cataloguing/value_builder/unimarc_field_128b.pl >index 2a4290d789..d9db926358 100755 >--- a/cataloguing/value_builder/unimarc_field_128b.pl >+++ b/cataloguing/value_builder/unimarc_field_128b.pl >@@ -18,7 +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 Modern::Perl; > #use warnings; FIXME - Bug 2505 > > use Koha::Util::FrameworkPlugin qw(wrapper); >diff --git a/cataloguing/value_builder/unimarc_field_128c.pl b/cataloguing/value_builder/unimarc_field_128c.pl >index eb32a49658..b6a2835eb3 100755 >--- a/cataloguing/value_builder/unimarc_field_128c.pl >+++ b/cataloguing/value_builder/unimarc_field_128c.pl >@@ -18,7 +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 Modern::Perl; > #use warnings; FIXME - Bug 2505 > use C4::Auth; > use CGI qw ( -utf8 ); >diff --git a/cataloguing/value_builder/unimarc_field_130.pl b/cataloguing/value_builder/unimarc_field_130.pl >index ab23ad8e83..2c40842af1 100755 >--- a/cataloguing/value_builder/unimarc_field_130.pl >+++ b/cataloguing/value_builder/unimarc_field_130.pl >@@ -18,7 +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 Modern::Perl; > #use warnings; FIXME - Bug 2505 > > use Koha::Util::FrameworkPlugin qw(wrapper); >diff --git a/cataloguing/value_builder/unimarc_field_135a.pl b/cataloguing/value_builder/unimarc_field_135a.pl >index 329c454034..73f5e5ac78 100755 >--- a/cataloguing/value_builder/unimarc_field_135a.pl >+++ b/cataloguing/value_builder/unimarc_field_135a.pl >@@ -18,7 +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 Modern::Perl; > #use warnings; FIXME - Bug 2505 > > use Koha::Util::FrameworkPlugin qw(wrapper); >diff --git a/cataloguing/value_builder/unimarc_field_140.pl b/cataloguing/value_builder/unimarc_field_140.pl >index bcdb24481e..9e431af261 100755 >--- a/cataloguing/value_builder/unimarc_field_140.pl >+++ b/cataloguing/value_builder/unimarc_field_140.pl >@@ -18,7 +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 Modern::Perl; > #use warnings; FIXME - Bug 2505 > > use Koha::Util::FrameworkPlugin qw(wrapper); >diff --git a/cataloguing/value_builder/unimarc_field_141.pl b/cataloguing/value_builder/unimarc_field_141.pl >index 6104c91297..83a56c6aa1 100755 >--- a/cataloguing/value_builder/unimarc_field_141.pl >+++ b/cataloguing/value_builder/unimarc_field_141.pl >@@ -18,7 +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 Modern::Perl; > #use warnings; FIXME - Bug 2505 > use C4::Auth; > use CGI qw ( -utf8 ); >diff --git a/cataloguing/value_builder/unimarc_field_210c.pl b/cataloguing/value_builder/unimarc_field_210c.pl >index 2180694b81..f6602a0e1b 100755 >--- a/cataloguing/value_builder/unimarc_field_210c.pl >+++ b/cataloguing/value_builder/unimarc_field_210c.pl >@@ -18,9 +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 C4::AuthoritiesMarc; > use C4::Auth; > use C4::Context; >diff --git a/cataloguing/value_builder/unimarc_field_210c_bis.pl b/cataloguing/value_builder/unimarc_field_210c_bis.pl >index eb73cfda92..31ad00d89f 100755 >--- a/cataloguing/value_builder/unimarc_field_210c_bis.pl >+++ b/cataloguing/value_builder/unimarc_field_210c_bis.pl >@@ -38,7 +38,7 @@ It need : > > =cut > >-use strict; >+use Modern::Perl; > > #use warnings; FIXME - Bug 2505 > use C4::Auth; >diff --git a/cataloguing/value_builder/unimarc_field_225a.pl b/cataloguing/value_builder/unimarc_field_225a.pl >index 0e0dca7dcd..5164253e47 100755 >--- a/cataloguing/value_builder/unimarc_field_225a.pl >+++ b/cataloguing/value_builder/unimarc_field_225a.pl >@@ -39,7 +39,7 @@ It need : > > =cut > >-use strict; >+use Modern::Perl; > #use warnings; FIXME - Bug 2505 > use C4::Auth; > use CGI qw ( -utf8 ); >diff --git a/cataloguing/value_builder/unimarc_field_4XX.pl b/cataloguing/value_builder/unimarc_field_4XX.pl >index c51434954c..635c797493 100755 >--- a/cataloguing/value_builder/unimarc_field_4XX.pl >+++ b/cataloguing/value_builder/unimarc_field_4XX.pl >@@ -18,7 +18,7 @@ > # along with Koha; if not, see <http://www.gnu.org/licenses>. > > >-use strict; >+use Modern::Perl; > #use warnings; FIXME - Bug 2505 > > use CGI qw ( -utf8 ); >diff --git a/cataloguing/value_builder/unimarc_field_686a.pl b/cataloguing/value_builder/unimarc_field_686a.pl >index 2a7ca7067f..b2238f0617 100755 >--- a/cataloguing/value_builder/unimarc_field_686a.pl >+++ b/cataloguing/value_builder/unimarc_field_686a.pl >@@ -17,7 +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 Modern::Perl; > #use warnings; FIXME - Bug 2505 > use C4::Auth; > use CGI qw ( -utf8 ); >diff --git a/cataloguing/value_builder/unimarc_field_700-4.pl b/cataloguing/value_builder/unimarc_field_700-4.pl >index 4adba962a0..ad5283b79d 100755 >--- a/cataloguing/value_builder/unimarc_field_700-4.pl >+++ b/cataloguing/value_builder/unimarc_field_700-4.pl >@@ -19,7 +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 Modern::Perl; > #use warnings; FIXME - Bug 2505 > use C4::Auth; > use CGI qw ( -utf8 ); >diff --git a/cataloguing/value_builder/unimarc_leader.pl b/cataloguing/value_builder/unimarc_leader.pl >index b333061854..e6feade6c3 100755 >--- a/cataloguing/value_builder/unimarc_leader.pl >+++ b/cataloguing/value_builder/unimarc_leader.pl >@@ -18,7 +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 Modern::Perl; > #use warnings; FIXME - Bug 2505 > > use Koha::Util::FrameworkPlugin qw(wrapper); >diff --git a/cataloguing/z3950_auth_search.pl b/cataloguing/z3950_auth_search.pl >index c808b7b7b1..4526ccfdf6 100755 >--- a/cataloguing/z3950_auth_search.pl >+++ b/cataloguing/z3950_auth_search.pl >@@ -16,8 +16,8 @@ > # 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/cataloguing/z3950_search.pl b/cataloguing/z3950_search.pl >index 6ab1baa8cd..dcc2581c02 100755 >--- a/cataloguing/z3950_search.pl >+++ b/cataloguing/z3950_search.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; >-- >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 19996
:
70672
|
70884
| 71194 |
71195
|
71196
|
71659
|
71660