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

(-)a/installer/data/mysql/updatedatabase.pl (-5 / +7 lines)
Lines 10032-10041 if ( CheckVersion($DBversion) ) { Link Here
10032
my $update_dir = C4::Context->config('intranetdir') . '/installer/data/mysql/atomicupdate/';
10032
my $update_dir = C4::Context->config('intranetdir') . '/installer/data/mysql/atomicupdate/';
10033
opendir( my $dirh, $update_dir );
10033
opendir( my $dirh, $update_dir );
10034
while ( my $file = readdir $dirh ) {
10034
while ( my $file = readdir $dirh ) {
10035
    next unless $file =~ /\.sql$/;    # skip non SQL files
10035
    if ( $file =~ /\.sql$/ ) {    # skip non SQL files
10036
    print "DEV atomic update : $file \n";
10036
        print "DEV atomic update : $file \n";
10037
    my $installer = C4::Installer->new();
10037
        my $installer = C4::Installer->new();
10038
    my $rv = $installer->load_sql( $update_dir . $file ) ? 0 : 1;
10038
        my $rv = $installer->load_sql( $update_dir . $file ) ? 0 : 1;
10039
    } elsif ( $file =~ /\.perl$/ ) {
10040
        do $update_dir . $file;
10041
    }
10039
}
10042
}
10040
10043
10041
=head1 FUNCTIONS
10044
=head1 FUNCTIONS
10042
- 

Return to bug 13893