Signed-off-by: Chris Cormack <chrisc@catalyst.net.nz>
Signed-off-by: Paul Poulain <paul.poulain@biblibre.com>
borrowers.phone,
borrowers.email,
issues.itemnumber,
borrowers.phone,
borrowers.email,
issues.itemnumber,
items.barcode,
biblio.title,
biblio.author,
items.barcode,
biblio.title,
biblio.author,
borrowernumber => $data->{borrowernumber},
barcode => $data->{barcode},
itemnum => $data->{itemnumber},
borrowernumber => $data->{borrowernumber},
barcode => $data->{barcode},
itemnum => $data->{itemnumber},
+ issuedate => format_date($data->{issuedate}),
borrowertitle => $data->{borrowertitle},
name => $data->{borrower},
streetnumber => $data->{streetnumber},
borrowertitle => $data->{borrowertitle},
name => $data->{borrower},
streetnumber => $data->{streetnumber},
# build header ...
my @keys = qw /duedate title author borrowertitle name phone barcode email address address2 zipcode city country
# build header ...
my @keys = qw /duedate title author borrowertitle name phone barcode email address address2 zipcode city country
- branchcode itemcallnumber biblionumber borrowernumber itemnum replacementprice streetnumber streettype/;
+ branchcode itemcallnumber biblionumber borrowernumber itemnum issuedate replacementprice streetnumber streettype/;
my $csv = Text::CSV_XS->new();
$csv->combine(@keys);
push @lines, $csv->string();
my $csv = Text::CSV_XS->new();
$csv->combine(@keys);
push @lines, $csv->string();