|
Lines 252-259
if ($noreport) {
Link Here
|
| 252 |
biblio.author, |
252 |
biblio.author, |
| 253 |
biblio.biblionumber, |
253 |
biblio.biblionumber, |
| 254 |
items.itemcallnumber, |
254 |
items.itemcallnumber, |
| 255 |
items.replacementprice, |
|
|
| 256 |
items.enumchron, |
255 |
items.enumchron, |
|
|
256 |
items.copynumber, |
| 257 |
items.replacementprice, |
| 257 |
items.itemnotes_nonpublic, |
258 |
items.itemnotes_nonpublic, |
| 258 |
items.itype, |
259 |
items.itype, |
| 259 |
return_claims.created_on AS return_claim_created_on, |
260 |
return_claims.created_on AS return_claim_created_on, |
|
Lines 348-353
if ($noreport) {
Link Here
|
| 348 |
holdingbranchcode => $data->{holdingbranch}, |
349 |
holdingbranchcode => $data->{holdingbranch}, |
| 349 |
location => $data->{location}, |
350 |
location => $data->{location}, |
| 350 |
itemcallnumber => $data->{itemcallnumber}, |
351 |
itemcallnumber => $data->{itemcallnumber}, |
|
|
352 |
enumchron => $data->{enumchron}, |
| 353 |
copynumber => $data->{copynumber}, |
| 351 |
replacementprice => $data->{replacementprice}, |
354 |
replacementprice => $data->{replacementprice}, |
| 352 |
itemnotes_nonpublic => $data->{itemnotes_nonpublic}, |
355 |
itemnotes_nonpublic => $data->{itemnotes_nonpublic}, |
| 353 |
return_claim_created_on => $data->{return_claim_created_on}, |
356 |
return_claim_created_on => $data->{return_claim_created_on}, |
|
Lines 400-406
sub build_csv {
Link Here
|
| 400 |
# build header ... |
403 |
# build header ... |
| 401 |
my @keys = |
404 |
my @keys = |
| 402 |
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 |
| 403 |
branchcode itemcallnumber biblionumber borrowernumber itemnum issuedate replacementprice itemnotes_nonpublic streetnumber streettype); |
406 |
branchcode itemcallnumber enumchron copynumber biblionumber borrowernumber itemnum issuedate replacementprice itemnotes_nonpublic streetnumber streettype); |
| 404 |
my $csv = Text::CSV_XS->new(); |
407 |
my $csv = Text::CSV_XS->new(); |
| 405 |
$csv->combine(@keys); |
408 |
$csv->combine(@keys); |
| 406 |
push @lines, $csv->string(); |
409 |
push @lines, $csv->string(); |