|
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 |
} |