X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/3d7898cf2bab46c72face3011460d093d8778b32..e055700faea1906bea6c03184ba4516b57cac887:/SL/Form.pm diff --git a/SL/Form.pm b/SL/Form.pm index d1fdc8308..0637e6ebb 100644 --- a/SL/Form.pm +++ b/SL/Form.pm @@ -1359,6 +1359,7 @@ sub parse_template { 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';