Lines 404-410
sub build_csv {
Link Here
|
404 |
my @lines = (); |
404 |
my @lines = (); |
405 |
|
405 |
|
406 |
# build header ... |
406 |
# build header ... |
407 |
my @keys = grep { $_ ne 'patron_attr_value_loop' } sort keys %{ $overdues->[0] }; |
407 |
my @keys = qw /duedate title author borrowertitle name phone barcode email address address2 zipcode city country |
|
|
408 |
branchcode itemcallnumber biblionumber borrowernumber itemnum replacementprice streetnumber streettype/; |
408 |
my $csv = Text::CSV_XS->new(); |
409 |
my $csv = Text::CSV_XS->new(); |
409 |
$csv->combine(@keys); |
410 |
$csv->combine(@keys); |
410 |
push @lines, $csv->string(); |
411 |
push @lines, $csv->string(); |
411 |
- |
|
|