|
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(); |