|
Lines 584-593
END_SQL
Link Here
|
| 584 |
local $, = "\f"; # pagebreak |
584 |
local $, = "\f"; # pagebreak |
| 585 |
print @output_chunks; |
585 |
print @output_chunks; |
| 586 |
} |
586 |
} |
|
|
587 |
# Generate the content of the csv with headers |
| 588 |
my $content = join(";", qw(title name surname address1 address2 zipcode city email itemcount itemsinfo due_date issue_date)) . "\n"; |
| 589 |
$content .= join( "\n", @output_chunks ); |
| 590 |
|
| 587 |
my $attachment = { |
591 |
my $attachment = { |
| 588 |
filename => defined $csvfilename ? 'attachment.csv' : 'attachment.txt', |
592 |
filename => defined $csvfilename ? 'attachment.csv' : 'attachment.txt', |
| 589 |
type => 'text/plain', |
593 |
type => 'text/plain', |
| 590 |
content => join( "\n", @output_chunks ) |
594 |
content => $content, |
| 591 |
}; |
595 |
}; |
| 592 |
|
596 |
|
| 593 |
my $letter = { |
597 |
my $letter = { |
| 594 |
- |
|
|