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

(-)a/circ/overdue.pl (-2 / +3 lines)
Lines 247-252 if ($noreport) { Link Here
247
        borrowers.phone,
247
        borrowers.phone,
248
        borrowers.email,
248
        borrowers.email,
249
        issues.itemnumber,
249
        issues.itemnumber,
250
        issues.issuedate,
250
        items.barcode,
251
        items.barcode,
251
        biblio.title,
252
        biblio.title,
252
        biblio.author,
253
        biblio.author,
Lines 312-317 if ($noreport) { Link Here
312
            borrowernumber         => $data->{borrowernumber},
313
            borrowernumber         => $data->{borrowernumber},
313
            barcode                => $data->{barcode},
314
            barcode                => $data->{barcode},
314
            itemnum                => $data->{itemnumber},
315
            itemnum                => $data->{itemnumber},
316
            issuedate              => format_date($data->{issuedate}),
315
            borrowertitle          => $data->{borrowertitle},
317
            borrowertitle          => $data->{borrowertitle},
316
            name                   => $data->{borrower},
318
            name                   => $data->{borrower},
317
            streetnumber           => $data->{streetnumber},                   
319
            streetnumber           => $data->{streetnumber},                   
Lines 399-405 sub build_csv { Link Here
399
401
400
    # build header ...
402
    # build header ...
401
    my @keys = qw /duedate title author borrowertitle name phone barcode email address address2 zipcode city country
403
    my @keys = qw /duedate title author borrowertitle name phone barcode email address address2 zipcode city country
402
                branchcode itemcallnumber biblionumber borrowernumber itemnum replacementprice streetnumber streettype/;
404
                branchcode itemcallnumber biblionumber borrowernumber itemnum issuedate replacementprice streetnumber streettype/;
403
    my $csv = Text::CSV_XS->new();
405
    my $csv = Text::CSV_XS->new();
404
    $csv->combine(@keys);
406
    $csv->combine(@keys);
405
    push @lines, $csv->string();
407
    push @lines, $csv->string();
406
- 

Return to bug 4051