Temporärdateien im Binärmodus öffnen

Andernfalls werden ODTs und PDFs unter Windows beim Herunterladen
verstümmelt.

diff --git a/SL/Form.pm b/SL/Form.pm
index 8532c656f7ec79ac3bc00a98f82cbc11d48cf9b0..81d6dc41b2b136e28a094b46bc32f07e2c22f563 100644 (file)
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -1323,6 +1323,7 @@ sub parse_template {
       my $numbytes = (-s $self->{tmpfile});
       open(IN, $self->{tmpfile})
         or $self->error($self->cleanup . "$self->{tmpfile} : $!");
       my $numbytes = (-s $self->{tmpfile});
       open(IN, $self->{tmpfile})
         or $self->error($self->cleanup . "$self->{tmpfile} : $!");

+      binmode IN;

 
       $self->{copies} = 1 unless $self->{media} eq 'printer';
 
 
       $self->{copies} = 1 unless $self->{media} eq 'printer';