Lines 739-744
sub ParsePatronAttributes {
Link Here
|
739 |
|
739 |
|
740 |
my $delete_candidates = {}; |
740 |
my $delete_candidates = {}; |
741 |
|
741 |
|
|
|
742 |
my $scrubber = C4::Scrubber->new(); |
742 |
while ( my ( $code, $value ) = $ea->() ) { |
743 |
while ( my ( $code, $value ) = $ea->() ) { |
743 |
if ( any { $_ eq $code } @editable_attribute_types ) { |
744 |
if ( any { $_ eq $code } @editable_attribute_types ) { |
744 |
# It is an editable attribute |
745 |
# It is an editable attribute |
Lines 748-754
sub ParsePatronAttributes {
Link Here
|
748 |
} |
749 |
} |
749 |
else { |
750 |
else { |
750 |
# we've got a value |
751 |
# we've got a value |
751 |
push @attributes, { code => $code, attribute => $value }; |
752 |
push @attributes, { code => $code, attribute => $scrubber->scrub( $value ) }; |
752 |
|
753 |
|
753 |
# 'code' is no longer a delete candidate |
754 |
# 'code' is no longer a delete candidate |
754 |
delete $delete_candidates->{$code} |
755 |
delete $delete_candidates->{$code} |
755 |
- |
|
|