SF.net SVN: ledger-smb: [2000] trunk/LedgerSMB/Num2text.pm

[..hidden..]

Revision: 2000
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=2000&view=rev
Author:   tetragon
Date:     2007-12-21 12:52:39 -0800 (Fri, 21 Dec 2007)

Log Message:
-----------
Also apply the Num2text encoding fixes to trunk

Modified Paths:
--------------
    trunk/LedgerSMB/Num2text.pm

Modified: trunk/LedgerSMB/Num2text.pm
===================================================================
--- trunk/LedgerSMB/Num2text.pm	2007-12-21 20:46:04 UTC (rev 1999)
+++ trunk/LedgerSMB/Num2text.pm	2007-12-21 20:52:39 UTC (rev 2000)
@@ -40,6 +40,8 @@
 #     {print $_.":".$c->num2text($_)."\n";};'
 # EOF
 
+use utf8;
+
 sub init {
     my $self    = shift;
     my $locale  = $self->{'locale'};
@@ -512,13 +514,13 @@
             if ( $numblock[$i] > 1 ) {
                 if ( $i == 2 || $i == 4 ) {
                     $a = $self->{numbername}{$num} . "es";
-                    $a =~ s/\xF3/o/;
+                    $a =~ s/Ã/o/;
                     push @textnumber, $a;
                 }
                 elsif ( $i == 3 ) {
                     $num = 10**( $i * 2 );
                     $a   = "$self->{10**3} $self->{numbername}{$num}" . "es";
-                    $a =~ s/\xF3/o/;
+                    $a =~ s/Ã/o/;
                     push @textnumber, $a;
                 }
                 else {
@@ -1244,7 +1246,7 @@
     
     pop @numblock;
 
-    @textnumber = 'NAPAKA! \xBFTEVILKA JE PREVELIKA!' if ($i > 4);
+    @textnumber = 'NAPAKA! ÂTEVILKA JE PREVELIKA!' if ($i > 4);
     
   }
 
@@ -1281,5 +1283,3 @@
 1;
 
 
-1;
-


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.