Browse Source

Fix more encoding issues

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

+ 2
- 2
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/r);
foreach $item ($query->param) {
$value = $query->param($item);
if (not $item =~ /^_/ and $value) {
@@ -173,7 +173,7 @@ $msg = MIME::Lite->new(
$msg->attach(
Type => "text/plain",
Charset => "UTF-8",
Data => $body);
Data => decode("utf8", $body);

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

Loading…
Cancel
Save