From d03cba1f2c4c21acbd86c13c4fbdef7e2f0e4459 Mon Sep 17 00:00:00 2001 From: Adrien Saurat Date: Fri, 2 Dec 2011 10:46:29 +0100 Subject: [PATCH] Bug 4051: adds issuedate column to overdues export Signed-off-by: Chris Cormack Signed-off-by: Paul Poulain (cherry picked from commit d4f4f88369d52e4ab052af32618f58c1f63a5328) Signed-off-by: Chris Nighswonger --- circ/overdue.pl | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/circ/overdue.pl b/circ/overdue.pl index dc15e8b1eb..e755b12e16 100755 --- a/circ/overdue.pl +++ b/circ/overdue.pl @@ -247,6 +247,7 @@ if ($noreport) { borrowers.phone, borrowers.email, issues.itemnumber, + issues.issuedate, items.barcode, biblio.title, biblio.author, @@ -312,6 +313,7 @@ if ($noreport) { borrowernumber => $data->{borrowernumber}, barcode => $data->{barcode}, itemnum => $data->{itemnumber}, + issuedate => format_date($data->{issuedate}), borrowertitle => $data->{borrowertitle}, name => $data->{borrower}, streetnumber => $data->{streetnumber}, @@ -399,7 +401,7 @@ sub build_csv { # 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(); -- 2.39.5