Lines 238-244
if ($noreport) {
Link Here
|
238 |
borrowers.branchcode, |
238 |
borrowers.branchcode, |
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 308-315
if ($noreport) {
Link Here
|
308 |
author => $data->{author}, |
309 |
author => $data->{author}, |
309 |
homebranchcode => $data->{homebranchcode}, |
310 |
homebranchcode => $data->{homebranchcode}, |
310 |
holdingbranchcode => $data->{holdingbranchcode}, |
311 |
holdingbranchcode => $data->{holdingbranchcode}, |
|
|
312 |
branchcode => $data->{branchcode}, |
311 |
itemcallnumber => $data->{itemcallnumber}, |
313 |
itemcallnumber => $data->{itemcallnumber}, |
312 |
replacementprice => $data->{replacementprice}, |
314 |
replacementprice => $data->{replacementprice}, |
|
|
315 |
itemnotes_nonpublic => $data->{itemnotes_nonpublic}, |
313 |
enumchron => $data->{enumchron}, |
316 |
enumchron => $data->{enumchron}, |
314 |
patron_attr_value_loop => \@patron_attr_value_loop, |
317 |
patron_attr_value_loop => \@patron_attr_value_loop, |
315 |
}; |
318 |
}; |
Lines 359-365
sub build_csv {
Link Here
|
359 |
# build header ... |
362 |
# build header ... |
360 |
my @keys = |
363 |
my @keys = |
361 |
qw ( duedate title author borrowertitle firstname surname phone barcode email address address2 zipcode city country |
364 |
qw ( duedate title author borrowertitle firstname surname phone barcode email address address2 zipcode city country |
362 |
branchcode itemcallnumber biblionumber borrowernumber itemnum issuedate replacementprice streetnumber streettype); |
365 |
branchcode itemcallnumber biblionumber borrowernumber itemnum issuedate replacementprice itemnotes_nonpublic streetnumber streettype); |
363 |
my $csv = Text::CSV_XS->new(); |
366 |
my $csv = Text::CSV_XS->new(); |
364 |
$csv->combine(@keys); |
367 |
$csv->combine(@keys); |
365 |
push @lines, $csv->string(); |
368 |
push @lines, $csv->string(); |