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

(-)a/installer/data/mysql/updatedatabase.pl (-5 / +7 lines)
Lines 9951-9960 if (C4::Context->preference("Version") < TransformToNum($DBversion)) { Link Here
9951
my $update_dir = C4::Context->config('intranetdir') . '/installer/data/mysql/atomicupdate/';
9951
my $update_dir = C4::Context->config('intranetdir') . '/installer/data/mysql/atomicupdate/';
9952
opendir( my $dirh, $update_dir );
9952
opendir( my $dirh, $update_dir );
9953
while ( my $file = readdir $dirh ) {
9953
while ( my $file = readdir $dirh ) {
9954
    next unless $file =~ /\.sql$/;    # skip non SQL files
9954
    if ( $file =~ /\.sql$/ ) {    # skip non SQL files
9955
    print "DEV atomic update : $file \n";
9955
        print "DEV atomic update : $file \n";
9956
    my $installer = C4::Installer->new();
9956
        my $installer = C4::Installer->new();
9957
    my $rv = $installer->load_sql( $update_dir . $file ) ? 0 : 1;
9957
        my $rv = $installer->load_sql( $update_dir . $file ) ? 0 : 1;
9958
    } elsif ( $file =~ /\.perl$/ ) {
9959
        do $update_dir . $file;
9960
    }
9958
}
9961
}
9959
9962
9960
9963
9961
- 

Return to bug 13893