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

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;
-