|
Lines 437-447
sub build_csv {
Link Here
|
| 437 |
return "" if scalar(@$overdues) == 0; |
437 |
return "" if scalar(@$overdues) == 0; |
| 438 |
|
438 |
|
| 439 |
my @lines = (); |
439 |
my @lines = (); |
|
|
440 |
my @keys = qw{ |
| 441 |
duedate |
| 442 |
title |
| 443 |
author |
| 444 |
borrowertitle |
| 445 |
firstname |
| 446 |
surname |
| 447 |
phone |
| 448 |
barcode |
| 449 |
email |
| 450 |
address |
| 451 |
address2 |
| 452 |
zipcode |
| 453 |
city |
| 454 |
country |
| 455 |
branchcode |
| 456 |
itemcallnumber |
| 457 |
biblionumber |
| 458 |
borrowernumber |
| 459 |
itemnum |
| 460 |
issuedate |
| 461 |
replacementprice |
| 462 |
streetnumber |
| 463 |
streettype |
| 464 |
}; |
| 465 |
my $csv = Text::CSV_XS->new(); |
| 440 |
|
466 |
|
| 441 |
# build header ... |
467 |
# build header ... |
| 442 |
my @keys = qw /duedate title author borrowertitle firstname surname phone barcode email address address2 zipcode city country |
|
|
| 443 |
branchcode itemcallnumber biblionumber borrowernumber itemnum issuedate replacementprice streetnumber streettype/; |
| 444 |
my $csv = Text::CSV_XS->new(); |
| 445 |
$csv->combine(@keys); |
468 |
$csv->combine(@keys); |
| 446 |
push @lines, $csv->string(); |
469 |
push @lines, $csv->string(); |
| 447 |
|
470 |
|
| 448 |
- |
|
|