Lines 242-247
if ($noreport) {
Link Here
|
242 |
borrowers.branchcode, |
242 |
borrowers.branchcode, |
243 |
issues.itemnumber, |
243 |
issues.itemnumber, |
244 |
issues.issuedate, |
244 |
issues.issuedate, |
|
|
245 |
items.datelastborrowed, |
245 |
items.barcode, |
246 |
items.barcode, |
246 |
items.homebranch, |
247 |
items.homebranch, |
247 |
items.holdingbranch, |
248 |
items.holdingbranch, |
Lines 337-342
if ($noreport) {
Link Here
|
337 |
email => $data->{email}, |
338 |
email => $data->{email}, |
338 |
branchcode => $data->{branchcode}, |
339 |
branchcode => $data->{branchcode}, |
339 |
barcode => $data->{barcode}, |
340 |
barcode => $data->{barcode}, |
|
|
341 |
datelastborrowed => $data->{datelastborrowed}, |
340 |
itemnum => $data->{itemnumber}, |
342 |
itemnum => $data->{itemnumber}, |
341 |
issuedate => $data->{issuedate}, |
343 |
issuedate => $data->{issuedate}, |
342 |
biblionumber => $data->{biblionumber}, |
344 |
biblionumber => $data->{biblionumber}, |
Lines 401-407
sub build_csv {
Link Here
|
401 |
# build header ... |
403 |
# build header ... |
402 |
my @keys = |
404 |
my @keys = |
403 |
qw ( duedate title author borrowertitle firstname surname phone barcode email address address2 zipcode city country |
405 |
qw ( duedate title author borrowertitle firstname surname phone barcode email address address2 zipcode city country |
404 |
branchcode itemcallnumber biblionumber borrowernumber itemnum issuedate replacementprice itemnotes_nonpublic streetnumber streettype); |
406 |
branchcode datelastissued itemcallnumber biblionumber borrowernumber itemnum issuedate replacementprice itemnotes_nonpublic streetnumber streettype); |
405 |
my $csv = Text::CSV_XS->new(); |
407 |
my $csv = Text::CSV_XS->new(); |
406 |
$csv->combine(@keys); |
408 |
$csv->combine(@keys); |
407 |
push @lines, $csv->string(); |
409 |
push @lines, $csv->string(); |