|
Lines 75-111
if ( $searchfieldstype eq "dateofbirth" ) {
Link Here
|
| 75 |
$searchmember = output_pref({dt => dt_from_string($searchmember), dateformat => 'iso', dateonly => 1}); |
75 |
$searchmember = output_pref({dt => dt_from_string($searchmember), dateformat => 'iso', dateonly => 1}); |
| 76 |
} |
76 |
} |
| 77 |
|
77 |
|
| 78 |
my $branches = C4::Branch::GetBranches; |
|
|
| 79 |
my @branches_loop; |
| 80 |
if ( C4::Branch::onlymine ) { |
| 81 |
my $userenv = C4::Context->userenv; |
| 82 |
my $branch = C4::Branch::GetBranchDetail( $userenv->{'branch'} ); |
| 83 |
push @branches_loop, { |
| 84 |
value => $branch->{branchcode}, |
| 85 |
branchcode => $branch->{branchcode}, |
| 86 |
branchname => $branch->{branchname}, |
| 87 |
selected => 1 |
| 88 |
} |
| 89 |
} else { |
| 90 |
foreach ( sort { lc($branches->{$a}->{branchname}) cmp lc($branches->{$b}->{branchname}) } keys %$branches ) { |
| 91 |
my $selected = 0; |
| 92 |
$selected = 1 if($patron->{branchcode} and $patron->{branchcode} eq $_); |
| 93 |
push @branches_loop, { |
| 94 |
value => $_, |
| 95 |
branchcode => $_, |
| 96 |
branchname => $branches->{$_}->{branchname}, |
| 97 |
selected => $selected |
| 98 |
}; |
| 99 |
} |
| 100 |
} |
| 101 |
|
| 102 |
my @categories = C4::Category->all; |
| 103 |
if ( $patron->{categorycode} ) { |
| 104 |
foreach my $category ( grep { $_->{categorycode} eq $patron->{categorycode} } @categories ) { |
| 105 |
$category->{selected} = 1; |
| 106 |
} |
| 107 |
} |
| 108 |
|
| 109 |
$template->param( 'alphabet' => C4::Context->preference('alphabet') || join ' ', 'A' .. 'Z' ); |
78 |
$template->param( 'alphabet' => C4::Context->preference('alphabet') || join ' ', 'A' .. 'Z' ); |
| 110 |
|
79 |
|
| 111 |
my $view = $input->request_method() eq "GET" ? "show_form" : "show_results"; |
80 |
my $view = $input->request_method() eq "GET" ? "show_form" : "show_results"; |
|
Lines 113-120
my $view = $input->request_method() eq "GET" ? "show_form" : "show_results";
Link Here
|
| 113 |
$template->param( |
82 |
$template->param( |
| 114 |
patron_lists => [ GetPatronLists() ], |
83 |
patron_lists => [ GetPatronLists() ], |
| 115 |
searchmember => $searchmember, |
84 |
searchmember => $searchmember, |
| 116 |
branchloop => \@branches_loop, |
|
|
| 117 |
categories => \@categories, |
| 118 |
branchcode => $patron->{branchcode}, |
85 |
branchcode => $patron->{branchcode}, |
| 119 |
categorycode => $patron->{categorycode}, |
86 |
categorycode => $patron->{categorycode}, |
| 120 |
searchtype => $input->param('searchtype') || 'start_with', |
87 |
searchtype => $input->param('searchtype') || 'start_with', |
| 121 |
- |
|
|