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

(-)a/circ/overdue.pl (-4 / +26 lines)
Lines 437-447 sub build_csv { Link Here
437
    return "" if scalar(@$overdues) == 0;
437
    return "" if scalar(@$overdues) == 0;
438
438
439
    my @lines = ();
439
    my @lines = ();
440
    my @keys = qw{
441
      duedate
442
      title
443
      author
444
      borrowertitle
445
      firstname
446
      surname
447
      phone
448
      barcode
449
      email
450
      address
451
      address2
452
      zipcode
453
      city
454
      country
455
      branchcode
456
      itemcallnumber
457
      biblionumber
458
      borrowernumber
459
      itemnum
460
      issuedate
461
      replacementprice
462
      streetnumber
463
      streettype
464
    };
465
    my $csv = Text::CSV_XS->new();
440
466
441
    # build header ...
467
    # build header ...
442
    my @keys = qw /duedate title author borrowertitle firstname surname phone barcode email address address2 zipcode city country
443
                branchcode itemcallnumber biblionumber borrowernumber itemnum issuedate replacementprice streetnumber streettype/;
444
    my $csv = Text::CSV_XS->new();
445
    $csv->combine(@keys);
468
    $csv->combine(@keys);
446
    push @lines, $csv->string();
469
    push @lines, $csv->string();
447
470
448
- 

Return to bug 3642