my $mail = Mailer->new();
$mail->{from} = $myconfig->{email};
$mail->{to} = $ref->{recipient};
my $mail = Mailer->new();
$mail->{from} = $myconfig->{email};
$mail->{to} = $ref->{recipient};
qq|SELECT
a.id, a.ordnumber, a.transdate, a.invnumber, a.amount,
ct.name AS customername, a.customer_id, a.duedate,
qq|SELECT
a.id, a.ordnumber, a.transdate, a.invnumber, a.amount,
ct.name AS customername, a.customer_id, a.duedate,
my %sort_columns = (
'dunning_description' => [ qw(dn.dunning_description customername invnumber) ],
'customername' => [ qw(customername invnumber) ],
my %sort_columns = (
'dunning_description' => [ qw(dn.dunning_description customername invnumber) ],
'customername' => [ qw(customername invnumber) ],
'duedate' => [ qw(a.duedate a.invnumber) ],
'dunning_date' => [ qw(dunning_date a.invnumber) ],
'dunning_duedate' => [ qw(dunning_duedate a.invnumber) ],
'duedate' => [ qw(a.duedate a.invnumber) ],
'dunning_date' => [ qw(dunning_date a.invnumber) ],
'dunning_duedate' => [ qw(dunning_duedate a.invnumber) ],
qq|SELECT a.id, a.ordnumber, a.invoice, a.transdate, a.invnumber, a.amount,
ct.name AS customername, ct.id AS customer_id, a.duedate, da.fee,
da.interest, dn.dunning_description, da.transdate AS dunning_date,
qq|SELECT a.id, a.ordnumber, a.invoice, a.transdate, a.invnumber, a.amount,
ct.name AS customername, ct.id AS customer_id, a.duedate, da.fee,
da.interest, dn.dunning_description, da.transdate AS dunning_date,
- da.duedate AS dunning_duedate, da.dunning_id, da.dunning_config_id
+ da.duedate AS dunning_duedate, da.dunning_id, da.dunning_config_id,
+ e2.name AS salesman
my $in = IO::File->new("gs -dBATCH -dNOPAUSE -q -sDEVICE=pdfwrite -sOutputFile=- $inputfiles |");
$form->error($main::locale->text('Could not spawn ghostscript.')) unless $in;
my $in = IO::File->new("gs -dBATCH -dNOPAUSE -q -sDEVICE=pdfwrite -sOutputFile=- $inputfiles |");
$form->error($main::locale->text('Could not spawn ghostscript.')) unless $in;
$form->error($main::locale->text('Could not spawn the printer command.')) unless $out;
} else {
my $dunning_filename = $form->get_formname_translation('dunning');
$form->error($main::locale->text('Could not spawn the printer command.')) unless $out;
} else {
my $dunning_filename = $form->get_formname_translation('dunning');
- $out = IO::File->new('>-');
- $out->print(qq|Content-Type: Application/PDF\n| .
- qq|Content-Disposition: attachment; filename="${dunning_filename}_${dunning_id}.pdf"\n\n|);
- }
+ print qq|Content-Type: Application/PDF\n| .
+ qq|Content-Disposition: attachment; filename="${dunning_filename}_${dunning_id}.pdf"\n\n|;