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 |
- |
|
|