|
Lines 247-252
if ($noreport) {
Link Here
|
| 247 |
borrowers.phone, |
247 |
borrowers.phone, |
| 248 |
borrowers.email, |
248 |
borrowers.email, |
| 249 |
issues.itemnumber, |
249 |
issues.itemnumber, |
|
|
250 |
issues.issuedate, |
| 250 |
items.barcode, |
251 |
items.barcode, |
| 251 |
biblio.title, |
252 |
biblio.title, |
| 252 |
biblio.author, |
253 |
biblio.author, |
|
Lines 312-317
if ($noreport) {
Link Here
|
| 312 |
borrowernumber => $data->{borrowernumber}, |
313 |
borrowernumber => $data->{borrowernumber}, |
| 313 |
barcode => $data->{barcode}, |
314 |
barcode => $data->{barcode}, |
| 314 |
itemnum => $data->{itemnumber}, |
315 |
itemnum => $data->{itemnumber}, |
|
|
316 |
issuedate => format_date($data->{issuedate}), |
| 315 |
borrowertitle => $data->{borrowertitle}, |
317 |
borrowertitle => $data->{borrowertitle}, |
| 316 |
name => $data->{borrower}, |
318 |
name => $data->{borrower}, |
| 317 |
streetnumber => $data->{streetnumber}, |
319 |
streetnumber => $data->{streetnumber}, |
|
Lines 399-405
sub build_csv {
Link Here
|
| 399 |
|
401 |
|
| 400 |
# build header ... |
402 |
# build header ... |
| 401 |
my @keys = qw /duedate title author borrowertitle name phone barcode email address address2 zipcode city country |
403 |
my @keys = qw /duedate title author borrowertitle name phone barcode email address address2 zipcode city country |
| 402 |
branchcode itemcallnumber biblionumber borrowernumber itemnum replacementprice streetnumber streettype/; |
404 |
branchcode itemcallnumber biblionumber borrowernumber itemnum issuedate replacementprice streetnumber streettype/; |
| 403 |
my $csv = Text::CSV_XS->new(); |
405 |
my $csv = Text::CSV_XS->new(); |
| 404 |
$csv->combine(@keys); |
406 |
$csv->combine(@keys); |
| 405 |
push @lines, $csv->string(); |
407 |
push @lines, $csv->string(); |
| 406 |
- |
|
|