|
Lines 9914-9927
if(CheckVersion($DBversion)) {
Link Here
|
| 9914 |
# SEE bug 13068 |
9914 |
# SEE bug 13068 |
| 9915 |
# if there is anything in the atomicupdate, read and execute it. |
9915 |
# if there is anything in the atomicupdate, read and execute it. |
| 9916 |
|
9916 |
|
| 9917 |
opendir( my $dirh, C4::Context->config('intranetdir') . '/installer/data/mysql/atomicupdate' ); |
9917 |
my $update_dir = C4::Context->config('intranetdir') . '/installer/data/mysql/atomicupdate/'; |
| 9918 |
my $old_delimiter = $/; |
9918 |
opendir( my $dirh, $update_dir ); |
| 9919 |
$/ = ';'; |
9919 |
while ( my $file = readdir $dirh ) { |
| 9920 |
while (readdir $dirh) { |
9920 |
next unless $file =~ /\.sql$/; # skip non SQL files |
| 9921 |
next unless $_ =~ /\.sql$/; # skip non SQL files |
9921 |
print "DEV atomic update : $file \n"; |
| 9922 |
print "DEV atomic update : $_ \n"; |
|
|
| 9923 |
my $installer = C4::Installer->new(); |
9922 |
my $installer = C4::Installer->new(); |
| 9924 |
my $rv = $installer->load_sql( C4::Context->config('intranetdir') . '/installer/data/mysql/atomicupdate/' . $_ )? 0: 1; |
9923 |
my $rv = $installer->load_sql( $update_dir . $file ) ? 0 : 1; |
| 9925 |
} |
9924 |
} |
| 9926 |
|
9925 |
|
| 9927 |
|
9926 |
|
| 9928 |
- |
|
|