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

(-)a/installer/data/mysql/updatedatabase.pl (-3 / +2 lines)
Lines 10768-10779 if ( CheckVersion($DBversion) ) { Link Here
10768
my $update_dir = C4::Context->config('intranetdir') . '/installer/data/mysql/atomicupdate/';
10768
my $update_dir = C4::Context->config('intranetdir') . '/installer/data/mysql/atomicupdate/';
10769
opendir( my $dirh, $update_dir );
10769
opendir( my $dirh, $update_dir );
10770
foreach my $file ( sort readdir $dirh ) {
10770
foreach my $file ( sort readdir $dirh ) {
10771
    next if $file !~ /\.(sql|perl)$/;  #skip other files
10771
    next if $file !~ /\.(sql|pl|perl)$/;  #skip other files
10772
    print "DEV atomic update: $file\n";
10772
    print "DEV atomic update: $file\n";
10773
    if ( $file =~ /\.sql$/ ) {
10773
    if ( $file =~ /\.sql$/ ) {
10774
        my $installer = C4::Installer->new();
10774
        my $installer = C4::Installer->new();
10775
        my $rv = $installer->load_sql( $update_dir . $file ) ? 0 : 1;
10775
        my $rv = $installer->load_sql( $update_dir . $file ) ? 0 : 1;
10776
    } elsif ( $file =~ /\.perl$/ ) {
10776
    } elsif ( $file =~ /\.p(er)?l$/ ) {
10777
        do $update_dir . $file;
10777
        do $update_dir . $file;
10778
    }
10778
    }
10779
}
10779
}
10780
- 

Return to bug 14705