From 5760a92d028c8c642e88f345cb444e014697afa4 Mon Sep 17 00:00:00 2001 From: tetragon Date: Tue, 21 Nov 2006 03:14:21 +0000 Subject: Switch over to sending UTF-8 instead of escapes git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@670 4979c152-3d1c-0410-bac9-87ea11338e46 --- LedgerSMB/Form.pm | 2 +- LedgerSMB/Locale.pm | 3 +-- LedgerSMB/Sysconfig.pm | 2 ++ 3 files changed, 4 insertions(+), 3 deletions(-) (limited to 'LedgerSMB') diff --git a/LedgerSMB/Form.pm b/LedgerSMB/Form.pm index 300d0e13..92d0b081 100755 --- a/LedgerSMB/Form.pm +++ b/LedgerSMB/Form.pm @@ -273,7 +273,7 @@ sub header { $self->{titlebar} = ($self->{title}) ? "$self->{title} - $self->{titlebar}" : $self->{titlebar}; - print qq|Content-Type: text/html\n\n + print qq|Content-Type: text/html; charset=utf-8\n\n diff --git a/LedgerSMB/Locale.pm b/LedgerSMB/Locale.pm index f9674d23..9f4d2fdb 100644 --- a/LedgerSMB/Locale.pm +++ b/LedgerSMB/Locale.pm @@ -27,7 +27,6 @@ package LedgerSMB::Locale; use base 'Locale::Maketext'; use Locale::Maketext::Lexicon; -use HTML::Entities; use Encode; Locale::Maketext::Lexicon->import({ @@ -40,7 +39,7 @@ Locale::Maketext::Lexicon->import({ sub text { my ($self, $text, @params) = @_; - return encode_entities($self->maketext($text, @params)); + return $self->maketext($text, @params); } ##sub date { diff --git a/LedgerSMB/Sysconfig.pm b/LedgerSMB/Sysconfig.pm index 1634bfcc..91fe33b3 100644 --- a/LedgerSMB/Sysconfig.pm +++ b/LedgerSMB/Sysconfig.pm @@ -8,6 +8,8 @@ use LedgerSMB::Form; use Config::Std; use DBI qw(:sql_types); +binmode STDOUT, ':utf8'; + # For Win32, change $pathsep to ';'; $pathsep=':'; -- cgit v1.2.3