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 |
- |
|
|