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