ledger-smb - Unnamed repository; edit this file to name it for gitweb.

diff options

Diffstat (limited to 'sql/Dutch_Default-chart.sql')

0 files changed, 0 insertions, 0 deletions

pan class="hl slc"># get_handle - gets a locale handle

# text - outputs HTML escaped translation for input text

# date - formats date for the locale

#====================================================================

package LedgerSMB::Locale;

use base 'Locale::Maketext';

use Locale::Maketext::Lexicon;

use HTML::Entities;

use Encode;

Locale::Maketext::Lexicon->import({

'*' => [

        Gettext => "${LedgerSMB::Sysconfig::localepath}/*.po",

    _auto => 1,

    _decode => 1,

});

sub text {

    my ($self, $text) = @_;

    return encode_entities($self->maketext($text));

}

##sub date {

## my ($self, $myconfig, $date, $longformat) = @_;

## 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 ($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 =~ /(..)(..)(..)/);

}