Lines 808-814
sub patron_attributes_form {
Link Here
|
808 |
}; |
808 |
}; |
809 |
if (exists $attr_hash{$attr_type->code()}) { |
809 |
if (exists $attr_hash{$attr_type->code()}) { |
810 |
foreach my $attr (@{ $attr_hash{$attr_type->code()} }) { |
810 |
foreach my $attr (@{ $attr_hash{$attr_type->code()} }) { |
811 |
my $newentry = { map { $_ => $entry->{$_} } %$entry }; |
811 |
my $newentry = { %$entry }; |
812 |
$newentry->{value} = $attr->{value}; |
812 |
$newentry->{value} = $attr->{value}; |
813 |
$newentry->{password} = $attr->{password}; |
813 |
$newentry->{password} = $attr->{password}; |
814 |
$newentry->{use_dropdown} = 0; |
814 |
$newentry->{use_dropdown} = 0; |
815 |
- |
|
|