|
Lines 198-209
my $patron_reason_loop = GetAuthorisedValues("OPAC_SUG");
Link Here
|
| 198 |
if ( C4::Context->preference("AllowPurchaseSuggestionBranchChoice") ) { |
198 |
if ( C4::Context->preference("AllowPurchaseSuggestionBranchChoice") ) { |
| 199 |
my $branchcode = $input->param('branchcode') || q{}; |
199 |
my $branchcode = $input->param('branchcode') || q{}; |
| 200 |
|
200 |
|
| 201 |
if ( !$branchcode && $borrowernumber ) { |
201 |
if ( !$branchcode |
| 202 |
my $patron = Koha::Patrons->find($borrowernumber); |
|
|
| 203 |
$branchcode = $patron->branchcode; |
| 204 |
} |
| 205 |
|
| 206 |
if ( !$branchcode |
| 207 |
&& C4::Context->userenv |
202 |
&& C4::Context->userenv |
| 208 |
&& C4::Context->userenv->{branch} ) |
203 |
&& C4::Context->userenv->{branch} ) |
| 209 |
{ |
204 |
{ |
| 210 |
- |
|
|