From 91d4b0d2b71aa24f223d1fd824c7b86516855673 Mon Sep 17 00:00:00 2001
From: tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46>
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