|
Lines 217-223
if ($noreport) {
Link Here
|
| 217 |
borrowers.surname, |
217 |
borrowers.surname, |
| 218 |
borrowers.firstname, |
218 |
borrowers.firstname, |
| 219 |
borrowers.streetnumber, |
219 |
borrowers.streetnumber, |
| 220 |
borrowers.streettype, |
220 |
borrowers.streettype, |
| 221 |
borrowers.address, |
221 |
borrowers.address, |
| 222 |
borrowers.address2, |
222 |
borrowers.address2, |
| 223 |
borrowers.city, |
223 |
borrowers.city, |
|
Lines 226-231
if ($noreport) {
Link Here
|
| 226 |
borrowers.phone, |
226 |
borrowers.phone, |
| 227 |
borrowers.email, |
227 |
borrowers.email, |
| 228 |
borrowers.cardnumber, |
228 |
borrowers.cardnumber, |
|
|
229 |
borrowers.borrowernumber, |
| 230 |
borrowers.branchcode, |
| 229 |
issues.itemnumber, |
231 |
issues.itemnumber, |
| 230 |
issues.issuedate, |
232 |
issues.issuedate, |
| 231 |
items.barcode, |
233 |
items.barcode, |
|
Lines 233-241
if ($noreport) {
Link Here
|
| 233 |
items.holdingbranch, |
235 |
items.holdingbranch, |
| 234 |
biblio.title, |
236 |
biblio.title, |
| 235 |
biblio.author, |
237 |
biblio.author, |
| 236 |
borrowers.borrowernumber, |
|
|
| 237 |
biblio.biblionumber, |
238 |
biblio.biblionumber, |
| 238 |
borrowers.branchcode, |
|
|
| 239 |
items.itemcallnumber, |
239 |
items.itemcallnumber, |
| 240 |
items.replacementprice, |
240 |
items.replacementprice, |
| 241 |
items.enumchron |
241 |
items.enumchron |
|
Lines 300-305
if ($noreport) {
Link Here
|
| 300 |
push @overduedata, { |
300 |
push @overduedata, { |
| 301 |
patron => scalar Koha::Patrons->find( $data->{borrowernumber} ), |
301 |
patron => scalar Koha::Patrons->find( $data->{borrowernumber} ), |
| 302 |
duedate => $data->{date_due}, |
302 |
duedate => $data->{date_due}, |
|
|
303 |
borrowernumber => $data->{borrowernumber}, |
| 304 |
cardnumber => $data->{cardnumber}, |
| 305 |
borrowertitle => $data->{borrowertitle}, |
| 306 |
surname => $data->{surname}, |
| 307 |
firstname => $data->{firstname}, |
| 308 |
streetnumber => $data->{streetnumber}, |
| 309 |
streettype => $data->{streettype}, |
| 310 |
address => $data->{address}, |
| 311 |
address2 => $data->{address2}, |
| 312 |
city => $data->{city}, |
| 313 |
zipcode => $data->{zipcode}, |
| 314 |
country => $data->{country}, |
| 315 |
phone => $data->{phone}, |
| 316 |
email => $data->{email}, |
| 317 |
branchcode => $data->{branchcode}, |
| 303 |
barcode => $data->{barcode}, |
318 |
barcode => $data->{barcode}, |
| 304 |
itemnum => $data->{itemnumber}, |
319 |
itemnum => $data->{itemnumber}, |
| 305 |
issuedate => output_pref({ dt => dt_from_string( $data->{issuedate} ), dateonly => 1 }), |
320 |
issuedate => output_pref({ dt => dt_from_string( $data->{issuedate} ), dateonly => 1 }), |
|
Lines 364-370
sub build_csv {
Link Here
|
| 364 |
$csv->combine(@keys); |
379 |
$csv->combine(@keys); |
| 365 |
push @lines, $csv->string(); |
380 |
push @lines, $csv->string(); |
| 366 |
|
381 |
|
| 367 |
my @private_keys = qw( dueborrowertitle firstname surname phone email address address2 zipcode city country streetnumber streettype ); |
382 |
my @private_keys = qw( title firstname surname phone email address address2 zipcode city country streetnumber streettype ); |
| 368 |
# ... and rest of report |
383 |
# ... and rest of report |
| 369 |
foreach my $overdue ( @{ $overdues } ) { |
384 |
foreach my $overdue ( @{ $overdues } ) { |
| 370 |
unless ( $logged_in_user->can_see_patron_infos( $overdue->{patron} ) ) { |
385 |
unless ( $logged_in_user->can_see_patron_infos( $overdue->{patron} ) ) { |
| 371 |
- |
|
|