From 2d4f714eacf9b168dffee013c8fcc0297a915c69 Mon Sep 17 00:00:00 2001 From: Kyle M Hall Date: Fri, 31 Oct 2014 06:50:41 -0400 Subject: [PATCH] Bug 8836 [QA Followup] - Sort transfer branches alphabetically --- rotating_collections/transferCollection.pl | 1 + 1 files changed, 1 insertions(+), 0 deletions(-) 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.2.5