Lines 180-189
if ( $op eq 'cud-show' || $op eq 'show' ) {
Link Here
|
180 |
my @categories_option; |
180 |
my @categories_option; |
181 |
push @categories_option, { value => $_->categorycode, lib => $_->description } for @patron_categories; |
181 |
push @categories_option, { value => $_->categorycode, lib => $_->description } for @patron_categories; |
182 |
unshift @categories_option, { value => "", lib => "" }; |
182 |
unshift @categories_option, { value => "", lib => "" }; |
183 |
my @protected_option; |
|
|
184 |
push @protected_option, { value => 1, lib => "Yes" }; |
185 |
push @protected_option, { value => 0, lib => "No" }; |
186 |
unshift @protected_option, { value => "", lib => "" }; |
187 |
my $bsort1 = GetAuthorisedValues("Bsort1"); |
183 |
my $bsort1 = GetAuthorisedValues("Bsort1"); |
188 |
my @sort1_option; |
184 |
my @sort1_option; |
189 |
push @sort1_option, { value => $_->{authorised_value}, lib => $_->{lib} } for @$bsort1; |
185 |
push @sort1_option, { value => $_->{authorised_value}, lib => $_->{lib} } for @$bsort1; |
Lines 343-349
if ( $op eq 'cud-show' || $op eq 'show' ) {
Link Here
|
343 |
|
339 |
|
344 |
if ($logged_in_user->is_superlibrarian) { |
340 |
if ($logged_in_user->is_superlibrarian) { |
345 |
push @fields, { name => "password_expiration_date", type => "date" } ; |
341 |
push @fields, { name => "password_expiration_date", type => "date" } ; |
346 |
push @fields, { name => "protected", type => "select", option => \@protected_option }; |
342 |
push @fields, { name => "protected", type => "bool" }; |
347 |
} |
343 |
} |
348 |
|
344 |
|
349 |
$template->param('patron_attributes_codes', \@patron_attributes_codes); |
345 |
$template->param('patron_attributes_codes', \@patron_attributes_codes); |
350 |
- |
|
|