|
Lines 379-385
sub build_csv {
Link Here
|
| 379 |
$csv->combine(@keys); |
379 |
$csv->combine(@keys); |
| 380 |
push @lines, $csv->string(); |
380 |
push @lines, $csv->string(); |
| 381 |
|
381 |
|
| 382 |
my @private_keys = qw( title firstname surname phone email address address2 zipcode city country streetnumber streettype ); |
382 |
my @private_keys = qw( borrowertitle firstname surname phone email address address2 zipcode city country streetnumber streettype ); |
| 383 |
# ... and rest of report |
383 |
# ... and rest of report |
| 384 |
foreach my $overdue ( @{ $overdues } ) { |
384 |
foreach my $overdue ( @{ $overdues } ) { |
| 385 |
unless ( $logged_in_user->can_see_patron_infos( $overdue->{patron} ) ) { |
385 |
unless ( $logged_in_user->can_see_patron_infos( $overdue->{patron} ) ) { |
| 386 |
- |
|
|