From: Paul Poulain <paul.poulain@biblibre.com>
Date: Fri, 29 Apr 2011 17:31:40 +0000 (+0200)
Subject: Bug 6285 strange order in CSV upload
X-Git-Url: http://git.rot13.org/?a=commitdiff_plain;h=f6043fbbe49eba279ee0635c43dd5a46a20eeb52;p=koha.git

Bug 6285 strange order in CSV upload

uploading the circ overdues result in a csv with columns in a strange order
and not the order of the screen
This patch reorder the column by putting the usefull ones first

Signed-off-by: Magnus Enger <magnus@enger.priv.no>

Signed-off-by: Ian Walls <ian.walls@bywatersolutions.com>
Signed-off-by: Chris Cormack <chrisc@catalyst.net.nz>
---

diff --git a/circ/overdue.pl b/circ/overdue.pl
index 7467874f5f..dc15e8b1eb 100755
--- a/circ/overdue.pl
+++ b/circ/overdue.pl
@@ -398,7 +398,8 @@ sub build_csv {
     my @lines = ();
 
     # build header ...
-    my @keys = grep { $_ ne 'patron_attr_value_loop' } sort keys %{ $overdues->[0] };
+    my @keys = qw /duedate title author borrowertitle name phone barcode email address address2 zipcode city country
+                branchcode itemcallnumber biblionumber borrowernumber itemnum replacementprice streetnumber streettype/;
     my $csv = Text::CSV_XS->new();
     $csv->combine(@keys);
     push @lines, $csv->string();