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