From 960ae04e2d468c89c8f9c3e9d3af4242d835ddfa Mon Sep 17 00:00:00 2001 From: einhverfr Date: Mon, 9 Apr 2007 21:23:00 +0000 Subject: Fixing logo printing git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/branches/1.2@1047 4979c152-3d1c-0410-bac9-87ea11338e46 --- LedgerSMB/Form.pm | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) (limited to 'LedgerSMB') diff --git a/LedgerSMB/Form.pm b/LedgerSMB/Form.pm index b54745d3..5c249f4d 100755 --- a/LedgerSMB/Form.pm +++ b/LedgerSMB/Form.pm @@ -39,6 +39,7 @@ use List::Util qw(first); use LedgerSMB::Mailer; use Time::Local; use Cwd; +use File::Copy; package Form; @@ -638,10 +639,16 @@ sub parse_template { $tmpfile =~ s/\./_$self->{fileid}./ if $self->{fileid}; $self->{tmpfile} = "${LedgerSMB::Sysconfig::tempdir}/${fileid}_${tmpfile}"; - my $temphash; + my $temphash; if ($self->{format} =~ /(postscript|pdf)/ || $self->{media} eq 'email') { $temphash{out} = $self->{OUT}; $self->{OUT} = "$self->{tmpfile}"; + File::Copy::copy( + "$self->{templates}/logo.png", + "${LedgerSMB::Sysconfig::tempdir}/"); + File::Copy::copy( + "$self->{templates}/logo.eps", + "${LedgerSMB::Sysconfig::tempdir}/"); $temphash{printmode} = $self->{printmode}; $self->{printmode} = '>'; } -- cgit v1.2.3