Line 0
Link Here
|
0 |
- |
1 |
#!/usr/bin/perl |
|
|
2 |
|
3 |
use Modern::Perl; |
4 |
my $koha_root = '/home/vagrant/kohaclone'; |
5 |
my $installer_root = $koha_root . '/installer/data/mysql'; |
6 |
|
7 |
# Launch me with de-DE es-ES fr-CA fr-FR it-IT nb-NO pl-PL ru-RU uk-UA |
8 |
for my $lang ( qw ( de-DE ) ) { |
9 |
my $lang_root = $installer_root . '/' . $lang; |
10 |
`mkdir $lang_root/default`; |
11 |
|
12 |
my $optional = 'optional'; |
13 |
my $mandatory = 'mandatory'; |
14 |
if ( $lang eq 'fr-CA' ) { |
15 |
$optional = 'facultatif'; |
16 |
$mandatory = 'obligatoire'; |
17 |
} elsif ( $lang eq 'fr-FR' ) { |
18 |
$optional = '2-Optionel'; |
19 |
$mandatory = '1-Obligatoire'; |
20 |
} elsif ( $lang eq 'it-IT' ) { |
21 |
$mandatory = 'necessari'; |
22 |
$optional = 'necessari'; |
23 |
} elsif ( $lang eq 'nb-NO' ) { |
24 |
$mandatory = '1-Obligatorisk'; |
25 |
$optional = '2-Valgfritt'; |
26 |
} |
27 |
# optional to default |
28 |
`git mv $lang_root/$optional/auth_val.sql $lang_root/default/`; |
29 |
`git mv $lang_root/$optional/auth_val.txt $lang_root/default/`; |
30 |
`git mv $lang_root/$optional/csv_profiles.sql $lang_root/default/`; |
31 |
`git mv $lang_root/$optional/csv_profiles.txt $lang_root/default/`; |
32 |
`git mv $lang_root/$optional/parameters.sql $lang_root/default/`; |
33 |
`git mv $lang_root/$optional/parameters.txt $lang_root/default/`; |
34 |
|
35 |
|
36 |
# mandatory to default |
37 |
`git mv $lang_root/$mandatory/auth_values.sql $lang_root/default/`; |
38 |
`git mv $lang_root/$mandatory/auth_values.txt $lang_root/default/`; |
39 |
`git mv $lang_root/$mandatory/class_sources.sql $lang_root/default/`; |
40 |
`git mv $lang_root/$mandatory/class_sources.txt $lang_root/default/`; |
41 |
`git mv $lang_root/$mandatory/message_transport_types.sql $lang_root/default/`; |
42 |
`git mv $lang_root/$mandatory/message_transport_types.txt $lang_root/default/`; |
43 |
`git mv $lang_root/$mandatory/sample_frequencies.sql $lang_root/default/`; |
44 |
`git mv $lang_root/$mandatory/sample_frequencies.txt $lang_root/default/`; |
45 |
`git mv $lang_root/$mandatory/sample_notices.sql $lang_root/default/`; |
46 |
`git mv $lang_root/$mandatory/sample_notices.txt $lang_root/default/`; |
47 |
`git mv $lang_root/$mandatory/sample_notices_message_attributes.sql $lang_root/default/`; |
48 |
`git mv $lang_root/$mandatory/sample_notices_message_attributes.txt $lang_root/default/`; |
49 |
`git mv $lang_root/$mandatory/sample_notices_message_transports.sql $lang_root/default/`; |
50 |
`git mv $lang_root/$mandatory/sample_notices_message_transports.txt $lang_root/default/`; |
51 |
`git mv $lang_root/$mandatory/sample_numberpatterns.sql $lang_root/default/`; |
52 |
`git mv $lang_root/$mandatory/sample_numberpatterns.txt $lang_root/default/`; |
53 |
; |
54 |
`mkdir $lang_root/marcflavour/marc21/default > /dev/null`; |
55 |
`git mv $lang_root/marcflavour/marc21/*/* $lang_root/marcflavour/marc21/default/`; |
56 |
|
57 |
if ( $lang eq 'fr-FR' ) { |
58 |
for my $f ( qw( unimarc_complet unimarc_lecture_pub ) ) { |
59 |
`mkdir $lang_root/marcflavour/$f/default > /dev/null`; |
60 |
`git mv $lang_root/marcflavour/$f/*/* $lang_root/marcflavour/$f/default` |
61 |
} |
62 |
} |
63 |
last; |
64 |
} |