Browse Source

Bug 20017: use Modern::Perl in Tools perl scripts

Test plan:
Check that the following files don't contain use strict; use warnings;
and have use Modern::Perl instead.
background-job-progress.pl
batchMod.pl
copy-holidays.pl
exceptionHolidays.pl
holidays.pl
import_borrowers.pl
koha-news.pl
letter.pl
manage-marc-import.pl
newHolidays.pl
overduerules.pl
quotes-upload.pl
quotes.pl
quotes/quotes-upload_ajax.pl
quotes/quotes_ajax.pl
scheduler.pl
stage-marc-import.pl
upload-cover-image.pl

Also the credits have been added to newHolidays.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>
18.05.x
Jenny Way 5 years ago
committed by Jonathan Druart
parent
commit
cad2db6016
  1. 3
      tools/background-job-progress.pl
  2. 3
      tools/batchMod.pl
  3. 3
      tools/copy-holidays.pl
  4. 3
      tools/exceptionHolidays.pl
  5. 3
      tools/holidays.pl
  6. 3
      tools/import_borrowers.pl
  7. 3
      tools/koha-news.pl
  8. 3
      tools/letter.pl
  9. 3
      tools/manage-marc-import.pl
  10. 20
      tools/newHolidays.pl
  11. 3
      tools/overduerules.pl
  12. 3
      tools/quotes-upload.pl
  13. 3
      tools/quotes.pl
  14. 3
      tools/quotes/quotes-upload_ajax.pl
  15. 3
      tools/quotes/quotes_ajax.pl
  16. 3
      tools/scheduler.pl
  17. 3
      tools/stage-marc-import.pl
  18. 3
      tools/upload-cover-image.pl

3
tools/background-job-progress.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;
# standard or CPAN modules used
use IO::File;

3
tools/batchMod.pl

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

3
tools/copy-holidays.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 );

3
tools/exceptionHolidays.pl

@ -1,7 +1,6 @@
#!/usr/bin/perl
use strict;
use warnings;
use Modern::Perl;
use CGI qw ( -utf8 );

3
tools/holidays.pl

@ -16,8 +16,7 @@
# along with Koha; if not, see <http://www.gnu.org/licenses>.
#####Sets holiday periods for each branch. Datedues will be extended if branch is closed -TG
use strict;
use warnings;
use Modern::Perl;
use CGI qw ( -utf8 );

3
tools/import_borrowers.pl

@ -34,8 +34,7 @@
# dates should be in the format you have set up Koha to expect
# branchcode and categorycode need to be valid
use strict;
use warnings;
use Modern::Perl;
use C4::Auth;
use C4::Output;

3
tools/koha-news.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; FIXME - Bug 2505
use Modern::Perl;
use CGI qw ( -utf8 );
use C4::Auth;
use C4::Koha;

3
tools/letter.pl

@ -40,8 +40,7 @@
# TODO This script drives the CRUD operations on the letter table
# The DB interaction should be handled by calls to C4/Letters.pm
use strict;
use warnings;
use Modern::Perl;
use CGI qw ( -utf8 );
use C4::Auth;
use C4::Context;

3
tools/manage-marc-import.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;
# standard or CPAN modules used
use CGI qw ( -utf8 );

20
tools/newHolidays.pl

@ -1,9 +1,23 @@
#!/usr/bin/perl
#FIXME: add a license
#FIXME: perltidy this file
use strict;
use warnings;
# This file is part of Koha.
#
# Koha is free software; you can redistribute it and/or modify it
# under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 3 of the License, or
# (at your option) any later version.
#
# Koha is distributed in the hope that it will be useful, but
# WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public Lic# along with Koha; if not, see <http://www.gnu.org/licenses>.
# along with Koha; if not, see <http://www.gnu.org/licenses>.
use Modern::Perl;
use CGI qw ( -utf8 );

3
tools/overduerules.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 );
use C4::Context;
use C4::Output;

3
tools/quotes-upload.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 );
use autouse 'Data::Dumper' => qw(Dumper);

3
tools/quotes.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 );
use autouse 'Data::Dumper' => qw(Dumper);

3
tools/quotes/quotes-upload_ajax.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 );
use JSON;

3
tools/quotes/quotes_ajax.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 );
use JSON;

3
tools/scheduler.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 C4::Context;
use C4::Scheduler;
use C4::Reports::Guided;

3
tools/stage-marc-import.pl

@ -24,8 +24,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;
# standard or CPAN modules used
use CGI qw ( -utf8 );

3
tools/upload-cover-image.pl

@ -37,8 +37,7 @@ resized, maintaining aspect ratio.
=cut
use strict;
use warnings;
use Modern::Perl;
use File::Temp;
use CGI qw ( -utf8 );

Loading…
Cancel
Save