View | Details | Raw Unified | Return to bug 20017
Collapse All | Expand All

(-)a/tools/background-job-progress.pl (-2 / +1 lines)
Lines 17-24 Link Here
17
# You should have received a copy of the GNU General Public License
17
# You should have received a copy of the GNU General Public License
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
19
19
20
use strict;
20
use Modern::Perl;
21
#use warnings; FIXME - Bug 2505
22
21
23
# standard or CPAN modules used
22
# standard or CPAN modules used
24
use IO::File;
23
use IO::File;
(-)a/tools/batchMod.pl (-2 / +1 lines)
Lines 19-26 Link Here
19
# along with Koha; if not, see <http://www.gnu.org/licenses>.
19
# along with Koha; if not, see <http://www.gnu.org/licenses>.
20
20
21
use CGI qw ( -utf8 );
21
use CGI qw ( -utf8 );
22
use strict;
22
use Modern::Perl;
23
#use warnings; FIXME - Bug 2505
24
use C4::Auth;
23
use C4::Auth;
25
use C4::Output;
24
use C4::Output;
26
use C4::Biblio;
25
use C4::Biblio;
(-)a/tools/copy-holidays.pl (-2 / +1 lines)
Lines 17-24 Link Here
17
# You should have received a copy of the GNU General Public License
17
# You should have received a copy of the GNU General Public License
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
19
19
20
use strict;
20
use Modern::Perl;
21
use warnings;
22
21
23
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
24
23
(-)a/tools/exceptionHolidays.pl (-2 / +1 lines)
Lines 1-7 Link Here
1
#!/usr/bin/perl
1
#!/usr/bin/perl
2
2
3
use strict;
3
use Modern::Perl;
4
use warnings;
5
4
6
use CGI qw ( -utf8 );
5
use CGI qw ( -utf8 );
7
6
(-)a/tools/holidays.pl (-2 / +1 lines)
Lines 16-23 Link Here
16
# along with Koha; if not, see <http://www.gnu.org/licenses>.
16
# along with Koha; if not, see <http://www.gnu.org/licenses>.
17
17
18
#####Sets holiday periods for each branch. Datedues will be extended if branch is closed -TG
18
#####Sets holiday periods for each branch. Datedues will be extended if branch is closed -TG
19
use strict;
19
use Modern::Perl;
20
use warnings;
21
20
22
use CGI qw ( -utf8 );
21
use CGI qw ( -utf8 );
23
22
(-)a/tools/import_borrowers.pl (-2 / +1 lines)
Lines 34-41 Link Here
34
# dates should be in the format you have set up Koha to expect
34
# dates should be in the format you have set up Koha to expect
35
# branchcode and categorycode need to be valid
35
# branchcode and categorycode need to be valid
36
36
37
use strict;
37
use Modern::Perl;
38
use warnings;
39
38
40
use C4::Auth;
39
use C4::Auth;
41
use C4::Output;
40
use C4::Output;
(-)a/tools/koha-news.pl (-2 / +1 lines)
Lines 22-29 Link Here
22
# You should have received a copy of the GNU General Public License
22
# You should have received a copy of the GNU General Public License
23
# along with Koha; if not, see <http://www.gnu.org/licenses>.
23
# along with Koha; if not, see <http://www.gnu.org/licenses>.
24
24
25
use strict;
25
use Modern::Perl;
26
# use warnings; FIXME - Bug 2505
27
use CGI qw ( -utf8 );
26
use CGI qw ( -utf8 );
28
use C4::Auth;
27
use C4::Auth;
29
use C4::Koha;
28
use C4::Koha;
(-)a/tools/letter.pl (-2 / +1 lines)
Lines 40-47 Link Here
40
# TODO This script drives the CRUD operations on the letter table
40
# TODO This script drives the CRUD operations on the letter table
41
# The DB interaction should be handled by calls to C4/Letters.pm
41
# The DB interaction should be handled by calls to C4/Letters.pm
42
42
43
use strict;
43
use Modern::Perl;
44
use warnings;
45
use CGI qw ( -utf8 );
44
use CGI qw ( -utf8 );
46
use C4::Auth;
45
use C4::Auth;
47
use C4::Context;
46
use C4::Context;
(-)a/tools/manage-marc-import.pl (-2 / +1 lines)
Lines 17-24 Link Here
17
# You should have received a copy of the GNU General Public License
17
# You should have received a copy of the GNU General Public License
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
19
19
20
use strict;
20
use Modern::Perl;
21
use warnings;
22
21
23
# standard or CPAN modules used
22
# standard or CPAN modules used
24
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
(-)a/tools/newHolidays.pl (-4 / +20 lines)
Lines 1-9 Link Here
1
#!/usr/bin/perl
1
#!/usr/bin/perl
2
#FIXME: add a license
3
#FIXME: perltidy this file
2
#FIXME: perltidy this file
4
3
#
5
use strict;
4
# Copyright 2011 C & P Bibliography Services
6
use warnings;
5
#
6
# This file is part of Koha.
7
#
8
# Koha is free software; you can redistribute it and/or modify it
9
# under the terms of the GNU General Public License as published by
10
# the Free Software Foundation; either version 3 of the License, or
11
# (at your option) any later version.
12
#
13
# Koha is distributed in the hope that it will be useful, but
14
# WITHOUT ANY WARRANTY; without even the implied warranty of
15
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16
# GNU General Public License for more details.
17
#
18
# You should have received a copy of the GNU General Public Lic# along with Koha; if not, see <http://www.gnu.org/licenses>.
19
# along with Koha; if not, see <http://www.gnu.org/licenses>.
20
21
22
use Modern::Perl;
7
23
8
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
9
25
(-)a/tools/overduerules.pl (-2 / +1 lines)
Lines 17-24 Link Here
17
# You should have received a copy of the GNU General Public License
17
# You should have received a copy of the GNU General Public License
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
19
19
20
use strict;
20
use Modern::Perl;
21
use warnings;
22
use CGI qw ( -utf8 );
21
use CGI qw ( -utf8 );
23
use C4::Context;
22
use C4::Context;
24
use C4::Output;
23
use C4::Output;
(-)a/tools/quotes-upload.pl (-2 / +1 lines)
Lines 17-24 Link Here
17
# You should have received a copy of the GNU General Public License
17
# You should have received a copy of the GNU General Public License
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
19
19
20
use strict;
20
use Modern::Perl;
21
use warnings;
22
21
23
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
24
use autouse 'Data::Dumper' => qw(Dumper);
23
use autouse 'Data::Dumper' => qw(Dumper);
(-)a/tools/quotes.pl (-2 / +1 lines)
Lines 17-24 Link Here
17
# You should have received a copy of the GNU General Public License
17
# You should have received a copy of the GNU General Public License
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
19
19
20
use strict;
20
use Modern::Perl;
21
use warnings;
22
21
23
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
24
use autouse 'Data::Dumper' => qw(Dumper);
23
use autouse 'Data::Dumper' => qw(Dumper);
(-)a/tools/quotes/quotes-upload_ajax.pl (-2 / +1 lines)
Lines 17-24 Link Here
17
# You should have received a copy of the GNU General Public License
17
# You should have received a copy of the GNU General Public License
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
19
19
20
use strict;
20
use Modern::Perl;
21
use warnings;
22
21
23
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
24
use JSON;
23
use JSON;
(-)a/tools/quotes/quotes_ajax.pl (-2 / +1 lines)
Lines 17-24 Link Here
17
# You should have received a copy of the GNU General Public License
17
# You should have received a copy of the GNU General Public License
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
19
19
20
use strict;
20
use Modern::Perl;
21
use warnings;
22
21
23
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
24
use JSON;
23
use JSON;
(-)a/tools/scheduler.pl (-2 / +1 lines)
Lines 17-24 Link Here
17
# You should have received a copy of the GNU General Public License
17
# You should have received a copy of the GNU General Public License
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
19
19
20
use strict;
20
use Modern::Perl;
21
#use warnings; FIXME - Bug 2505
22
use C4::Context;
21
use C4::Context;
23
use C4::Scheduler;
22
use C4::Scheduler;
24
use C4::Reports::Guided;
23
use C4::Reports::Guided;
(-)a/tools/stage-marc-import.pl (-2 / +1 lines)
Lines 24-31 Link Here
24
# You should have received a copy of the GNU General Public License
24
# You should have received a copy of the GNU General Public License
25
# along with Koha; if not, see <http://www.gnu.org/licenses>.
25
# along with Koha; if not, see <http://www.gnu.org/licenses>.
26
26
27
use strict;
27
use Modern::Perl;
28
#use warnings; FIXME - Bug 2505
29
28
30
# standard or CPAN modules used
29
# standard or CPAN modules used
31
use CGI qw ( -utf8 );
30
use CGI qw ( -utf8 );
(-)a/tools/upload-cover-image.pl (-3 / +1 lines)
Lines 37-44 resized, maintaining aspect ratio. Link Here
37
37
38
=cut
38
=cut
39
39
40
use strict;
40
use Modern::Perl;
41
use warnings;
42
41
43
use File::Temp;
42
use File::Temp;
44
use CGI qw ( -utf8 );
43
use CGI qw ( -utf8 );
45
- 

Return to bug 20017