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 9867-9872
if(CheckVersion($DBversion)) {
Link Here
|
9867 |
SetVersion($DBversion); |
9868 |
SetVersion($DBversion); |
9868 |
} |
9869 |
} |
9869 |
|
9870 |
|
|
|
9871 |
# DEVELOPER PROCESS, search for anything to execute in the db_update directory |
9872 |
# SEE bug 13068 |
9873 |
# if there is anything in the atomicupdate, read and execute it. |
9874 |
|
9875 |
opendir( my $dirh, C4::Context->config('intranetdir') . '/installer/data/mysql/atomicupdate' ); |
9876 |
my $old_delimiter = $/; |
9877 |
$/ = ';'; |
9878 |
while (readdir $dirh) { |
9879 |
next unless $_ =~ /\.sql$/; # skip non SQL files |
9880 |
my $installer = C4::Installer->new(); |
9881 |
$rv = $installer->load_sql( $atomicupd->{location}. "/$file" )? 0: 1; |
9882 |
#Note: load_sql already warns |
9883 |
} |
9884 |
|
9885 |
|
9870 |
=head1 FUNCTIONS |
9886 |
=head1 FUNCTIONS |
9871 |
|
9887 |
|
9872 |
=head2 TableExists($table) |
9888 |
=head2 TableExists($table) |
9873 |
- |
|
|