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 207-213
if ($op=~/else/) {
Link Here
|
207 |
my $reasonsloop = GetAuthorisedValues("SUGGEST"); |
206 |
my $reasonsloop = GetAuthorisedValues("SUGGEST"); |
208 |
foreach my $criteriumvalue ( @criteria_dv ) { |
207 |
foreach my $criteriumvalue ( @criteria_dv ) { |
209 |
# By default, display suggestions from current working branch |
208 |
# By default, display suggestions from current working branch |
210 |
if(not defined $branchfilter) { |
209 |
unless ( exists $$suggestion_ref{'branchcode'} ) { |
211 |
$$suggestion_ref{'branchcode'} = C4::Context->userenv->{'branch'}; |
210 |
$$suggestion_ref{'branchcode'} = C4::Context->userenv->{'branch'}; |
212 |
} |
211 |
} |
213 |
my $definedvalue = defined $$suggestion_ref{$displayby} && $$suggestion_ref{$displayby} ne ""; |
212 |
my $definedvalue = defined $$suggestion_ref{$displayby} && $$suggestion_ref{$displayby} ne ""; |
Lines 276-281
if(defined($returnsuggested) and $returnsuggested ne "noone")
Link Here
|
276 |
## Initializing selection lists |
275 |
## Initializing selection lists |
277 |
|
276 |
|
278 |
#branch display management |
277 |
#branch display management |
|
|
278 |
my $branchfilter = ($displayby ne "branchcode") ? $input->param('branchcode') : ''; |
279 |
my $onlymine=C4::Context->preference('IndependantBranches') && |
279 |
my $onlymine=C4::Context->preference('IndependantBranches') && |
280 |
C4::Context->userenv && |
280 |
C4::Context->userenv && |
281 |
C4::Context->userenv->{flags}!=1 && |
281 |
C4::Context->userenv->{flags}!=1 && |
282 |
- |
|
|