From 91d4b0d2b71aa24f223d1fd824c7b86516855673 Mon Sep 17 00:00:00 2001 From: tetragon Date: Fri, 21 Dec 2007 20:52:39 +0000 Subject: Also apply the Num2text encoding fixes to trunk git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@2000 4979c152-3d1c-0410-bac9-87ea11338e46 --- LedgerSMB/Num2text.pm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'LedgerSMB/Num2text.pm') diff --git a/LedgerSMB/Num2text.pm b/LedgerSMB/Num2text.pm index ff0ce1fa..89c7c41a 100644 --- a/LedgerSMB/Num2text.pm +++ b/LedgerSMB/Num2text.pm @@ -40,6 +40,8 @@ # {print $_.":".$c->num2text($_)."\n";};' # EOF +use utf8; + sub init { my $self = shift; my $locale = $self->{'locale'}; @@ -512,13 +514,13 @@ sub num2text_es { if ( $numblock[$i] > 1 ) { if ( $i == 2 || $i == 4 ) { $a = $self->{numbername}{$num} . "es"; - $a =~ s/ó/o/; + $a =~ s/ó/o/; push @textnumber, $a; } elsif ( $i == 3 ) { $num = 10**( $i * 2 ); $a = "$self->{10**3} $self->{numbername}{$num}" . "es"; - $a =~ s/ó/o/; + $a =~ s/ó/o/; push @textnumber, $a; } else { @@ -1244,7 +1246,7 @@ sub num2text_sl { pop @numblock; - @textnumber = 'NAPAKA! ¿TEVILKA JE PREVELIKA!' if ($i > 4); + @textnumber = 'NAPAKA! ¿TEVILKA JE PREVELIKA!' if ($i > 4); } @@ -1281,5 +1283,3 @@ sub format_ten_sl { 1; -1; - -- cgit v1.2.3