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

[..hidden..]

Revision: 3986
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=3986&view=rev
Author:   einhverfr
Date:     2011-11-12 09:01:50 +0000 (Sat, 12 Nov 2011)
Log Message:
-----------
Correcting UTF8 issues in new codebase

Modified Paths:
--------------
    branches/1.3/LedgerSMB.pm
    branches/1.3/lsmb-request.pl

Modified: branches/1.3/LedgerSMB.pm
===================================================================
--- branches/1.3/LedgerSMB.pm	2011-11-11 10:44:49 UTC (rev 3985)
+++ branches/1.3/LedgerSMB.pm	2011-11-12 09:01:50 UTC (rev 3986)
@@ -216,6 +216,7 @@
 use LedgerSMB::Log;
 use LedgerSMB::Company_Config;
 use strict;
+use utf8;
 
 $CGI::Simple::POST_MAX = -1;
 
@@ -246,6 +247,10 @@
     # my $params = $query->Vars; returns a tied hash with keys that
     # are not parameters of the CGI query.
     my %params = $query->Vars;
+    for my $p(keys %params){
+        utf8::decode($params{$p});
+        utf8::upgrade($params{$p});
+    }
     $logger->debug("LedgerSMB::new: params = ", Data::Dumper::Dumper(\%params));
     $self->{VERSION} = $VERSION;
     $self->{_request} = $query;

Modified: branches/1.3/lsmb-request.pl
===================================================================
--- branches/1.3/lsmb-request.pl	2011-11-11 10:44:49 UTC (rev 3985)
+++ branches/1.3/lsmb-request.pl	2011-11-12 09:01:50 UTC (rev 3986)
@@ -26,6 +26,8 @@
 
 $| = 1;
 
+binmode (STDIN, ':utf8');
+binmode (STDOUT, ':utf8');
 use LedgerSMB::User;
 use LedgerSMB;
 use LedgerSMB::Locale;

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