[Patches] [PATCH] Bug 4051: adds issuedate column to overdues export
koha-patchbot at kohaaloha.com
koha-patchbot at kohaaloha.com
Sat Dec 3 14:15:43 NZDT 2011
From: Adrien Saurat <adrien.saurat at biblibre.com>
Date: Fri, 2 Dec 2011 10:46:29 +0100
Subject: [PATCH] Bug 4051: adds issuedate column to overdues export
---
circ/overdue.pl | 4 +++-
1 files changed, 3 insertions(+), 1 deletions(-)
diff --git a/circ/overdue.pl b/circ/overdue.pl
index dc15e8b..e755b12 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();
--
1.7.4.1
More information about the Patches
mailing list