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 |
- |
|
|