X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FHelper%2FCreatePDF.pm;h=8d36eb74920a1871460e139379e8082bb7618b4b;hb=14b824ae47b746673eb94885b0c972fd5a84a62a;hp=6cffc292524eb3dd97e20741374bd97f7b9eb592;hpb=aa925eed40c22fe731ac70b496812f7e5a38e240;p=kivitendo-erp.git diff --git a/SL/Helper/CreatePDF.pm b/SL/Helper/CreatePDF.pm index 6cffc2925..8d36eb749 100644 --- a/SL/Helper/CreatePDF.pm +++ b/SL/Helper/CreatePDF.pm @@ -33,8 +33,9 @@ sub create_pdf { $form->{format} = 'pdf'; $form->{cwd} = getcwd(); $form->{templates} = $::instance_conf->get_templates; - $form->{IN} = $params{template} . '.tex'; + $form->{IN} = $params{template}; $form->{tmpdir} = $form->{cwd} . '/' . $userspath; + my ($suffix) = $params{template} =~ m{\.(.+)}; my $vars = $params{variables} || {}; $form->{$_} = $vars->{$_} for keys %{ $vars }; @@ -42,7 +43,7 @@ sub create_pdf { my $temp_fh; ($temp_fh, $form->{tmpfile}) = File::Temp::tempfile( 'kivitendo-printXXXXXX', - SUFFIX => '.tex', + SUFFIX => ".${suffix}", DIR => $userspath, UNLINK => ($::lx_office_conf{debug} && $::lx_office_conf{debug}->{keep_temp_files})? 0 : 1, ); @@ -152,3 +153,135 @@ sub find_template { } 1; +__END__ + +=pod + +=encoding utf8 + +=head1 NAME + +SL::Helper::CreatePDF - A helper for creating PDFs from template files + +=head1 SYNOPSIS + + # Retrieve a sales order from the database and create a PDF for + # it: + my $order = SL::DB::Order->new(id => …)->load; + my $print_form = Form->new(''); + $print_form->{type} = 'invoice'; + $print_form->{formname} = 'invoice', + $print_form->{format} = 'pdf', + $print_form->{media} = 'file'; + + $order->flatten_to_form($print_form, format_amounts => 1); + $print_form->prepare_for_printing; + + my $pdf = SL::Helper::CreatePDF->create_pdf( + template => 'sales_order', + variables => $print_form, + ); + +=head1 FUNCTIONS + +=over 4 + +=item C + +Parses a LaTeX template file, creates a PDF for it and returns either +its content or its file name. The recognized parameters are: + +=over 2 + +=item * C