|
Lines 82-88
my $returnsuggestedby = $input->param('returnsuggestedby');
Link Here
|
| 82 |
my $returnsuggested = $input->param('returnsuggested'); |
82 |
my $returnsuggested = $input->param('returnsuggested'); |
| 83 |
my $managedby = $input->param('managedby'); |
83 |
my $managedby = $input->param('managedby'); |
| 84 |
my $displayby = $input->param('displayby') || ''; |
84 |
my $displayby = $input->param('displayby') || ''; |
| 85 |
my $branchfilter = ($displayby ne "branchcode") ? $input->param('branchcode') : ''; |
|
|
| 86 |
my $tabcode = $input->param('tabcode'); |
85 |
my $tabcode = $input->param('tabcode'); |
| 87 |
|
86 |
|
| 88 |
# filter informations which are not suggestion related. |
87 |
# filter informations which are not suggestion related. |
|
Lines 195-201
if ($op=~/else/) {
Link Here
|
| 195 |
my $reasonsloop = GetAuthorisedValues("SUGGEST"); |
194 |
my $reasonsloop = GetAuthorisedValues("SUGGEST"); |
| 196 |
foreach my $criteriumvalue ( map { $$_{'value'} } @$criteria_list ) { |
195 |
foreach my $criteriumvalue ( map { $$_{'value'} } @$criteria_list ) { |
| 197 |
# By default, display suggestions from current working branch |
196 |
# By default, display suggestions from current working branch |
| 198 |
if(not defined $branchfilter) { |
197 |
unless ( exists $$suggestion_ref{'branchcode'} ) { |
| 199 |
$$suggestion_ref{'branchcode'} = C4::Context->userenv->{'branch'}; |
198 |
$$suggestion_ref{'branchcode'} = C4::Context->userenv->{'branch'}; |
| 200 |
} |
199 |
} |
| 201 |
my $definedvalue = defined $$suggestion_ref{$displayby} && $$suggestion_ref{$displayby} ne ""; |
200 |
my $definedvalue = defined $$suggestion_ref{$displayby} && $$suggestion_ref{$displayby} ne ""; |
|
Lines 265-270
if(defined($returnsuggested) and $returnsuggested ne "noone")
Link Here
|
| 265 |
## Initializing selection lists |
264 |
## Initializing selection lists |
| 266 |
|
265 |
|
| 267 |
#branch display management |
266 |
#branch display management |
|
|
267 |
my $branchfilter = ($displayby ne "branchcode") ? $input->param('branchcode') : ''; |
| 268 |
my $onlymine=C4::Context->preference('IndependantBranches') && |
268 |
my $onlymine=C4::Context->preference('IndependantBranches') && |
| 269 |
C4::Context->userenv && |
269 |
C4::Context->userenv && |
| 270 |
C4::Context->userenv->{flags}!=1 && |
270 |
C4::Context->userenv->{flags}!=1 && |
| 271 |
- |
|
|