Lines 957-968
sub patron_attributes_form {
Link Here
|
957 |
push @{$items_by_class{$attr_type->class()}}, $newentry; |
957 |
push @{$items_by_class{$attr_type->class()}}, $newentry; |
958 |
} |
958 |
} |
959 |
} |
959 |
} |
960 |
while ( my ($class, @items) = each %items_by_class ) { |
960 |
for my $class ( sort keys %items_by_class ) { |
961 |
my $av = Koha::AuthorisedValues->search({ category => 'PA_CLASS', authorised_value => $class }); |
961 |
my $av = Koha::AuthorisedValues->search({ category => 'PA_CLASS', authorised_value => $class }); |
962 |
my $lib = $av->count ? $av->next->lib : $class; |
962 |
my $lib = $av->count ? $av->next->lib : $class; |
963 |
push @attribute_loop, { |
963 |
push @attribute_loop, { |
964 |
class => $class, |
964 |
class => $class, |
965 |
items => @items, |
965 |
items => @{$items_by_class{$class}}, |
966 |
lib => $lib, |
966 |
lib => $lib, |
967 |
} |
967 |
} |
968 |
} |
968 |
} |
969 |
- |
|
|