Lines 96-102
sub new_from_statistic {
Link Here
|
96 |
|
96 |
|
97 |
my $self = $class->SUPER::new($values); |
97 |
my $self = $class->SUPER::new($values); |
98 |
|
98 |
|
99 |
if ($patron) { |
99 |
if ( $patron && Koha::Patron::Attribute::Types->search( { keep_for_pseudonymization => 1 } )->count > 0 ) { |
100 |
my $extended_attributes = $patron->extended_attributes->unblessed; |
100 |
my $extended_attributes = $patron->extended_attributes->unblessed; |
101 |
for my $attribute (@$extended_attributes) { |
101 |
for my $attribute (@$extended_attributes) { |
102 |
next unless Koha::Patron::Attribute::Types->find( $attribute->{code} )->keep_for_pseudonymization; |
102 |
next unless Koha::Patron::Attribute::Types->find( $attribute->{code} )->keep_for_pseudonymization; |
103 |
- |
|
|