|
Lines 30-41
for my $lang ( qw ( de-DE en es-ES fr-CA fr-FR it-IT nb-NO pl-PL ru-RU uk-UA ) )
Link Here
|
| 30 |
say "loading kohastructure for $lang | not $marcflavour"; |
30 |
say "loading kohastructure for $lang | not $marcflavour"; |
| 31 |
recreate_db( $db_name ); |
31 |
recreate_db( $db_name ); |
| 32 |
my $error = C4::Installer->new->load_sql( $kohastructure ); |
32 |
my $error = C4::Installer->new->load_sql( $kohastructure ); |
| 33 |
my @sample_files = @global_files; |
33 |
my @sample_files; |
| 34 |
|
34 |
|
| 35 |
find( sub { |
35 |
find( sub { |
| 36 |
push @sample_files, $File::Find::name if $_ =~ m|\.sql$|; |
36 |
push @sample_files, $File::Find::name if $_ =~ m|\.sql$|; |
| 37 |
}, $sample_dir . '/' . $lang . '/' |
37 |
}, $sample_dir . $lang . '/' |
| 38 |
); |
38 |
); |
|
|
39 |
@sample_files = ( @global_files, sort @sample_files ); |
| 39 |
my $i = 1; |
40 |
my $i = 1; |
| 40 |
for my $sql_file ( @sample_files ) { |
41 |
for my $sql_file ( @sample_files ) { |
| 41 |
print $i++ . "/" . scalar @sample_files . "\r"; flush STDOUT; |
42 |
print $i++ . "/" . scalar @sample_files . "\r"; flush STDOUT; |
| 42 |
- |
|
|