|
Lines 105-111
if ( $op eq 'show' ) {
Link Here
|
| 105 |
my @patron_attributes_values; |
105 |
my @patron_attributes_values; |
| 106 |
my @patron_attributes_codes; |
106 |
my @patron_attributes_codes; |
| 107 |
my $patron_attribute_types = C4::Members::AttributeTypes::GetAttributeTypes_hashref('all'); |
107 |
my $patron_attribute_types = C4::Members::AttributeTypes::GetAttributeTypes_hashref('all'); |
| 108 |
my $patron_categories = C4::Members::GetBorrowercategoryList; |
108 |
my @patron_categories = Koha::Patron::Categories->search_limited({}, {order_by => ['description']}); |
| 109 |
for ( values %$patron_attribute_types ) { |
109 |
for ( values %$patron_attribute_types ) { |
| 110 |
my $attr_type = C4::Members::AttributeTypes->fetch( $_->{code} ); |
110 |
my $attr_type = C4::Members::AttributeTypes->fetch( $_->{code} ); |
| 111 |
# TODO Repeatable attributes are not correctly managed and can cause data lost. |
111 |
# TODO Repeatable attributes are not correctly managed and can cause data lost. |
|
Lines 123-130
if ( $op eq 'show' ) {
Link Here
|
| 123 |
|
123 |
|
| 124 |
my $category_code = $_->{category_code}; |
124 |
my $category_code = $_->{category_code}; |
| 125 |
my ( $category_lib ) = map { |
125 |
my ( $category_lib ) = map { |
| 126 |
( defined $category_code and $_->{categorycode} eq $category_code ) ? $_->{description} : () |
126 |
( defined $category_code and $_->categorycode eq $category_code ) ? $_->description : () |
| 127 |
} @$patron_categories; |
127 |
} @patron_categories; |
| 128 |
push @patron_attributes_codes, |
128 |
push @patron_attributes_codes, |
| 129 |
{ |
129 |
{ |
| 130 |
attribute_code => $_->{code}, |
130 |
attribute_code => $_->{code}, |
|
Lines 149-157
if ( $op eq 'show' ) {
Link Here
|
| 149 |
my @branches_option; |
149 |
my @branches_option; |
| 150 |
push @branches_option, { value => $_->{value}, lib => $_->{branchname} } for @$branches; |
150 |
push @branches_option, { value => $_->{value}, lib => $_->{branchname} } for @$branches; |
| 151 |
unshift @branches_option, { value => "", lib => "" }; |
151 |
unshift @branches_option, { value => "", lib => "" }; |
| 152 |
my $categories = GetBorrowercategoryList; |
|
|
| 153 |
my @categories_option; |
152 |
my @categories_option; |
| 154 |
push @categories_option, { value => $_->{categorycode}, lib => $_->{description} } for @$categories; |
153 |
push @categories_option, { value => $_->categorycode, lib => $_->description } for @patron_categories; |
| 155 |
unshift @categories_option, { value => "", lib => "" }; |
154 |
unshift @categories_option, { value => "", lib => "" }; |
| 156 |
my $bsort1 = GetAuthorisedValues("Bsort1"); |
155 |
my $bsort1 = GetAuthorisedValues("Bsort1"); |
| 157 |
my @sort1_option; |
156 |
my @sort1_option; |
| 158 |
- |
|
|