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

(-)a/installer/data/mysql/backfill_statistics.pl (-2 / +1 lines)
Lines 3-10 Link Here
3
# Part of the Koha Library Software www.koha-community.org
3
# Part of the Koha Library Software www.koha-community.org
4
# Licensed under the GPL.
4
# Licensed under the GPL.
5
5
6
use strict;
6
use Modern::Perl;
7
use warnings;
8
7
9
# CPAN modules
8
# CPAN modules
10
use DBI;
9
use DBI;
(-)a/installer/data/mysql/labels_upgrade.pl (-3 lines)
Lines 17-25 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;
21
#use warnings; FIXME - Bug 2505
22
23
use C4::Context;
20
use C4::Context;
24
21
25
my $sth = C4::Context->dbh;
22
my $sth = C4::Context->dbh;
(-)a/installer/data/mysql/patroncards_upgrade.pl (-3 lines)
Lines 17-25 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;
21
#use warnings; FIXME - Bug 2505
22
23
use C4::Context;
20
use C4::Context;
24
21
25
my $sth = C4::Context->dbh;
22
my $sth = C4::Context->dbh;
(-)a/installer/data/mysql/update22to30.pl (-1 lines)
Lines 12-18 Link Here
12
12
13
# NOTE:  If you do something more than once in here, make it table driven.
13
# NOTE:  If you do something more than once in here, make it table driven.
14
use strict;
14
use strict;
15
#use warnings; FIXME - Bug 2505
16
15
17
# CPAN modules
16
# CPAN modules
18
use DBI;
17
use DBI;
(-)a/installer/data/mysql/updatedatabase.pl (-2 / +1 lines)
Lines 27-34 Link Here
27
27
28
# NOTE: Please keep the version in kohaversion.pl up-to-date!
28
# NOTE: Please keep the version in kohaversion.pl up-to-date!
29
29
30
use strict;
30
use Modern::Perl;
31
use warnings;
32
31
33
use feature 'say';
32
use feature 'say';
34
33
(-)a/installer/externalmodules.pl (-3 / +2 lines)
Lines 4-13 Link Here
4
# It provides you not only the list of modules BUT ALSO the files that uses those modules.
4
# It provides you not only the list of modules BUT ALSO the files that uses those modules.
5
# utf8 or warnings or other lib use are not taken into account at the moment.
5
# utf8 or warnings or other lib use are not taken into account at the moment.
6
6
7
7
use Modern::Perl;
8
use strict;
9
use warnings;
10
use C4::Context;
8
use C4::Context;
9
11
my $dir=C4::Context->config('intranetdir');
10
my $dir=C4::Context->config('intranetdir');
12
qx(grep -r "^ *use" $dir | grep -v "C4\|strict\|vars" >/tmp/modulesKoha.log);
11
qx(grep -r "^ *use" $dir | grep -v "C4\|strict\|vars" >/tmp/modulesKoha.log);
13
$dir=C4::Context->config('opacdir');
12
$dir=C4::Context->config('opacdir');
(-)a/installer/html-template-to-template-toolkit.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
use Carp;
4
use Carp;
6
use Data::Dumper;
5
use Data::Dumper;
7
6
(-)a/installer/install.pl (-3 / +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 diagnostics;
21
use diagnostics;
23
22
24
use C4::InstallAuth;
23
use C4::InstallAuth;
25
- 

Return to bug 20000