From b5ac4a852f9b536649f9c40d0b7cdb02ce5e9773 Mon Sep 17 00:00:00 2001
From: Colin Campbell <colin.campbell@ptfs-europe.com>
Date: Tue, 27 Mar 2012 16:04:12 +0100
Subject: [PATCH] Bug 7831 : Sort budgets for selection in new order

The select budget dropdown list should be presented in
an ordered fashion. To achieve this sort the budget array
by the visible text.

Signed-off-by: Chris Cormack <chrisc@catalyst.net.nz>
Signed-off-by: Paul Poulain <paul.poulain@biblibre.com>
---
 acqui/neworderempty.pl | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/acqui/neworderempty.pl b/acqui/neworderempty.pl
index d48255443b..7dc7cb5924 100755
--- a/acqui/neworderempty.pl
+++ b/acqui/neworderempty.pl
@@ -264,6 +264,8 @@ foreach my $r (@{$budgets}) {
     };
 }
 
+@{$budget_loop} =
+  sort { uc( $a->{b_txt}) cmp uc( $b->{b_txt}) } @{$budget_loop};
 
 if ($close) {
     $budget_id      =  $data->{'budget_id'};
-- 
2.39.5