Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 040c460b

Von Moritz Bunkus vor mehr als 10 Jahren hinzugefügt

  • ID 040c460bc23544a1777785b238a9e44e3d38830b
  • Vorgänger 6f77f9ef
  • Nachfolger 278523a4

SL::Helper::CreatePDF: gewisse Variablen nicht mit Variablen überschreiben lassen

Unterschiede anzeigen:

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