Revision f4958a2b
Von Moritz Bunkus vor etwa 11 Jahren hinzugefügt
| SL/Helper/CreatePDF.pm | ||
|---|---|---|
|
$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 };
|
||
| ... | ... | |
|
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,
|
||
|
);
|
||
Auch abrufbar als: Unified diff
CreatePDF-Helfer: create_pdf: Extension muss bereits übergeben werden