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