Lines 94-100
if ( $op eq "add_confirm" ) {
Link Here
|
94 |
$suggestion->{$suggest} = $scrubber->scrub($suggestion->{$suggest}); |
94 |
$suggestion->{$suggest} = $scrubber->scrub($suggestion->{$suggest}); |
95 |
} |
95 |
} |
96 |
$suggestion->{suggesteddate} = dt_from_string; |
96 |
$suggestion->{suggesteddate} = dt_from_string; |
97 |
$$suggestion{'branchcode'}= $input->param('branch') || C4::Context->userenv->{"branch"}; |
97 |
$suggestion->{branchcode} = $input->param('branchcode') || C4::Context->userenv->{"branch"}; |
98 |
|
98 |
|
99 |
&NewSuggestion($suggestion); |
99 |
&NewSuggestion($suggestion); |
100 |
# empty fields, to avoid filter in "SearchSuggestion" |
100 |
# empty fields, to avoid filter in "SearchSuggestion" |
Lines 149-158
if ( C4::Context->preference("AllowPurchaseSuggestionBranchChoice") ) {
Link Here
|
149 |
if (C4::Context->userenv && C4::Context->userenv->{'branch'}) { |
149 |
if (C4::Context->userenv && C4::Context->userenv->{'branch'}) { |
150 |
$userbranch = C4::Context->userenv->{'branch'}; |
150 |
$userbranch = C4::Context->userenv->{'branch'}; |
151 |
} |
151 |
} |
152 |
my $branch = $input->param('branch') || $borr->{'branchcode'} || $userbranch || '' ; |
152 |
my $branchcode = $input->param('branchcode') || $borr->{'branchcode'} || $userbranch || '' ; |
153 |
|
153 |
|
154 |
# make branch selection options... |
154 |
# make branch selection options... |
155 |
my $branchloop = GetBranchesLoop($branch); |
155 |
my $branchloop = GetBranchesLoop($branchcode); |
156 |
$template->param( branchloop => $branchloop ); |
156 |
$template->param( branchloop => $branchloop ); |
157 |
} |
157 |
} |
158 |
|
158 |
|
159 |
- |
|
|