|
@ -22,7 +22,7 @@ package C4::Languages; |
|
|
use strict; use warnings; #FIXME: turn off warnings before release |
|
|
use strict; use warnings; #FIXME: turn off warnings before release |
|
|
require Exporter; |
|
|
require Exporter; |
|
|
use C4::Context; |
|
|
use C4::Context; |
|
|
use vars qw($VERSION @ISA @EXPORT); |
|
|
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); |
|
|
|
|
|
|
|
|
=head1 NAME |
|
|
=head1 NAME |
|
|
|
|
|
|
|
@ -37,14 +37,9 @@ use C4::Languages; |
|
|
=head1 FUNCTIONS |
|
|
=head1 FUNCTIONS |
|
|
|
|
|
|
|
|
=cut |
|
|
=cut |
|
|
|
|
|
$VERSION = 3.00; |
|
|
@ISA = qw(Exporter); |
|
|
@ISA = qw(Exporter); |
|
|
@EXPORT = qw( |
|
|
@EXPORT_OK = qw(getFrameworkLanguages getTranslatedLanguages getAllLanguages); |
|
|
&getFrameworkLanguages |
|
|
|
|
|
&getTranslatedLanguages |
|
|
|
|
|
&getAllLanguages |
|
|
|
|
|
); |
|
|
|
|
|
|
|
|
|
|
|
my $DEBUG = 0; |
|
|
my $DEBUG = 0; |
|
|
|
|
|
|
|
|
=head2 getFrameworkLanguages |
|
|
=head2 getFrameworkLanguages |
|
@ -166,6 +161,7 @@ sub getAllLanguages { |
|
|
language_name => |
|
|
language_name => |
|
|
"العربية", |
|
|
"العربية", |
|
|
language_locale_name => "Arabic", |
|
|
language_locale_name => "Arabic", |
|
|
|
|
|
bidi => "rtl", |
|
|
, |
|
|
, |
|
|
}, |
|
|
}, |
|
|
{ |
|
|
{ |
|
@ -234,6 +230,7 @@ sub getAllLanguages { |
|
|
language_code => "heb", |
|
|
language_code => "heb", |
|
|
language_name => "עברית", |
|
|
language_name => "עברית", |
|
|
language_locale_name => "Hebrew", |
|
|
language_locale_name => "Hebrew", |
|
|
|
|
|
bidi => "rtl", |
|
|
, |
|
|
, |
|
|
}, |
|
|
}, |
|
|
{ |
|
|
{ |
|
|