Lines 10031-10039
if ( CheckVersion($DBversion) ) {
Link Here
|
10031 |
|
10031 |
|
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 |
foreach my $file ( sort readdir $dirh ) { |
10035 |
if ( $file =~ /\.sql$/ ) { # skip non SQL files |
10035 |
next if $file !~ /\.(sql|perl)$/; #skip other files |
10036 |
print "DEV atomic update : $file \n"; |
10036 |
print "DEV atomic update: $file\n"; |
|
|
10037 |
if ( $file =~ /\.sql$/ ) { |
10037 |
my $installer = C4::Installer->new(); |
10038 |
my $installer = C4::Installer->new(); |
10038 |
my $rv = $installer->load_sql( $update_dir . $file ) ? 0 : 1; |
10039 |
my $rv = $installer->load_sql( $update_dir . $file ) ? 0 : 1; |
10039 |
} elsif ( $file =~ /\.perl$/ ) { |
10040 |
} elsif ( $file =~ /\.perl$/ ) { |
10040 |
- |
|
|