@@ -, +, @@ --- acqui/neworderempty.pl | 4 ++-- acqui/orderreceive.pl | 6 +++--- 2 files changed, 5 insertions(+), 5 deletions(-) --- a/acqui/neworderempty.pl +++ a/acqui/neworderempty.pl @@ -145,7 +145,7 @@ for ( my $i = 0 ; $i < $count ; $i++ ) { my $itemtypes = GetItemTypes; my @itemtypesloop; -foreach my $thisitemtype (sort keys %$itemtypes) { +foreach my $thisitemtype (sort {$itemtypes->{$a}->{'description'} cmp $itemtypes->{$b}->{'description'}} keys %$itemtypes) { push @itemtypesloop, { itemtype => $itemtypes->{$thisitemtype}->{'itemtype'} , desc => $itemtypes->{$thisitemtype}->{'description'} } ; } @@ -156,7 +156,7 @@ my $onlymine=C4::Context->preference('IndependantBranches') && C4::Context->userenv->{branch}; my $branches = GetBranches($onlymine); my @branchloop; -foreach my $thisbranch ( sort keys %$branches ) { +foreach my $thisbranch ( sort {$branches->{$a}->{'branchname'} cmp $branches->{$b}->{'branchname'}} keys %$branches ) { my %row = ( value => $thisbranch, branchname => $branches->{$thisbranch}->{'branchname'}, --- a/acqui/orderreceive.pl +++ a/acqui/orderreceive.pl @@ -104,7 +104,7 @@ if ( $count == 1 ) { my (@itemtypesloop,@locationloop,@ccodeloop); my $itemtypes = GetItemTypes; - foreach my $thisitemtype (sort keys %$itemtypes) { + foreach my $thisitemtype (sort {$itemtypes->{$a}->{'description'} cmp $itemtypes->{$b}->{'description'}} keys %$itemtypes) { push @itemtypesloop, { value => $thisitemtype, description => $itemtypes->{$thisitemtype}->{'description'}, @@ -112,14 +112,14 @@ if ( $count == 1 ) { }; } my $locs = GetKohaAuthorisedValues( 'items.location' ); - foreach my $thisloc (sort keys %$locs) { + foreach my $thisloc (sort {$locs->{$a} cmp $locs->{$b}} keys %$locs) { push @locationloop, { value => $thisloc, description => $locs->{$thisloc}, }; } my $ccodes = GetKohaAuthorisedValues( 'items.ccode' ); - foreach my $thisccode (sort keys %$ccodes) { + foreach my $thisccode (sort {$ccodes->{$a} cmp $ccodes->{$b}} keys %$ccodes) { push @ccodeloop, { value => $thisccode, description => $ccodes->{$thisccode}, --