Bug 19995: use Modern::Perl in Catalogue perl scripts

Test Plan:
- Check that it now says 'use Modern::Perl;' and not 'use strict; use
warnings;' in the following catalogue perl scripts.

MARCdetail.pl
export.pl
image.pl
imageviewer.pl
issuehistory.pl
labeledMARCdetail.pl
moredetail.pl
search.pl
showmarc.pl
updateitem.pl

Signed-off-by: Jon Knight <J.P.Knight@lboro.ac.uk>

Signed-off-by: Katrin Fischer <katrin.fischer.83@web.de>

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
This commit is contained in:
Zoe Bennett 2018-01-18 00:45:11 +00:00 committed by Jonathan Druart
parent cc37c04bf3
commit cea818a56a
10 changed files with 10 additions and 20 deletions

View File

@ -43,8 +43,7 @@ the items attached to the biblio
=cut
use strict;
#use warnings; FIXME - Bug 2505
use Modern::Perl;
use CGI qw ( -utf8 );
use HTML::Entities;

View File

@ -1,6 +1,5 @@
#!/usr/bin/perl
use strict;
#use warnings; FIXME - Bug 2505
use Modern::Perl;
use C4::Record;
use C4::Auth;

View File

@ -23,8 +23,7 @@
#
#
use strict;
use warnings;
use Modern::Perl;
use CGI qw ( -utf8 ); #qw(:standard escapeHTML);
use C4::Context;

View File

@ -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 );
use C4::Auth;

View File

@ -16,8 +16,7 @@
# 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::Auth;

View File

@ -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 );
use HTML::Entities;
use MARC::Record;

View File

@ -19,8 +19,7 @@
# along with Koha; if not, see <http://www.gnu.org/licenses>.
use strict;
#use warnings; FIXME - Bug 2505
use Modern::Perl;
use C4::Koha;
use CGI qw ( -utf8 );
use HTML::Entities;

View File

@ -132,8 +132,7 @@ Not yet completed...
=cut
use strict; # always use
#use warnings; FIXME - Bug 2505
use Modern::Perl;
## STEP 1. Load things that are used in both search page and
# results page and decide which template to load, operations

View File

@ -20,8 +20,7 @@
# with Koha; if not, write to the Free Software Foundation, Inc.,
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
use strict;
use warnings;
use Modern::Perl;
# standard or CPAN modules used
use CGI qw(:standard -utf8);

View File

@ -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 );
use C4::Auth;
use C4::Context;