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

(-)a/installer/data/mysql/updatedatabase.pl (-8 / +6 lines)
Lines 9914-9927 if(CheckVersion($DBversion)) { Link Here
9914
# SEE bug 13068
9914
# SEE bug 13068
9915
# if there is anything in the atomicupdate, read and execute it.
9915
# if there is anything in the atomicupdate, read and execute it.
9916
9916
9917
opendir( my $dirh, C4::Context->config('intranetdir') . '/installer/data/mysql/atomicupdate' );
9917
my $update_dir = C4::Context->config('intranetdir') . '/installer/data/mysql/atomicupdate/';
9918
my $old_delimiter = $/;
9918
opendir( my $dirh, $update_dir );
9919
$/ = ';';
9919
while ( my $file = readdir $dirh ) {
9920
while (readdir $dirh) {
9920
    next unless $file =~ /\.sql$/;    # skip non SQL files
9921
    next unless $_ =~ /\.sql$/; # skip non SQL files
9921
    print "DEV atomic update : $file \n";
9922
    print "DEV atomic update : $_ \n";
9923
    my $installer = C4::Installer->new();
9922
    my $installer = C4::Installer->new();
9924
    my $rv = $installer->load_sql( C4::Context->config('intranetdir') . '/installer/data/mysql/atomicupdate/' . $_ )? 0: 1;
9923
    my $rv = $installer->load_sql( $update_dir . $file ) ? 0 : 1;
9925
}
9924
}
9926
9925
9927
9926
9928
- 

Return to bug 13068