From 326d83d5453605294d087d4941929d63e1339bf3 Mon Sep 17 00:00:00 2001 From: Paul Poulain Date: Fri, 29 Apr 2011 19:31:40 +0200 Subject: [PATCH] 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 --- circ/overdue.pl | 3 ++- 1 files changed, 2 insertions(+), 1 deletions(-) diff --git a/circ/overdue.pl b/circ/overdue.pl index abeb0c6..25bc336 100755 --- a/circ/overdue.pl +++ b/circ/overdue.pl @@ -404,7 +404,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.1