Link Here
|
2 |
if( CheckVersion( $DBversion ) ) { |
2 |
if( CheckVersion( $DBversion ) ) { |
3 |
|
3 |
|
4 |
# get list of installed translations |
4 |
# get list of installed translations |
5 |
use C4::Languages qw(getTranslatedLanguages); |
5 |
require C4::Languages; |
6 |
my @langs; |
6 |
my @langs; |
7 |
my $tlangs = getTranslatedLanguages(); |
7 |
my $tlangs = C4::Languages::getTranslatedLanguages(); |
8 |
|
8 |
|
9 |
foreach my $language ( @$tlangs ) { |
9 |
foreach my $language ( @$tlangs ) { |
10 |
foreach my $sublanguage ( @{$language->{'sublanguages_loop'}} ) { |
10 |
foreach my $sublanguage ( @{$language->{'sublanguages_loop'}} ) { |
11 |
- |
|
|