diff options
| -rwxr-xr-x | LedgerSMB/Num2text.pm | 96 | ||||
| -rwxr-xr-x | locale/po/da.po | 6 |
2 files changed, 98 insertions, 4 deletions
diff --git a/LedgerSMB/Num2text.pm b/LedgerSMB/Num2text.pm index 74ed8a4a..8382df5c 100755 --- a/LedgerSMB/Num2text.pm +++ b/LedgerSMB/Num2text.pm @@ -31,6 +31,14 @@ # #===================================================================== +# The conversion routines can be tested with for example: +# perl <<EOF +# use LedgerSMB::CP; +# my $c = CP->new('da'); +# $c->init; +# for(0 .. 202, 999 .. 1002, 1999 .. 2002, 999999 .. 1000002, 999999999 .. 1000000002) +# {print $_.":".$c->num2text($_)."\n";};' +# EOF sub init { my $self = shift; @@ -38,7 +46,7 @@ sub init { my $langtag = substr($locale->language_tag, 0, 2); $self->{'numrules'} = 'en'; $self->{'numrules'} = $langtag if - grep {/$langtag/} (qw/ca de es et fr hu it nl ru/); + grep {/$langtag/} (qw/ca de es et fr hu it nl ru da/); $self->{'numrules'} = 'es' if $self->{'numrules'} eq 'ca'; $self->{'numrules'} = 'de' if $self->{'numrules'} eq 'ru'; @@ -106,6 +114,7 @@ sub num2text { return $self->num2text_et($amount) if $self->{'numrules'} eq 'et'; return $self->num2text_fr($amount) if $self->{'numrules'} eq 'fr'; return $self->num2text_it($amount) if $self->{'numrules'} eq 'it'; + return $self->num2text_da($amount) if $self->{'numrules'} eq 'da'; return $self->num2text_en($amount); } @@ -929,5 +938,90 @@ sub format_ten_it { } +# A special (swedish-like) spelling of danish check numbers +sub num2text_da { + my ($self, $amount) = @_; + + # Handle 0 + return $self->{numbername}{0} unless $amount; + + # List of collected digits + my @textnumber = (); + + # split amount into chunks of 3 + my @num = reverse split //, abs($amount); + my @numblock = (); + my @a = (); + while (@num) { + @a = (); + for (1 .. 3) { + push @a, shift @num; + } + push @numblock, join / /, reverse @a; + } + + my $i; + my $bigplural; + while (@numblock) { + $i = $#numblock; + $numblock[$i] *= 1; + + if ($numblock[$i] == 0) { + pop @numblock; + next; + } + + # Plural suffix "er" for million and up, not for tusinde + $bigpluralsuffix = ""; + $bigpluralsuffix = "er" if ($i > 1 && $numblock[$i] > 1); + + if ($numblock[$i] > 99) { + @num = split //, $numblock[$i]; + + # the one from hundreds + push @textnumber, $self->{numbername}{$num[0]}; + + # add hundred designation + push @textnumber, $self->{numbername}{100}; + + # reduce numblock + $numblock[$i] -= $num[0] * 100; + } + + if ($numblock[$i] > 9) { + @num = split //, $numblock[$i]; + + # the one from tens + push @textnumber, $self->{numbername}{$num[0]}; + + # add ten designation + push @textnumber, $self->{numbername}{10}; + + # reduce numblock + $numblock[$i] -= $num[0] * 10; + } + + if ($numblock[$i] > 0) { + # the ones left in the block + if($numblock[$i] == 1 && $i != 1) { + push @textnumber, $self->{numbername}{'1o'}; # Special case for "Et" tusinde + } else { + push @textnumber, $self->{numbername}{$numblock[$i]}; + } + } + + # add thousand, million, etc + if ($i) { + $amount = 10**($i * 3); + push @textnumber, $self->{numbername}{$amount}.$bigpluralsuffix; + } + + pop @numblock; + } + + join '', @textnumber; + +} + 1; diff --git a/locale/po/da.po b/locale/po/da.po index 8583733c..525f5b27 100755 --- a/locale/po/da.po +++ b/locale/po/da.po @@ -30,7 +30,7 @@ msgstr "" "Content-Type: text/plain; charset=UTF-8\n" "Content-Transfer-Encoding: 8bit\n" "POT-Creation-Date: \n" -"PO-Revision-Date: 2006-11-22 01:23+0100\n" +"PO-Revision-Date: 2006-11-27 23:20+0100\n" "Last-Translator: Mads Kiilerich <mads@kiilerich.com>\n" "Language-Team: \n" @@ -1847,7 +1847,7 @@ msgid "On Hand" msgstr "På lager" msgid "One" -msgstr "En" +msgstr "Et" msgid "One-o" msgstr "En" @@ -2694,7 +2694,7 @@ msgid "This is your first time logging into LedgerSMB. Please set your administ msgstr "Dette er første gang der logges på LedgerSMB. Sæt venligst en administrativ adgangskode" msgid "Thousand" -msgstr "Tusind" +msgstr "Tusinde" msgid "Three" msgstr "Tre" |