diff options
Diffstat (limited to 'LedgerSMB/Locale.pm')
| -rw-r--r-- | LedgerSMB/Locale.pm | 197 |
1 files changed, 101 insertions, 96 deletions
diff --git a/LedgerSMB/Locale.pm b/LedgerSMB/Locale.pm index c6192510..122794b4 100644 --- a/LedgerSMB/Locale.pm +++ b/LedgerSMB/Locale.pm @@ -3,15 +3,15 @@ # Locale support module for LedgerSMB # LedgerSMB::Locale # -# LedgerSMB +# LedgerSMB # Small Medium Business Accounting software # http://www.ledgersmb.org/ -# +# # # Copyright (C) 2006 # This work contains copyrighted information from a number of sources all used -# with permission. It is released under the GNU General Public License -# Version 2 or, at your option, any later version. See COPYRIGHT file for +# with permission. It is released under the GNU General Public License +# Version 2 or, at your option, any later version. See COPYRIGHT file for # details. # # @@ -29,17 +29,17 @@ use base 'Locale::Maketext'; use Locale::Maketext::Lexicon; use Encode; -Locale::Maketext::Lexicon->import({ - '*' => [ - Gettext => "${LedgerSMB::Sysconfig::localepath}/*.po", - ], - _auto => 1, - _decode => 1, -}); +Locale::Maketext::Lexicon->import( + { + '*' => [ Gettext => "${LedgerSMB::Sysconfig::localepath}/*.po", ], + _auto => 1, + _decode => 1, + } +); sub text { - my ($self, $text, @params) = @_; - return $self->maketext($text, @params); + my ( $self, $text, @params ) = @_; + return $self->maketext( $text, @params ); } ##sub date { @@ -47,89 +47,94 @@ sub text { ## return $date; ##} sub date { - my ($self, $myconfig, $date, $longformat) = @_; - - my @longmonth = (qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec)); - @longmonth = ("January", "February", "March", "April", "May ", "June", - "July", "August", "September", "October", "November", - "December") if $longformat; - my $longdate = ''; - - return '' if not $date; - - my $spc = ''; - my $yy = ''; - my $mm = ''; - my $dd = ''; - - # get separator - $spc = $myconfig->{dateformat}; - $spc =~ s/\w//g; - $spc = substr($spc, 0, 1); - - if (!$longformat && $date =~ /^\d{4}\D/){ # reparsing date at this point - # causes problems! - return $date; - } - if ($date =~ /\D/) { - - if ($myconfig->{dateformat} =~ /^yy/) { - ($yy, $mm, $dd) = split /\D/, $date; - } - - if ($myconfig->{dateformat} =~ /^mm/) { - ($mm, $dd, $yy) = split /\D/, $date; - } - - if ($myconfig->{dateformat} =~ /^dd/) { - ($dd, $mm, $yy) = split /\D/, $date; - } - - } else { - - $date = substr($date, 2); - ($yy, $mm, $dd) = ($date =~ /(..)(..)(..)/); - } - - $dd *= 1; - $mm--; - $yy += 2000 if length $yy == 2; - - if ($myconfig->{dateformat} =~ /^dd/) { - - $mm++; - $dd = substr("0$dd", -2); - $mm = substr("0$mm", -2); - $longdate = "$dd$spc$mm$spc$yy"; - - if (defined $longformat) { - $longdate = "$dd"; - $longdate .= ($spc eq '.') ? ". " : " "; - $longdate .= &text($self, $longmonth[--$mm])." $yy"; - } - - } elsif ($myconfig->{dateformat} =~ /^yy/) { - - $mm++; - $dd = substr("0$dd", -2); - $mm = substr("0$mm", -2); - $longdate = "$yy$spc$mm$spc$dd"; - - if (defined $longformat) { - $longdate = &text($self, $longmonth[--$mm])." $dd $yy"; - } - - } else { - - $mm++; - $dd = substr("0$dd", -2); - $mm = substr("0$mm", -2); - $longdate = "$mm$spc$dd$spc$yy"; - - if (defined $longformat) { - $longdate = &text($self, $longmonth[--$mm])." $dd $yy"; - } - } + my ( $self, $myconfig, $date, $longformat ) = @_; + + my @longmonth = (qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec)); + @longmonth = ( + "January", "February", "March", "April", + "May ", "June", "July", "August", + "September", "October", "November", "December" + ) if $longformat; + my $longdate = ''; + + return '' if not $date; + + my $spc = ''; + my $yy = ''; + my $mm = ''; + my $dd = ''; + + # get separator + $spc = $myconfig->{dateformat}; + $spc =~ s/\w//g; + $spc = substr( $spc, 0, 1 ); + + if ( !$longformat && $date =~ /^\d{4}\D/ ) { # reparsing date at this point + # causes problems! + return $date; + } + if ( $date =~ /\D/ ) { + + if ( $myconfig->{dateformat} =~ /^yy/ ) { + ( $yy, $mm, $dd ) = split /\D/, $date; + } + + if ( $myconfig->{dateformat} =~ /^mm/ ) { + ( $mm, $dd, $yy ) = split /\D/, $date; + } + + if ( $myconfig->{dateformat} =~ /^dd/ ) { + ( $dd, $mm, $yy ) = split /\D/, $date; + } + + } + else { + + $date = substr( $date, 2 ); + ( $yy, $mm, $dd ) = ( $date =~ /(..)(..)(..)/ ); + } + + $dd *= 1; + $mm--; + $yy += 2000 if length $yy == 2; + + if ( $myconfig->{dateformat} =~ /^dd/ ) { + + $mm++; + $dd = substr( "0$dd", -2 ); + $mm = substr( "0$mm", -2 ); + $longdate = "$dd$spc$mm$spc$yy"; + + if ( defined $longformat ) { + $longdate = "$dd"; + $longdate .= ( $spc eq '.' ) ? ". " : " "; + $longdate .= &text( $self, $longmonth[ --$mm ] ) . " $yy"; + } + + } + elsif ( $myconfig->{dateformat} =~ /^yy/ ) { + + $mm++; + $dd = substr( "0$dd", -2 ); + $mm = substr( "0$mm", -2 ); + $longdate = "$yy$spc$mm$spc$dd"; + + if ( defined $longformat ) { + $longdate = &text( $self, $longmonth[ --$mm ] ) . " $dd $yy"; + } + + } + else { + + $mm++; + $dd = substr( "0$dd", -2 ); + $mm = substr( "0$mm", -2 ); + $longdate = "$mm$spc$dd$spc$yy"; + + if ( defined $longformat ) { + $longdate = &text( $self, $longmonth[ --$mm ] ) . " $dd $yy"; + } + } } 1; |