Bug 8836 [QA Followup] - Sort transfer branches alphabetically

Signed-off-by: Owen Leonard <oleonard@myacpl.org>
Libraries sort correctly now.

Signed-off-by: Katrin Fischer <katrin.fischer.83@web.de>

diff --git a/rotating_collections/transferCollection.pl b/rotating_collections/transferCollection.pl
index 855c45a..2a04857 100755 (executable)
--- 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);