Lines 50-56
$languages = C4::Languages::getLanguages('eng', 1);
Link Here
|
50 |
is(scalar(@$languages), 2, 'getLanguages() filtering using AdvancedSearchLanguages works'); |
50 |
is(scalar(@$languages), 2, 'getLanguages() filtering using AdvancedSearchLanguages works'); |
51 |
|
51 |
|
52 |
my $translatedlanguages1; |
52 |
my $translatedlanguages1; |
53 |
warnings_are { $translatedlanguages1 = C4::Languages::getTranslatedLanguages('opac','prog',undef,'') } |
53 |
warnings_are { $translatedlanguages1 = C4::Languages::getTranslatedLanguages( 'opac', 'prog' ) } |
54 |
[], |
54 |
[], |
55 |
'no warnings for calling getTranslatedLanguages'; |
55 |
'no warnings for calling getTranslatedLanguages'; |
56 |
my @currentcheck1 = map { $_->{current} } @$translatedlanguages1; |
56 |
my @currentcheck1 = map { $_->{current} } @$translatedlanguages1; |
Lines 58-64
my $onlyzeros = first { $_ != 0 } @currentcheck1;
Link Here
|
58 |
ok(! $onlyzeros, "Everything was zeros.\n"); |
58 |
ok(! $onlyzeros, "Everything was zeros.\n"); |
59 |
|
59 |
|
60 |
my $translatedlanguages2; |
60 |
my $translatedlanguages2; |
61 |
warnings_are { $translatedlanguages2 = C4::Languages::getTranslatedLanguages('opac','prog','en','') } |
61 |
warnings_are { $translatedlanguages2 = C4::Languages::getTranslatedLanguages( 'opac', 'prog', 'en' ) } |
62 |
[], |
62 |
[], |
63 |
'no warnings for calling getTranslatedLanguages'; |
63 |
'no warnings for calling getTranslatedLanguages'; |
64 |
my @currentcheck2 = map { $_->{current} } @$translatedlanguages2; |
64 |
my @currentcheck2 = map { $_->{current} } @$translatedlanguages2; |