- my $itemtypes = GetItemTypes;
- my @itemtypesloop;
- foreach my $thisitemtype ( sort keys %$itemtypes ) {
- my %row = (
- value => $thisitemtype,
- description => $itemtypes->{$thisitemtype}->{translated_description},
- );
- push @itemtypesloop, \%row;
- }
- my $branches = GetBranches($only_my_branch);
- my @branchloop;
- for my $thisbranch (
- sort { $branches->{$a}->{branchname} cmp $branches->{$b}->{branchname} }
- keys %{$branches}
- )
- {
- push @branchloop,
- {
- value => $thisbranch,
- selected => %branchmap ? $branchmap{$thisbranch} : 1,
- branchname => $branches->{$thisbranch}->{'branchname'},
- };
- }