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

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

Return to bug 6285