Lines 10768-10779
if ( CheckVersion($DBversion) ) {
Link Here
|
10768 |
my $update_dir = C4::Context->config('intranetdir') . '/installer/data/mysql/atomicupdate/'; |
10768 |
my $update_dir = C4::Context->config('intranetdir') . '/installer/data/mysql/atomicupdate/'; |
10769 |
opendir( my $dirh, $update_dir ); |
10769 |
opendir( my $dirh, $update_dir ); |
10770 |
foreach my $file ( sort readdir $dirh ) { |
10770 |
foreach my $file ( sort readdir $dirh ) { |
10771 |
next if $file !~ /\.(sql|perl)$/; #skip other files |
10771 |
next if $file !~ /\.(sql|pl|perl)$/; #skip other files |
10772 |
print "DEV atomic update: $file\n"; |
10772 |
print "DEV atomic update: $file\n"; |
10773 |
if ( $file =~ /\.sql$/ ) { |
10773 |
if ( $file =~ /\.sql$/ ) { |
10774 |
my $installer = C4::Installer->new(); |
10774 |
my $installer = C4::Installer->new(); |
10775 |
my $rv = $installer->load_sql( $update_dir . $file ) ? 0 : 1; |
10775 |
my $rv = $installer->load_sql( $update_dir . $file ) ? 0 : 1; |
10776 |
} elsif ( $file =~ /\.perl$/ ) { |
10776 |
} elsif ( $file =~ /\.p(er)?l$/ ) { |
10777 |
do $update_dir . $file; |
10777 |
do $update_dir . $file; |
10778 |
} |
10778 |
} |
10779 |
} |
10779 |
} |
10780 |
- |
|
|