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