View | Details | Raw Unified | Return to bug 6285
Collapse All | Expand All

(-)a/circ/overdue.pl (-2 / +2 lines)
Lines 404-410 sub build_csv { Link Here
404
    my @lines = ();
404
    my @lines = ();
405
405
406
    # build header ...
406
    # build header ...
407
    my @keys = grep { $_ ne 'patron_attr_value_loop' } sort keys %{ $overdues->[0] };
407
    my @keys = qw /duedate title author borrowertitle name phone barcode email address address2 zipcode city country
408
                branchcode itemcallnumber biblionumber borrowernumber itemnum replacementprice streetnumber streettype/;
408
    my $csv = Text::CSV_XS->new();
409
    my $csv = Text::CSV_XS->new();
409
    $csv->combine(@keys);
410
    $csv->combine(@keys);
410
    push @lines, $csv->string();
411
    push @lines, $csv->string();
411
- 

Return to bug 6285