fix for #1788 : Locations do not sort alphabetically by name in list on "Set" location
authorPaul POULAIN <paul.poulain@biblibre.com>
Tue, 20 May 2008 16:21:11 +0000 (18:21 +0200)
committerJoshua Ferraro <jmf@liblime.com>
Tue, 20 May 2008 17:55:07 +0000 (12:55 -0500)
Signed-off-by: Joshua Ferraro <jmf@liblime.com>
circ/selectbranchprinter.pl

index 8b83b88..17a89ef 100755 (executable)
@@ -67,7 +67,7 @@ my $oldprinter = $printer;
 my $branchcount  = 0;
 my $printercount = 0;
 my @branchloop;
-foreach my $br ( keys %$branches ) {
+foreach my $br ( sort keys %$branches ) {
     next unless $br =~ /\S/; # next unless $br is not blank.
 
     $branchcount++;