X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FLocale.pm;h=3f7df7e82fe0c9eaf97f4ded65f189734c42485b;hb=89c9ff022d3f13e27ba6bda085df15707fcfb0eb;hp=b869587ca983c22d00f4112bd63fa28524efc48e;hpb=76c486e3bf157e844b0cf11828d55dae2cb7e439;p=kivitendo-erp.git diff --git a/SL/Locale.pm b/SL/Locale.pm index b869587ca..3f7df7e82 100644 --- a/SL/Locale.pm +++ b/SL/Locale.pm @@ -36,45 +36,53 @@ package Locale; -use Text::Iconv; +use DateTime; +use Encode; +use List::Util qw(first); +use List::MoreUtils qw(any); use SL::LXDebug; use SL::Common; +use SL::Iconv; use SL::Inifile; use strict; +my %locales_by_country; + sub new { $main::lxdebug->enter_sub(); - my ($type, $country, $NLS_file) = @_; + my ($type, $country) = @_; + + $country ||= $::lx_office_conf{system}->{language}; + $country =~ s|.*/||; + $country =~ s|\.||g; - my $self = {}; - bless $self, $type; + if (!$locales_by_country{$country}) { + my $self = {}; + bless $self, $type; - $country =~ s|.*/||; - $country =~ s|\.||g; - $NLS_file =~ s|.*/||; + $self->_init($country); - $self->_init($country, $NLS_file); + $locales_by_country{$country} = $self; + } $main::lxdebug->leave_sub(); - return $self; + return $locales_by_country{$country} } sub _init { my $self = shift; my $country = shift; - my $NLS_file = shift; $self->{charset} = Common::DEFAULT_CHARSET; $self->{countrycode} = $country; - $self->{NLS_file} = $NLS_file; if ($country && -d "locale/$country") { local *IN; - if (open(IN, "<", "locale/$country/$NLS_file")) { + if (open(IN, "<", "locale/$country/all")) { my $code = join("", ); eval($code); close(IN); @@ -88,13 +96,20 @@ sub _init { } } - my $db_charset = $main::dbcharset || Common::DEFAULT_CHARSET; + my $db_charset = $::lx_office_conf{system}->{dbcharset} || Common::DEFAULT_CHARSET; + $self->{is_utf8} = (any { lc($::lx_office_conf{system}->{dbcharset} || '') eq $_ } qw(utf8 utf-8 unicode)) ? 1 : 0; - $self->{iconv} = Text::Iconv->new($self->{charset}, $db_charset); - $self->{iconv_reverse} = Text::Iconv->new($db_charset, $self->{charset}); - $self->{iconv_english} = Text::Iconv->new('ASCII', $db_charset); - $self->{iconv_iso8859} = Text::Iconv->new('ISO-8859-15', $db_charset); - $self->{iconv_to_iso8859} = Text::Iconv->new($db_charset, 'ISO-8859-15'); + if ($self->{is_utf8}) { + binmode STDOUT, ":utf8"; + binmode STDERR, ":utf8"; + } + + $self->{iconv} = SL::Iconv->new($self->{charset}, $db_charset); + $self->{iconv_reverse} = SL::Iconv->new($db_charset, $self->{charset}); + $self->{iconv_english} = SL::Iconv->new('ASCII', $db_charset); + $self->{iconv_iso8859} = SL::Iconv->new('ISO-8859-15', $db_charset); + $self->{iconv_to_iso8859} = SL::Iconv->new($db_charset, 'ISO-8859-15'); + $self->{iconv_utf8} = SL::Iconv->new('UTF-8', $db_charset); $self->_read_special_chars_file($country); @@ -106,6 +121,12 @@ sub _init { (qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec)); } +sub is_utf8 { + my $self = shift; + my $handle = shift; + return $self->{is_utf8} && (!$handle || $handle->is_utf8); +} + sub _handle_markup { my $self = shift; my $str = shift; @@ -193,7 +214,7 @@ sub text { my $self = shift; my $text = shift; - if (exists $self->{texts}->{$text}) { + if ($self->{texts}->{$text}) { $text = $self->{iconv}->convert($self->{texts}->{$text}); } else { $text = $self->{iconv_english}->convert($text); @@ -210,17 +231,33 @@ sub findsub { $main::lxdebug->enter_sub(); my ($self, $text) = @_; - my $text_rev = $self->{iconv_reverse}->convert($text); + my $text_rev = lc $self->{iconv_reverse}->convert($text); + $text_rev =~ s/[\s\-]+/_/g; + + if (!$self->{texts_reverse}) { + $self->{texts_reverse} = { }; + while (my ($original, $translation) = each %{ $self->{texts} }) { + $original = lc $original; + $original =~ s/[^a-z0-9]/_/g; + $original =~ s/_+/_/g; + + $translation = lc $translation; + $translation =~ s/[\s\-]+/_/g; - if (exists $self->{subs}{$text_rev}) { - $text = $self->{subs}{$text_rev}; - } elsif ($self->{countrycode} && $self->{NLS_file}) { - Form->error("$text not defined in locale/$self->{countrycode}/$self->{NLS_file}"); + $self->{texts_reverse}->{$translation} ||= [ ]; + push @{ $self->{texts_reverse}->{$translation} }, $original; + } } + my $sub_name; + $sub_name = first { defined(&{ "::${_}" }) } @{ $self->{texts_reverse}->{$text_rev} } if $self->{texts_reverse}->{$text_rev}; + $sub_name ||= $text_rev if ($text_rev =~ m/^[a-z][a-z0-9_]+$/) && defined &{ "::${text_rev}" }; + + $main::form->error("$text not defined in locale/$self->{countrycode}/all") if !$sub_name; + $main::lxdebug->leave_sub(); - return $text; + return $sub_name; } sub date { @@ -340,6 +377,13 @@ sub parse_date { return ($yy, $mm, $dd); } +sub parse_date_to_object { + my $self = shift; + my ($yy, $mm, $dd) = $self->parse_date(@_); + + return $yy && $mm && $dd ? DateTime->new(year => $yy, month => $mm, day => $dd) : undef; +} + sub reformat_date { $main::lxdebug->enter_sub(); @@ -358,17 +402,39 @@ sub reformat_date { sprintf("%0" . (length($&)) . "d", $mm); $output_format =~ /y+/; - if (length($&) == 2) { - $yy -= $yy >= 2000 ? 2000 : 1900; - } - substr($output_format, $-[0], $+[0] - $-[0]) = - sprintf("%0" . (length($&)) . "d", $yy); + substr($output_format, $-[0], $+[0] - $-[0]) = $yy; $main::lxdebug->leave_sub(); return $output_format; } +sub format_date { + $main::lxdebug->enter_sub(); + + my $self = shift; + my $myconfig = shift; + my $yy = shift; + my $mm = shift; + my $dd = shift; + my $yy_len = shift || 4; + + ($yy, $mm, $dd) = ($yy->year, $yy->month, $yy->day) if ref $yy eq 'DateTime'; + + $main::lxdebug->leave_sub() and return "" unless $yy && $mm && $dd; + + $yy = $yy % 100 if 2 == $yy_len; + + my $format = ref $myconfig eq '' ? "$myconfig" : $myconfig->{dateformat}; + $format =~ s{ d+ }{ sprintf("%0" . (length($&)) . "d", $dd) }gex; + $format =~ s{ m+ }{ sprintf("%0" . (length($&)) . "d", $mm) }gex; + $format =~ s{ y+ }{ sprintf("%0${yy_len}d", $yy) }gex; + + $main::lxdebug->leave_sub(); + + return $format; +} + sub quote_special_chars { my $self = shift; my $format = lc shift; @@ -398,4 +464,43 @@ sub remap_special_chars { return $self->quote_special_chars($dst_format, $self->quote_special_chars("${src_format}-reverse", shift)); } +sub raw_io_active { + my $self = shift; + + return !!$self->{raw_io_active}; +} + +sub with_raw_io { + my $self = shift; + my $fh = shift; + my $code = shift; + + $self->{raw_io_active} = 1; + binmode $fh, ":raw"; + $code->(); + binmode $fh, ":utf8" if $self->is_utf8; + $self->{raw_io_active} = 0; +} + +sub set_numberformat_wo_thousands_separator { + my $self = shift; + my $myconfig = shift || \%::myconfig; + + $self->{saved_numberformat} = $myconfig->{numberformat}; + $myconfig->{numberformat} =~ s/^1[,\.]/1/; +} + +sub restore_numberformat { + my $self = shift; + my $myconfig = shift || \%::myconfig; + + $myconfig->{numberformat} = $self->{saved_numberformat} if $self->{saved_numberformat}; +} + +sub get_local_time_zone { + my $self = shift; + $self->{local_time_zone} ||= DateTime::TimeZone->new(name => 'local'); + return $self->{local_time_zone}; +} + 1;