X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/6f77f9ef21dbea687c49b41052e9cc3381cd000d..040c460bc23544a1777785b238a9e44e3d38830b:/SL/Helper/CreatePDF.pm diff --git a/SL/Helper/CreatePDF.pm b/SL/Helper/CreatePDF.pm index 8d36eb749..555e75d73 100644 --- a/SL/Helper/CreatePDF.pm +++ b/SL/Helper/CreatePDF.pm @@ -29,7 +29,9 @@ sub create_pdf { my ($class, %params) = @_; my $userspath = $::lx_office_conf{paths}->{userspath}; + my $vars = $params{variables} || {}; my $form = Form->new(''); + $form->{$_} = $vars->{$_} for keys %{ $vars }; $form->{format} = 'pdf'; $form->{cwd} = getcwd(); $form->{templates} = $::instance_conf->get_templates; @@ -37,9 +39,6 @@ sub create_pdf { $form->{tmpdir} = $form->{cwd} . '/' . $userspath; my ($suffix) = $params{template} =~ m{\.(.+)}; - my $vars = $params{variables} || {}; - $form->{$_} = $vars->{$_} for keys %{ $vars }; - my $temp_fh; ($temp_fh, $form->{tmpfile}) = File::Temp::tempfile( 'kivitendo-printXXXXXX',