Lines 9916-9925
if(CheckVersion($DBversion)) {
Link Here
|
9916 |
my $update_dir = C4::Context->config('intranetdir') . '/installer/data/mysql/atomicupdate/'; |
9916 |
my $update_dir = C4::Context->config('intranetdir') . '/installer/data/mysql/atomicupdate/'; |
9917 |
opendir( my $dirh, $update_dir ); |
9917 |
opendir( my $dirh, $update_dir ); |
9918 |
while ( my $file = readdir $dirh ) { |
9918 |
while ( my $file = readdir $dirh ) { |
9919 |
next unless $file =~ /\.sql$/; # skip non SQL files |
9919 |
if ( $file =~ /\.sql$/ ) { # skip non SQL files |
9920 |
print "DEV atomic update : $file \n"; |
9920 |
print "DEV atomic update : $file \n"; |
9921 |
my $installer = C4::Installer->new(); |
9921 |
my $installer = C4::Installer->new(); |
9922 |
my $rv = $installer->load_sql( $update_dir . $file ) ? 0 : 1; |
9922 |
my $rv = $installer->load_sql( $update_dir . $file ) ? 0 : 1; |
|
|
9923 |
} elsif ( $file =~ /\.perl$/ ) { |
9924 |
do $update_dir . $file; |
9925 |
} |
9923 |
} |
9926 |
} |
9924 |
|
9927 |
|
9925 |
|
9928 |
|
9926 |
- |
|
|