|
Lines 13190-13195
my $update_dir = C4::Context->config('intranetdir') . '/installer/data/mysql/ato
Link Here
|
| 13190 |
opendir( my $dirh, $update_dir ); |
13190 |
opendir( my $dirh, $update_dir ); |
| 13191 |
foreach my $file ( sort readdir $dirh ) { |
13191 |
foreach my $file ( sort readdir $dirh ) { |
| 13192 |
next if $file !~ /\.(sql|perl)$/; #skip other files |
13192 |
next if $file !~ /\.(sql|perl)$/; #skip other files |
|
|
13193 |
next if $file eq 'skeleton.perl'; # skip the skeleton file |
| 13193 |
print "DEV atomic update: $file\n"; |
13194 |
print "DEV atomic update: $file\n"; |
| 13194 |
if ( $file =~ /\.sql$/ ) { |
13195 |
if ( $file =~ /\.sql$/ ) { |
| 13195 |
my $installer = C4::Installer->new(); |
13196 |
my $installer = C4::Installer->new(); |
| 13196 |
- |
|
|