Lines 671-677
sub GeneratePatronAttributesForm {
Link Here
|
671 |
# or taken from the patron itself |
671 |
# or taken from the patron itself |
672 |
if ( defined $entered_attributes ) { |
672 |
if ( defined $entered_attributes ) { |
673 |
foreach my $attr (@$entered_attributes) { |
673 |
foreach my $attr (@$entered_attributes) { |
674 |
push @{ $attr_values{ $attr->{code} } }, $attr->{value}; |
674 |
push @{ $attr_values{ $attr->{code} } }, $attr->{attribute}; |
675 |
} |
675 |
} |
676 |
} |
676 |
} |
677 |
elsif ( defined $borrowernumber ) { |
677 |
elsif ( defined $borrowernumber ) { |
678 |
- |
|
|