|
Lines 219-238
foreach my $suggestion(@$suggestions_loop) {
Link Here
|
| 219 |
|
219 |
|
| 220 |
my $patron_reason_loop = GetAuthorisedValues("OPAC_SUG"); |
220 |
my $patron_reason_loop = GetAuthorisedValues("OPAC_SUG"); |
| 221 |
|
221 |
|
| 222 |
# Is the person allowed to choose their branch |
|
|
| 223 |
if ( C4::Context->preference("AllowPurchaseSuggestionBranchChoice") ) { |
| 224 |
my $branchcode = $input->param('branchcode') || q{}; |
| 225 |
|
| 226 |
if ( !$branchcode |
| 227 |
&& C4::Context->userenv |
| 228 |
&& C4::Context->userenv->{branch} ) |
| 229 |
{ |
| 230 |
$branchcode = C4::Context->userenv->{branch}; |
| 231 |
} |
| 232 |
|
| 233 |
$template->param( branchcode => $branchcode ); |
| 234 |
} |
| 235 |
|
| 236 |
my @mandatoryfields; |
222 |
my @mandatoryfields; |
| 237 |
{ |
223 |
{ |
| 238 |
last unless ($op eq 'add'); |
224 |
last unless ($op eq 'add'); |