From 4e253db771e0336f09828995abcdc056b6e3be24 Mon Sep 17 00:00:00 2001 From: Paul Poulain Date: Fri, 29 Apr 2011 19:31:40 +0200 Subject: [PATCH] [SIGNED-OFF] MT6196: 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 --- circ/overdue.pl | 3 ++- 1 files changed, 2 insertions(+), 1 deletions(-) diff --git a/circ/overdue.pl b/circ/overdue.pl index 18851a6..59ce220 100755 --- a/circ/overdue.pl +++ b/circ/overdue.pl @@ -392,7 +392,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(); -- 1.7.4.1