|
Lines 615-625
sub FilterUnchangedAttributes {
Link Here
|
| 615 |
|
615 |
|
| 616 |
# Loop through the current patron attributes |
616 |
# Loop through the current patron attributes |
| 617 |
foreach my $attribute_type ( keys %{ $patron_attribute_types } ) { |
617 |
foreach my $attribute_type ( keys %{ $patron_attribute_types } ) { |
| 618 |
if ( $patron_attribute_types->{ $attribute_type } != $passed_attribute_types->{ $attribute_type } ) { |
618 |
if ( ( $patron_attribute_types->{$attribute_type} // q{} ) ne ( $passed_attribute_types->{$attribute_type} // q{} ) ) { |
| 619 |
# count differs, overwrite all attributes for given type |
619 |
# count differs, overwrite all attributes for given type |
| 620 |
foreach my $attr (@{ $entered_attributes }) { |
620 |
foreach my $attr ( @{$entered_attributes} ) { |
| 621 |
push @changed_attributes, $attr |
621 |
push @changed_attributes, $attr |
| 622 |
if $attr->{ code } eq $attribute_type; |
622 |
if $attr->{code} eq $attribute_type; |
| 623 |
} |
623 |
} |
| 624 |
} else { |
624 |
} else { |
| 625 |
# count matches, check values |
625 |
# count matches, check values |
| 626 |
- |
|
|