Fixes alphabetization of library dropdown in New Order, and the shelf location,
item type, and collection code in the Receive Items pages. This patch takes
care of Joann's original purpose of creating the bug enhancement.
---
acqui/neworderempty.pl | 4 ++--
acqui/orderreceive.pl | 6 +++---
2 files changed, 5 insertions(+), 5 deletions(-)
diff --git a/acqui/neworderempty.pl b/acqui/neworderempty.pl
index df23586..ac4a934 100755
--- a/acqui/neworderempty.pl
+++ b/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'},
diff --git a/acqui/orderreceive.pl b/acqui/orderreceive.pl
index c13eda3..caabc93 100755
--- a/acqui/orderreceive.pl
+++ b/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},
--
1.5.6.5
_______________________________________________
Koha-patches mailing list
[email protected]
http://lists.koha.org/mailman/listinfo/koha-patches
