|
Lines 38-43
use C4::Context;
Link Here
|
| 38 |
use C4::Installer; |
38 |
use C4::Installer; |
| 39 |
use C4::Dates; |
39 |
use C4::Dates; |
| 40 |
|
40 |
|
|
|
41 |
use File::Slurp; |
| 41 |
use MARC::Record; |
42 |
use MARC::Record; |
| 42 |
use MARC::File::XML ( BinaryEncoding => 'utf8' ); |
43 |
use MARC::File::XML ( BinaryEncoding => 'utf8' ); |
| 43 |
|
44 |
|
|
Lines 9804-9809
if ( CheckVersion($DBversion) ) {
Link Here
|
| 9804 |
SetVersion($DBversion); |
9805 |
SetVersion($DBversion); |
| 9805 |
} |
9806 |
} |
| 9806 |
|
9807 |
|
|
|
9808 |
# DEVELOPER PROCESS, search for anything to execute in the db_update directory |
| 9809 |
# SEE bug 13068 |
| 9810 |
# if there is anything in the atomicupdate, read and execute it. |
| 9811 |
|
| 9812 |
opendir( my $dirh, C4::Context->config('intranetdir') . '/installer/data/mysql/atomicupdate' ); |
| 9813 |
my $old_delimiter = $/; |
| 9814 |
$/ = ';'; |
| 9815 |
while (readdir $dirh) { |
| 9816 |
next unless $_ =~ /\.sql$/; # skip non SQL files |
| 9817 |
my $installer = C4::Installer->new(); |
| 9818 |
$rv = $installer->load_sql( $atomicupd->{location}. "/$file" )? 0: 1; |
| 9819 |
#Note: load_sql already warns |
| 9820 |
} |
| 9821 |
|
| 9822 |
|
| 9807 |
=head1 FUNCTIONS |
9823 |
=head1 FUNCTIONS |
| 9808 |
|
9824 |
|
| 9809 |
=head2 TableExists($table) |
9825 |
=head2 TableExists($table) |
| 9810 |
- |
|
|