Lines 9951-9960
if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
Link Here
|
9951 |
my $update_dir = C4::Context->config('intranetdir') . '/installer/data/mysql/atomicupdate/'; |
9951 |
my $update_dir = C4::Context->config('intranetdir') . '/installer/data/mysql/atomicupdate/'; |
9952 |
opendir( my $dirh, $update_dir ); |
9952 |
opendir( my $dirh, $update_dir ); |
9953 |
while ( my $file = readdir $dirh ) { |
9953 |
while ( my $file = readdir $dirh ) { |
9954 |
next unless $file =~ /\.sql$/; # skip non SQL files |
9954 |
if ( $file =~ /\.sql$/ ) { # skip non SQL files |
9955 |
print "DEV atomic update : $file \n"; |
9955 |
print "DEV atomic update : $file \n"; |
9956 |
my $installer = C4::Installer->new(); |
9956 |
my $installer = C4::Installer->new(); |
9957 |
my $rv = $installer->load_sql( $update_dir . $file ) ? 0 : 1; |
9957 |
my $rv = $installer->load_sql( $update_dir . $file ) ? 0 : 1; |
|
|
9958 |
} elsif ( $file =~ /\.perl$/ ) { |
9959 |
do $update_dir . $file; |
9960 |
} |
9958 |
} |
9961 |
} |
9959 |
|
9962 |
|
9960 |
|
9963 |
|
9961 |
- |
|
|