Browse Source

Fix (hopefully) last encoding issue

tags/stw2018
Reinhard Müller 9 months ago
parent
commit
a7d7ef6b79
1 changed files with 4 additions and 4 deletions
  1. 4
    4
      cgi-bin/weborder.pl

+ 4
- 4
cgi-bin/weborder.pl View File

@@ -137,7 +137,7 @@ push @odtfill, "/tmp/invoice.odt";
# placeholder replacements
push @odtfill, "repeat=" . $count;
push @odtfill, "Name=" . $name;
push @odtfill, "Address=" . ($address =~ s/\n/\\n/r);
push @odtfill, "Address=" . $address =~ s/\n/\\n/gr;
foreach $item ($query->param) {
$value = $query->param($item);
if (not $item =~ /^_/ and $value) {
@@ -171,9 +171,9 @@ $msg = MIME::Lite->new(
Type => "multipart/mixed");

$msg->attach(
Type => "text/plain",
Charset => "UTF-8",
Data => decode("utf8", $body));
Type => "text/plain; charset=utf-8",
Encoding => "8bit",
Data => $body);

$msg->attach(
Type => "application/vnd.oasis.opendocument.text",

Loading…
Cancel
Save