|
Lines 13141-13146
my $update_dir = C4::Context->config('intranetdir') . '/installer/data/mysql/ato
Link Here
|
| 13141 |
opendir( my $dirh, $update_dir ); |
13141 |
opendir( my $dirh, $update_dir ); |
| 13142 |
foreach my $file ( sort readdir $dirh ) { |
13142 |
foreach my $file ( sort readdir $dirh ) { |
| 13143 |
next if $file !~ /\.(sql|perl)$/; #skip other files |
13143 |
next if $file !~ /\.(sql|perl)$/; #skip other files |
|
|
13144 |
next if $file eq 'skeleton.perl'; # skip the skeleton file |
| 13144 |
print "DEV atomic update: $file\n"; |
13145 |
print "DEV atomic update: $file\n"; |
| 13145 |
if ( $file =~ /\.sql$/ ) { |
13146 |
if ( $file =~ /\.sql$/ ) { |
| 13146 |
my $installer = C4::Installer->new(); |
13147 |
my $installer = C4::Installer->new(); |
| 13147 |
- |
|
|