|
Lines 238-244
if ($noreport) {
Link Here
|
| 238 |
biblio.biblionumber, |
238 |
biblio.biblionumber, |
| 239 |
items.itemcallnumber, |
239 |
items.itemcallnumber, |
| 240 |
items.replacementprice, |
240 |
items.replacementprice, |
| 241 |
items.enumchron |
241 |
items.enumchron, |
|
|
242 |
items.itemnotes_nonpublic |
| 242 |
FROM issues |
243 |
FROM issues |
| 243 |
LEFT JOIN borrowers ON (issues.borrowernumber=borrowers.borrowernumber ) |
244 |
LEFT JOIN borrowers ON (issues.borrowernumber=borrowers.borrowernumber ) |
| 244 |
LEFT JOIN items ON (issues.itemnumber=items.itemnumber) |
245 |
LEFT JOIN items ON (issues.itemnumber=items.itemnumber) |
|
Lines 325-330
if ($noreport) {
Link Here
|
| 325 |
holdingbranchcode => $data->{holdingbranchcode}, |
326 |
holdingbranchcode => $data->{holdingbranchcode}, |
| 326 |
itemcallnumber => $data->{itemcallnumber}, |
327 |
itemcallnumber => $data->{itemcallnumber}, |
| 327 |
replacementprice => $data->{replacementprice}, |
328 |
replacementprice => $data->{replacementprice}, |
|
|
329 |
itemnotes_nonpublic => $data->{itemnotes_nonpublic}, |
| 328 |
enumchron => $data->{enumchron}, |
330 |
enumchron => $data->{enumchron}, |
| 329 |
patron_attr_value_loop => \@patron_attr_value_loop, |
331 |
patron_attr_value_loop => \@patron_attr_value_loop, |
| 330 |
}; |
332 |
}; |
|
Lines 374-380
sub build_csv {
Link Here
|
| 374 |
# build header ... |
376 |
# build header ... |
| 375 |
my @keys = |
377 |
my @keys = |
| 376 |
qw ( duedate title author borrowertitle firstname surname phone barcode email address address2 zipcode city country |
378 |
qw ( duedate title author borrowertitle firstname surname phone barcode email address address2 zipcode city country |
| 377 |
branchcode itemcallnumber biblionumber borrowernumber itemnum issuedate replacementprice streetnumber streettype); |
379 |
branchcode itemcallnumber biblionumber borrowernumber itemnum issuedate replacementprice itemnotes_nonpublic streetnumber streettype); |
| 378 |
my $csv = Text::CSV_XS->new(); |
380 |
my $csv = Text::CSV_XS->new(); |
| 379 |
$csv->combine(@keys); |
381 |
$csv->combine(@keys); |
| 380 |
push @lines, $csv->string(); |
382 |
push @lines, $csv->string(); |