fix for #1788 : Locations do not sort alphabetically by name in list on "Set" location

[koha_gimpoz] / circ / selectbranchprinter.pl

diff --git a/circ/selectbranchprinter.pl b/circ/selectbranchprinter.pl
index 8b83b88..17a89ef 100755 (executable)
--- a/circ/selectbranchprinter.pl
+++ b/circ/selectbranchprinter.pl
@@ -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++;