View | Details | Raw Unified | Return to bug 13068
Collapse All | Expand All

(-)a/installer/data/mysql/updatedatabase.pl (-1 / +16 lines)
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
- 

Return to bug 13068