diff options
| -rwxr-xr-x | LedgerSMB/Form.pm | 2 | ||||
| -rw-r--r-- | LedgerSMB/Locale.pm | 3 | ||||
| -rw-r--r-- | LedgerSMB/Sysconfig.pm | 2 |
3 files changed, 4 insertions, 3 deletions
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 <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en"> 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=':'; |