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