Lines 47-53
use MARC::File::XML ( BinaryEncoding => 'utf8' );
Link Here
|
47 |
|
47 |
|
48 |
use File::Path qw[remove_tree]; # perl core module |
48 |
use File::Path qw[remove_tree]; # perl core module |
49 |
use File::Spec; |
49 |
use File::Spec; |
50 |
use File::Slurp; |
50 |
use Path::Tiny; |
51 |
|
51 |
|
52 |
# 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 |
53 |
# on /etc/koha.conf anyway. |
53 |
# on /etc/koha.conf anyway. |
Lines 12700-12706
foreach my $file ( sort readdir $dirh ) {
Link Here
|
12700 |
my $installer = C4::Installer->new(); |
12700 |
my $installer = C4::Installer->new(); |
12701 |
my $rv = $installer->load_sql( $update_dir . $file ) ? 0 : 1; |
12701 |
my $rv = $installer->load_sql( $update_dir . $file ) ? 0 : 1; |
12702 |
} elsif ( $file =~ /\.perl$/ ) { |
12702 |
} elsif ( $file =~ /\.perl$/ ) { |
12703 |
my $code = read_file( $update_dir . $file ); |
12703 |
my $code = path( $update_dir . $file )->slurp_utf8; |
12704 |
eval $code; |
12704 |
eval $code; |
12705 |
say "Atomic update generated errors: $@" if $@; |
12705 |
say "Atomic update generated errors: $@" if $@; |
12706 |
} |
12706 |
} |
12707 |
- |
|
|