Lines 30-35
Link Here
|
30 |
use strict; |
30 |
use strict; |
31 |
use warnings; |
31 |
use warnings; |
32 |
|
32 |
|
|
|
33 |
use feature 'say'; |
34 |
|
33 |
# CPAN modules |
35 |
# CPAN modules |
34 |
use DBI; |
36 |
use DBI; |
35 |
use Getopt::Long; |
37 |
use Getopt::Long; |
Lines 45-50
use MARC::File::XML ( BinaryEncoding => 'utf8' );
Link Here
|
45 |
|
47 |
|
46 |
use File::Path qw[remove_tree]; # perl core module |
48 |
use File::Path qw[remove_tree]; # perl core module |
47 |
use File::Spec; |
49 |
use File::Spec; |
|
|
50 |
use File::Slurp; |
48 |
|
51 |
|
49 |
# FIXME - The user might be installing a new database, so can't rely |
52 |
# FIXME - The user might be installing a new database, so can't rely |
50 |
# on /etc/koha.conf anyway. |
53 |
# on /etc/koha.conf anyway. |
Lines 12845-12851
foreach my $file ( sort readdir $dirh ) {
Link Here
|
12845 |
my $installer = C4::Installer->new(); |
12848 |
my $installer = C4::Installer->new(); |
12846 |
my $rv = $installer->load_sql( $update_dir . $file ) ? 0 : 1; |
12849 |
my $rv = $installer->load_sql( $update_dir . $file ) ? 0 : 1; |
12847 |
} elsif ( $file =~ /\.perl$/ ) { |
12850 |
} elsif ( $file =~ /\.perl$/ ) { |
12848 |
do $update_dir . $file; |
12851 |
my $code = read_file( $update_dir . $file ); |
|
|
12852 |
eval $code; |
12853 |
say "Atomic update generated errors: $@" if $@; |
12849 |
} |
12854 |
} |
12850 |
} |
12855 |
} |
12851 |
|
12856 |
|
12852 |
- |
|
|