From 175556f8a7e367f84cdcf71d15b604d414b17ac2 Mon Sep 17 00:00:00 2001
From: Fridolin Somers <fridolin.somers@biblibre.com>
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