my $changes = 0;
foreach my $attr (grep { $_->code eq $attribute_type } @patron_attributes) {
$changes = 1
unless any { $_->{ value } eq $attr->attribute } @{ $entered_attributes };
unless any { $_->{ attribute } eq $attr->attribute } @{ $entered_attributes };
last if $changes;
}
-