|
Lines 442-448
END_SQL
Link Here
|
| 442 |
# this text contains fields that are replaced by their value. Those fields must be written between brackets |
442 |
# this text contains fields that are replaced by their value. Those fields must be written between brackets |
| 443 |
# The following fields are available : |
443 |
# The following fields are available : |
| 444 |
# itemcount is interpreted here as the number of items in the overdue range defined by the current notice or all overdues < max if(-list-all). |
444 |
# itemcount is interpreted here as the number of items in the overdue range defined by the current notice or all overdues < max if(-list-all). |
| 445 |
# <date> <itemcount> <firstname> <lastname> <address1> <address2> <address3> <city> <postcode> |
445 |
# <date> <itemcount> <firstname> <lastname> <address1> <address2> <address3> <city> <postcode> <country> |
| 446 |
|
446 |
|
| 447 |
my $borrower_sql = <<'END_SQL'; |
447 |
my $borrower_sql = <<'END_SQL'; |
| 448 |
SELECT distinct(issues.borrowernumber), firstname, surname, address, address2, city, zipcode, country, email |
448 |
SELECT distinct(issues.borrowernumber), firstname, surname, address, address2, city, zipcode, country, email |
|
Lines 551-556
END_SQL
Link Here
|
| 551 |
address2 => $address2, |
551 |
address2 => $address2, |
| 552 |
city => $city, |
552 |
city => $city, |
| 553 |
postcode => $postcode, |
553 |
postcode => $postcode, |
|
|
554 |
country => $country, |
| 554 |
email => $email, |
555 |
email => $email, |
| 555 |
itemcount => $itemcount, |
556 |
itemcount => $itemcount, |
| 556 |
titles => $titles, |
557 |
titles => $titles, |
|
Lines 579-584
END_SQL
Link Here
|
| 579 |
address2 => $address2, |
580 |
address2 => $address2, |
| 580 |
city => $city, |
581 |
city => $city, |
| 581 |
postcode => $postcode, |
582 |
postcode => $postcode, |
|
|
583 |
country => $country, |
| 582 |
email => $email, |
584 |
email => $email, |
| 583 |
itemcount => $itemcount, |
585 |
itemcount => $itemcount, |
| 584 |
titles => $titles, |
586 |
titles => $titles, |
|
Lines 604-610
END_SQL
Link Here
|
| 604 |
print @output_chunks; |
606 |
print @output_chunks; |
| 605 |
} |
607 |
} |
| 606 |
# Generate the content of the csv with headers |
608 |
# Generate the content of the csv with headers |
| 607 |
my $content = join(";", qw(title name surname address1 address2 zipcode city email itemcount itemsinfo due_date issue_date)) . "\n"; |
609 |
my $content = join(";", qw(title name surname address1 address2 zipcode city country email itemcount itemsinfo due_date issue_date)) . "\n"; |
| 608 |
$content .= join( "\n", @output_chunks ); |
610 |
$content .= join( "\n", @output_chunks ); |
| 609 |
|
611 |
|
| 610 |
my $attachment = { |
612 |
my $attachment = { |
|
Lines 744-750
sub prepare_letter_for_printing {
Link Here
|
| 744 |
if ( exists $params->{'outputformat'} && $params->{'outputformat'} eq 'csv' ) { |
746 |
if ( exists $params->{'outputformat'} && $params->{'outputformat'} eq 'csv' ) { |
| 745 |
if ($csv->combine( |
747 |
if ($csv->combine( |
| 746 |
$params->{'firstname'}, $params->{'lastname'}, $params->{'address1'}, $params->{'address2'}, $params->{'postcode'}, |
748 |
$params->{'firstname'}, $params->{'lastname'}, $params->{'address1'}, $params->{'address2'}, $params->{'postcode'}, |
| 747 |
$params->{'city'}, $params->{'email'}, $params->{'itemcount'}, $params->{'titles'} |
749 |
$params->{'city'}, $params->{'country'}, $params->{'email'}, $params->{'itemcount'}, $params->{'titles'} |
| 748 |
) |
750 |
) |
| 749 |
) { |
751 |
) { |
| 750 |
return $csv->string, "\n"; |
752 |
return $csv->string, "\n"; |
| 751 |
- |
|
|