summaryrefslogtreecommitdiff
path: root/LedgerSMB
diff options
context:
space:
mode:
authortetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46>2007-12-21 20:44:30 +0000
committertetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46>2007-12-21 20:44:30 +0000
commitefdfb3adb9411f04893fcd44ac0a470d44b2ed6d (patch)
tree1756bbf77487480f83d56fa9ca5ec1be9a3a50f0 /LedgerSMB
parentd3b34d77639878033fbcd3075b881666c573b06f (diff)
Play with text encoding, hopefully this fixes it
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/branches/1.2@1998 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'LedgerSMB')
-rwxr-xr-xLedgerSMB/Num2text.pm10
1 files changed, 5 insertions, 5 deletions
diff --git a/LedgerSMB/Num2text.pm b/LedgerSMB/Num2text.pm
index ff0ce1fa..89c7c41a 100755
--- 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;
-