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 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
- 

Return to bug 13068