SF.net SVN: ledger-smb:[3987] branches/1.3

[..hidden..]

Revision: 3987
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=3987&view=rev
Author:   einhverfr
Date:     2011-11-12 09:10:35 +0000 (Sat, 12 Nov 2011)
Log Message:
-----------
input roundtrips are fine on old code now too, but invoice templates are corrupted.  Still working on this

Modified Paths:
--------------
    branches/1.3/LedgerSMB/Form.pm
    branches/1.3/old-handler.pl

Modified: branches/1.3/LedgerSMB/Form.pm
===================================================================
--- branches/1.3/LedgerSMB/Form.pm	2011-11-12 09:01:50 UTC (rev 3986)
+++ branches/1.3/LedgerSMB/Form.pm	2011-11-12 09:10:35 UTC (rev 3987)
@@ -70,6 +70,7 @@
 use charnames qw(:full);
 use open ':utf8';
 package Form;
+use utf8;
 
 use LedgerSMB::Log;
 our $logger = Log::Log4perl->get_logger('LedgerSMB::Form');
@@ -120,6 +121,10 @@
         $self->{unescape( "", $_) } = unescape( "", $orig->{$_} );
     }
 
+    for my $p(keys %$self){
+        utf8::decode($self->{$p});
+        utf8::upgrade($self->{$p});
+    }
     $self->{action} = "" unless defined $self->{action};
 
     if ( substr( $self->{action}, 0, 1 ) !~ /( |\.)/ ) {

Modified: branches/1.3/old-handler.pl
===================================================================
--- branches/1.3/old-handler.pl	2011-11-12 09:01:50 UTC (rev 3986)
+++ branches/1.3/old-handler.pl	2011-11-12 09:10:35 UTC (rev 3987)
@@ -52,6 +52,8 @@
 
 $| = 1;
 
+binmode (STDIN, ':utf8');
+binmode (STDOUT, ':utf8');
 use LedgerSMB::User;
 use LedgerSMB::Form;
 use LedgerSMB::Locale;

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