|
Lines 680-692
foreach my $category_type (qw(C A S P I X)) {
Link Here
|
| 680 |
|
680 |
|
| 681 |
my @categoryloop; |
681 |
my @categoryloop; |
| 682 |
while ( my $patron_category = $patron_categories->next ) { |
682 |
while ( my $patron_category = $patron_categories->next ) { |
|
|
683 |
$categorycode = $patron_category->categorycode unless defined($categorycode); #If none passed in, select the first |
| 683 |
push @categoryloop, |
684 |
push @categoryloop, |
| 684 |
{ 'categorycode' => $patron_category->categorycode, |
685 |
{ 'categorycode' => $patron_category->categorycode, |
| 685 |
'categoryname' => $patron_category->description, |
686 |
'categoryname' => $patron_category->description, |
| 686 |
'effective_min_password_length' => $patron_category->effective_min_password_length, |
687 |
'effective_min_password_length' => $patron_category->effective_min_password_length, |
| 687 |
'effective_require_strong_password' => $patron_category->effective_require_strong_password, |
688 |
'effective_require_strong_password' => $patron_category->effective_require_strong_password, |
| 688 |
'categorycodeselected' => |
689 |
'categorycodeselected' => |
| 689 |
( defined($categorycode) && $patron_category->categorycode eq $categorycode ), |
690 |
( $patron_category->categorycode eq $categorycode ), |
| 690 |
}; |
691 |
}; |
| 691 |
} |
692 |
} |
| 692 |
my %typehash; |
693 |
my %typehash; |
| 693 |
- |
|
|