for (my $i; $i< scalar(@$extended_patron_attributes)-1;$i++) {
                        my $attr=$extended_patron_attributes->[$i];
                        unless (C4::Members::Attributes::CheckUniqueness($attr->{code}, $attr->{value}, $borrowernumber)) {
                                unshift @errors, $i;
                                warn "ERROR_extended_unique_id_failed $attr->{code} $attr->{value}";
                        }