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