@@ -, +, @@ --- tools/background-job-progress.pl | 3 +-- tools/batchMod.pl | 3 +-- tools/copy-holidays.pl | 3 +-- tools/exceptionHolidays.pl | 3 +-- tools/holidays.pl | 3 +-- tools/import_borrowers.pl | 3 +-- tools/koha-news.pl | 3 +-- tools/letter.pl | 3 +-- tools/manage-marc-import.pl | 3 +-- tools/newHolidays.pl | 24 ++++++++++++++++++++---- tools/overduerules.pl | 3 +-- tools/quotes-upload.pl | 3 +-- tools/quotes.pl | 3 +-- tools/quotes/quotes-upload_ajax.pl | 3 +-- tools/quotes/quotes_ajax.pl | 3 +-- tools/scheduler.pl | 3 +-- tools/stage-marc-import.pl | 3 +-- tools/upload-cover-image.pl | 3 +-- 18 files changed, 37 insertions(+), 38 deletions(-) --- a/tools/background-job-progress.pl +++ a/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 . -use strict; -#use warnings; FIXME - Bug 2505 +use Modern::Perl; # standard or CPAN modules used use IO::File; --- a/tools/batchMod.pl +++ a/tools/batchMod.pl @@ -19,8 +19,7 @@ # along with Koha; if not, see . use CGI qw ( -utf8 ); -use strict; -#use warnings; FIXME - Bug 2505 +use Modern::Perl; use C4::Auth; use C4::Output; use C4::Biblio; --- a/tools/copy-holidays.pl +++ a/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 . -use strict; -use warnings; +use Modern::Perl; use CGI qw ( -utf8 ); --- a/tools/exceptionHolidays.pl +++ a/tools/exceptionHolidays.pl @@ -1,7 +1,6 @@ #!/usr/bin/perl -use strict; -use warnings; +use Modern::Perl; use CGI qw ( -utf8 ); --- a/tools/holidays.pl +++ a/tools/holidays.pl @@ -16,8 +16,7 @@ # along with Koha; if not, see . #####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 ); --- a/tools/import_borrowers.pl +++ a/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; --- a/tools/koha-news.pl +++ a/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 . -use strict; -# use warnings; FIXME - Bug 2505 +use Modern::Perl; use CGI qw ( -utf8 ); use C4::Auth; use C4::Koha; --- a/tools/letter.pl +++ a/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; --- a/tools/manage-marc-import.pl +++ a/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 . -use strict; -use warnings; +use Modern::Perl; # standard or CPAN modules used use CGI qw ( -utf8 ); --- a/tools/newHolidays.pl +++ a/tools/newHolidays.pl @@ -1,9 +1,25 @@ #!/usr/bin/perl -#FIXME: add a license #FIXME: perltidy this file - -use strict; -use warnings; +# +# Copyright 2011 C & P Bibliography Services +# +# 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 . +# along with Koha; if not, see . + + +use Modern::Perl; use CGI qw ( -utf8 ); --- a/tools/overduerules.pl +++ a/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 . -use strict; -use warnings; +use Modern::Perl; use CGI qw ( -utf8 ); use C4::Context; use C4::Output; --- a/tools/quotes-upload.pl +++ a/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 . -use strict; -use warnings; +use Modern::Perl; use CGI qw ( -utf8 ); use autouse 'Data::Dumper' => qw(Dumper); --- a/tools/quotes.pl +++ a/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 . -use strict; -use warnings; +use Modern::Perl; use CGI qw ( -utf8 ); use autouse 'Data::Dumper' => qw(Dumper); --- a/tools/quotes/quotes-upload_ajax.pl +++ a/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 . -use strict; -use warnings; +use Modern::Perl; use CGI qw ( -utf8 ); use JSON; --- a/tools/quotes/quotes_ajax.pl +++ a/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 . -use strict; -use warnings; +use Modern::Perl; use CGI qw ( -utf8 ); use JSON; --- a/tools/scheduler.pl +++ a/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 . -use strict; -#use warnings; FIXME - Bug 2505 +use Modern::Perl; use C4::Context; use C4::Scheduler; use C4::Reports::Guided; --- a/tools/stage-marc-import.pl +++ a/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 . -use strict; -#use warnings; FIXME - Bug 2505 +use Modern::Perl; # standard or CPAN modules used use CGI qw ( -utf8 ); --- a/tools/upload-cover-image.pl +++ a/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 ); --