From d4f4f88369d52e4ab052af32618f58c1f63a5328 Mon Sep 17 00:00:00 2001
From: Adrien Saurat <adrien.saurat@biblibre.com>
Date: Fri, 2 Dec 2011 10:46:29 +0100
Subject: [PATCH] Bug 4051: adds issuedate column to overdues export

Signed-off-by: Chris Cormack <chrisc@catalyst.net.nz>
Signed-off-by: Paul Poulain <paul.poulain@biblibre.com>
---
 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