-
-# get branch information
-my $branch = $input->cookie('branch');
-($branch) || ($branch = 'L');
-my $branches = getbranches();
-# make branch selection options...
-my @branchloop;
-foreach my $br (keys %$branches) {
-# (next) unless $branches->{$br}->{'IS'};
-# # Only branches with the 'IS' branchrelation
-# # can issue books
- my %abranch;
- $abranch{'selected'}=($br eq $branch);
- $abranch{'branch'}=$br;
- $abranch{'branchname'}=$branches->{$br}->{'branchname'};
- push(@branchloop,\%abranch);
-}
-
-