From f6043fbbe49eba279ee0635c43dd5a46a20eeb52 Mon Sep 17 00:00:00 2001 From: Paul Poulain Date: Fri, 29 Apr 2011 19:31:40 +0200 Subject: [PATCH] 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 Signed-off-by: Ian Walls Signed-off-by: Chris Cormack --- circ/overdue.pl | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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(); -- 2.39.5