From 175556f8a7e367f84cdcf71d15b604d414b17ac2 Mon Sep 17 00:00:00 2001 From: Fridolin Somers Date: Fri, 14 Aug 2015 12:28:21 +0200 Subject: [PATCH] Bug 3642 - New informations in overdues CSV export - prepare This patch prepare columns list to ease other patches --- circ/overdue.pl | 29 ++++++++++++++++++++++++++--- 1 file changed, 26 insertions(+), 3 deletions(-) diff --git a/circ/overdue.pl b/circ/overdue.pl index 01a80d2..7418a99 100755 --- a/circ/overdue.pl +++ b/circ/overdue.pl @@ -437,11 +437,34 @@ sub build_csv { return "" if scalar(@$overdues) == 0; my @lines = (); + my @keys = qw{ + duedate + title + author + borrowertitle + firstname + surname + phone + barcode + email + address + address2 + zipcode + city + country + branchcode + itemcallnumber + biblionumber + borrowernumber + itemnum + issuedate + replacementprice + streetnumber + streettype + }; + my $csv = Text::CSV_XS->new(); # build header ... - my @keys = qw /duedate title author borrowertitle firstname surname phone barcode email address address2 zipcode city country - branchcode itemcallnumber biblionumber borrowernumber itemnum issuedate replacementprice streetnumber streettype/; - my $csv = Text::CSV_XS->new(); $csv->combine(@keys); push @lines, $csv->string(); -- 2.1.0