-my $branches = GetBranches;
-my @branchloop;
-if ( C4::Branch::onlymine ) {
- my $userenv = C4::Context->userenv;
- my $library = Koha::Libraries->find( $userenv->{'branch'} );
- push @branchloop, {
- value => $library->branchcode,
- branchcode => $library->branchcode,
- branchname => $library->branchname,
- selected => 1
- }
-} else {
- foreach (sort { $branches->{$a}->{branchname} cmp $branches->{$b}->{branchname} } keys %{$branches}) {
- my $selected = 0;
- $selected = 1 if $branch and $branch eq $_;
- push @branchloop, {
- value => $_,
- branchcode => $_,
- branchname => $branches->{$_}->{branchname},
- selected => $selected
- };
- }
-}
-
-my @categories;