Revision 8cd05ad6
Von Moritz Bunkus vor mehr als 14 Jahren hinzugefügt
| SL/DN.pm | ||
|---|---|---|
|
sub save_dunning {
|
||
|
$main::lxdebug->enter_sub();
|
||
|
|
||
|
my ($self, $myconfig, $form, $rows, $userspath, $spool) = @_;
|
||
|
my ($self, $myconfig, $form, $rows) = @_;
|
||
|
# connect to database
|
||
|
my $dbh = $form->dbconnect_noauto($myconfig);
|
||
|
|
||
| ... | ... | |
|
|
||
|
$copies *= 1;
|
||
|
$copies = 1 unless $copies;
|
||
|
my $inputfiles = join " ", map { "${main::spool}/$_ " x $copies } @{ $form->{DUNNING_PDFS} };
|
||
|
my $spool = $::lx_office_conf{paths}->{spool};
|
||
|
my $inputfiles = join " ", map { "$spool/$_ " x $copies } @{ $form->{DUNNING_PDFS} };
|
||
|
my $dunning_id = $form->{dunning_id};
|
||
|
|
||
|
$dunning_id =~ s|[^\d]||g;
|
||
| ... | ... | |
|
|
||
|
$in->close();
|
||
|
|
||
|
map { unlink("${main::spool}/$_") } @{ $form->{DUNNING_PDFS} };
|
||
|
map { unlink("$spool/$_") } @{ $form->{DUNNING_PDFS} };
|
||
|
|
||
|
$main::lxdebug->leave_sub();
|
||
|
}
|
||
| ... | ... | |
|
$self->set_template_options($myconfig, $form);
|
||
|
|
||
|
my $filename = "dunning_${dunning_id}_" . Common::unique_id() . ".pdf";
|
||
|
$form->{OUT} = ">${main::spool}/$filename";
|
||
|
my $spool = $::lx_office_conf{paths}->{spool};
|
||
|
$form->{OUT} = ">${spool}/$filename";
|
||
|
$form->{keep_tmpfile} = 1;
|
||
|
|
||
|
delete $form->{tmpfile};
|
||
|
|
||
|
push @{ $form->{DUNNING_PDFS} }, $filename;
|
||
|
push @{ $form->{DUNNING_PDFS_EMAIL} }, { 'filename' => "${main::spool}/$filename",
|
||
|
push @{ $form->{DUNNING_PDFS_EMAIL} }, { 'filename' => "${spool}/$filename",
|
||
|
'name' => "dunning_${dunning_id}.pdf" };
|
||
|
|
||
|
$form->parse_template($myconfig, $main::userspath);
|
||
|
$form->parse_template($myconfig);
|
||
|
|
||
|
$dbh->disconnect() unless $provided_dbh;
|
||
|
|
||
| ... | ... | |
|
|
||
|
my $filename = Common::unique_id() . "dunning_invoice_${dunning_id}.pdf";
|
||
|
|
||
|
$form->{OUT} = ">$main::spool/$filename";
|
||
|
my $spool = $::lx_office_conf{paths}->{spool};
|
||
|
$form->{OUT} = ">$spool/$filename";
|
||
|
$form->{keep_tmpfile} = 1;
|
||
|
delete $form->{tmpfile};
|
||
|
|
||
|
map { delete $form->{$_} } grep /^[a-z_]+_\d+$/, keys %{ $form };
|
||
|
|
||
|
$form->parse_template($myconfig, $main::userspath);
|
||
|
$form->parse_template($myconfig);
|
||
|
|
||
|
restore_form($saved_form);
|
||
|
|
||
|
push @{ $form->{DUNNING_PDFS} }, $filename;
|
||
|
push @{ $form->{DUNNING_PDFS_EMAIL} }, { 'filename' => "${main::spool}/$filename",
|
||
|
push @{ $form->{DUNNING_PDFS_EMAIL} }, { 'filename' => "${spool}/$filename",
|
||
|
'name' => "dunning_invoice_${dunning_id}.pdf" };
|
||
|
|
||
|
$dbh->disconnect() unless $provided_dbh;
|
||
Auch abrufbar als: Unified diff
Globale Variablen $::userspath, $::templates, $::membersfile nach %::lx_office_conf verschoben