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