Lines 160-165
Link Here
|
160 |
my @types = C4::Members::AttributeTypes::GetAttributeTypes(); |
160 |
my @types = C4::Members::AttributeTypes::GetAttributeTypes(); |
161 |
my @attributes = grep{my $key=$_; any{$_ eq $key}@types;} keys %borrower; |
161 |
my @attributes = grep{my $key=$_; any{$_ eq $key}@types;} keys %borrower; |
162 |
my $extended_patron_attributes = map{{code=>$_,value=>$borrower{$_}}}@attributes; |
162 |
my $extended_patron_attributes = map{{code=>$_,value=>$borrower{$_}}}@attributes; |
|
|
163 |
my $extended_patron_attributes = [] unless $extended_patron_attributes; |
163 |
my @errors; |
164 |
my @errors; |
164 |
#Check before add |
165 |
#Check before add |
165 |
for (my $i; $i< scalar(@$extended_patron_attributes)-1;$i++) { |
166 |
for (my $i; $i< scalar(@$extended_patron_attributes)-1;$i++) { |