Lines 13070-13075
my $update_dir = C4::Context->config('intranetdir') . '/installer/data/mysql/ato
Link Here
|
13070 |
opendir( my $dirh, $update_dir ); |
13070 |
opendir( my $dirh, $update_dir ); |
13071 |
foreach my $file ( sort readdir $dirh ) { |
13071 |
foreach my $file ( sort readdir $dirh ) { |
13072 |
next if $file !~ /\.(sql|perl)$/; #skip other files |
13072 |
next if $file !~ /\.(sql|perl)$/; #skip other files |
|
|
13073 |
next if $file eq 'skeleton.perl'; # skip the skeleton file |
13073 |
print "DEV atomic update: $file\n"; |
13074 |
print "DEV atomic update: $file\n"; |
13074 |
if ( $file =~ /\.sql$/ ) { |
13075 |
if ( $file =~ /\.sql$/ ) { |
13075 |
my $installer = C4::Installer->new(); |
13076 |
my $installer = C4::Installer->new(); |
13076 |
- |
|
|