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

(-)a/installer/data/mysql/updatedatabase.pl (-2 / +6 lines)
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
- 

Return to bug 16685