Bug 22880: (QA follow-up) Replace use by require

Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
This commit is contained in:
Marcel de Rooy 2020-02-24 12:12:58 +00:00 committed by Martin Renvoize
parent d8a5c48273
commit cce9a1a85c
Signed by: martin.renvoize
GPG key ID: 422B469130441A0F

View file

@ -2,9 +2,9 @@ $DBversion = 'XXX'; # will be replaced by the RM
if( CheckVersion( $DBversion ) ) { if( CheckVersion( $DBversion ) ) {
# get list of installed translations # get list of installed translations
use C4::Languages qw(getTranslatedLanguages); require C4::Languages;
my @langs; my @langs;
my $tlangs = getTranslatedLanguages(); my $tlangs = C4::Languages::getTranslatedLanguages();
foreach my $language ( @$tlangs ) { foreach my $language ( @$tlangs ) {
foreach my $sublanguage ( @{$language->{'sublanguages_loop'}} ) { foreach my $sublanguage ( @{$language->{'sublanguages_loop'}} ) {