View | Details | Raw Unified | Return to bug 4103
Collapse All | Expand All

(-)a/catalogue/search.pl (-10 / +13 lines)
Lines 207-222 if (C4::Context->preference("marcflavour") eq "UNIMARC" ) { Link Here
207
207
208
# load the branches
208
# load the branches
209
my $branches = GetBranches();
209
my $branches = GetBranches();
210
my @branch_loop;
211
210
212
# we need to know the borrower branch code to set a default branch
211
# Populate branch_loop with all branches sorted by their name.  If
213
my $borrowerbranchcode = C4::Context->userenv->{'branch'};
212
# independantbranches is activated, set the default branch to the borrower
214
213
# branch, except for superlibrarian who need to search all libraries.
215
for my $branch_hash (sort { $branches->{$a}->{branchname} cmp $branches->{$b}->{branchname} } keys %$branches) {
214
my $user = C4::Context->userenv;
216
    # if independantbranches is activated, set the default branch to the borrower branch
215
my @branch_loop = map {
217
    my $selected = (C4::Context->preference("independantbranches") and ($borrowerbranchcode eq $branch_hash)) ? 1 : undef;
216
     {
218
    push @branch_loop, {value => "$branch_hash" , branchname => $branches->{$branch_hash}->{'branchname'}, selected => $selected};
217
        value      => $_,
219
}
218
        branchname => $branches->{$_}->{branchname},
219
        selected   => $user->{branch} eq $_ && C4::Branch::onlymine(),
220
     }
221
} sort {
222
    $branches->{$a}->{branchname} cmp $branches->{$b}->{branchname}
223
} keys %$branches;
220
224
221
my $categories = GetBranchCategories(undef,'searchdomain');
225
my $categories = GetBranchCategories(undef,'searchdomain');
222
226
223
- 

Return to bug 4103