Revision faef45c2
Von Moritz Bunkus vor mehr als 17 Jahren hinzugefügt
| SL/Mailer.pm | ||
|---|---|---|
| 30 | 30 |
|
| 31 | 31 |
package Mailer; |
| 32 | 32 |
|
| 33 |
use SL::Common; |
|
| 34 |
|
|
| 33 | 35 |
sub new {
|
| 34 | 36 |
$main::lxdebug->enter_sub(); |
| 35 | 37 |
|
| ... | ... | |
| 95 | 97 |
$domain =~ s/(.*?\@|>)//g; |
| 96 | 98 |
my $msgid = "$boundary\@$domain"; |
| 97 | 99 |
|
| 98 |
$self->{charset} = "ISO-8859-15" unless $self->{charset};
|
|
| 100 |
$self->{charset} = Common::DEFAULT_CHARSET unless $self->{charset};
|
|
| 99 | 101 |
|
| 100 | 102 |
if ($out) {
|
| 101 | 103 |
if (!open(OUT, $out)) {
|
Auch abrufbar als: Unified diff
Änderungen zur Unterstützung von anderen Zeichensätzen als ISO-8859-1(5) implementiert. Es ist jetzt möglich, $dbcharset in lx-erp.conf auf UTF-8 zu setzen und dann auch UTF-8 als Datenbankencoding zu benutzen.