From 2694489dd9d5ca3f58baf0b18f04107904ea295b Mon Sep 17 00:00:00 2001 From: Kyle M Hall Date: Fri, 31 Oct 2014 06:50:41 -0400 Subject: [PATCH] [SIGNED-OFF] Bug 8836 [QA Followup] - Sort transfer branches alphabetically Content-Type: text/plain; charset="utf-8" Signed-off-by: Owen Leonard Libraries sort correctly now. --- rotating_collections/transferCollection.pl | 1 + 1 file changed, 1 insertion(+) diff --git a/rotating_collections/transferCollection.pl b/rotating_collections/transferCollection.pl index 855c45a..2a04857 100755 --- a/rotating_collections/transferCollection.pl +++ b/rotating_collections/transferCollection.pl @@ -69,6 +69,7 @@ foreach my $br ( keys %$branches ) { $branch{name} = $branches->{$br}->{'branchname'}; push( @branchoptionloop, \%branch ); } +@branchoptionloop = sort {$a->{name} cmp $b->{name}} @branchoptionloop; ## Get data about collection my ( $colId, $colTitle, $colDesc, $colBranchcode ) = GetCollection($colId); -- 1.7.9.5