|
Lines 46-52
use C4::Auth;
Link Here
|
| 46 |
use C4::Context; |
46 |
use C4::Context; |
| 47 |
use C4::Output; |
47 |
use C4::Output; |
| 48 |
use C4::Letters; |
48 |
use C4::Letters; |
| 49 |
use C4::Members::Attributes; |
49 |
|
|
|
50 |
use Koha::Patron::Attribute::Types; |
| 50 |
|
51 |
|
| 51 |
# $protected_letters = protected_letters() |
52 |
# $protected_letters = protected_letters() |
| 52 |
# - return a hashref of letter_codes representing letters that should never be deleted |
53 |
# - return a hashref of letter_codes representing letters that should never be deleted |
|
Lines 462-473
sub get_columns_for {
Link Here
|
| 462 |
} |
463 |
} |
| 463 |
} |
464 |
} |
| 464 |
if ($table eq 'borrowers') { |
465 |
if ($table eq 'borrowers') { |
| 465 |
if ( my $attributes = C4::Members::Attributes::GetAttributes() ) { |
466 |
my $attribute_types = Koha::Patron::Attribute::Types->search; |
| 466 |
foreach (@$attributes) { |
467 |
while ( my $at = $attribute_types->next ) { |
| 467 |
push @fields, { |
468 |
push @fields, { |
| 468 |
value => "borrower-attribute:$_", |
469 |
value => "borrower-attribute:" . $at->code, |
| 469 |
text => "attribute:$_", |
470 |
text => "attribute:" . $at->code, |
| 470 |
} |
|
|
| 471 |
} |
471 |
} |
| 472 |
} |
472 |
} |
| 473 |
} |
473 |
} |
| 474 |
- |
|
|