Revision 040c460b
Von Moritz Bunkus vor mehr als 10 Jahren hinzugefügt
SL/Helper/CreatePDF.pm | ||
---|---|---|
29 | 29 |
my ($class, %params) = @_; |
30 | 30 |
|
31 | 31 |
my $userspath = $::lx_office_conf{paths}->{userspath}; |
32 |
my $vars = $params{variables} || {}; |
|
32 | 33 |
my $form = Form->new(''); |
34 |
$form->{$_} = $vars->{$_} for keys %{ $vars }; |
|
33 | 35 |
$form->{format} = 'pdf'; |
34 | 36 |
$form->{cwd} = getcwd(); |
35 | 37 |
$form->{templates} = $::instance_conf->get_templates; |
... | ... | |
37 | 39 |
$form->{tmpdir} = $form->{cwd} . '/' . $userspath; |
38 | 40 |
my ($suffix) = $params{template} =~ m{\.(.+)}; |
39 | 41 |
|
40 |
my $vars = $params{variables} || {}; |
|
41 |
$form->{$_} = $vars->{$_} for keys %{ $vars }; |
|
42 |
|
|
43 | 42 |
my $temp_fh; |
44 | 43 |
($temp_fh, $form->{tmpfile}) = File::Temp::tempfile( |
45 | 44 |
'kivitendo-printXXXXXX', |
Auch abrufbar als: Unified diff
SL::Helper::CreatePDF: gewisse Variablen nicht mit Variablen überschreiben lassen