|
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 Path::Tiny; |
|
|
| 51 |
|
50 |
|
| 52 |
# FIXME - The user might be installing a new database, so can't rely |
51 |
# FIXME - The user might be installing a new database, so can't rely |
| 53 |
# on /etc/koha.conf anyway. |
52 |
# on /etc/koha.conf anyway. |
|
Lines 13707-13713
foreach my $file ( sort readdir $dirh ) {
Link Here
|
| 13707 |
my $installer = C4::Installer->new(); |
13706 |
my $installer = C4::Installer->new(); |
| 13708 |
my $rv = $installer->load_sql( $update_dir . $file ) ? 0 : 1; |
13707 |
my $rv = $installer->load_sql( $update_dir . $file ) ? 0 : 1; |
| 13709 |
} elsif ( $file =~ /\.perl$/ ) { |
13708 |
} elsif ( $file =~ /\.perl$/ ) { |
| 13710 |
my $code = path( $update_dir . $file )->slurp_utf8; |
13709 |
my $code = slurp_file( $update_dir . $file ); |
| 13711 |
eval $code; |
13710 |
eval $code; |
| 13712 |
say "Atomic update generated errors: $@" if $@; |
13711 |
say "Atomic update generated errors: $@" if $@; |
| 13713 |
} |
13712 |
} |
|
Lines 13715-13720
foreach my $file ( sort readdir $dirh ) {
Link Here
|
| 13715 |
|
13714 |
|
| 13716 |
=head1 FUNCTIONS |
13715 |
=head1 FUNCTIONS |
| 13717 |
|
13716 |
|
|
|
13717 |
=head2 slurp_file |
| 13718 |
|
| 13719 |
=cut |
| 13720 |
|
| 13721 |
sub slurp_file { |
| 13722 |
my ($file) = @_; |
| 13723 |
local $/ = undef; |
| 13724 |
open( FILE, '<:encoding(UTF-8)', $file ) or die "Couldn't open file: $!"; |
| 13725 |
binmode FILE; |
| 13726 |
my $string = <FILE>; |
| 13727 |
close FILE; |
| 13728 |
return $string; |
| 13729 |
} |
| 13730 |
|
| 13718 |
=head2 TableExists($table) |
13731 |
=head2 TableExists($table) |
| 13719 |
|
13732 |
|
| 13720 |
=cut |
13733 |
=cut |
| 13721 |
- |
|
|