From ce96930d864954fb9967f9ce268a4dcbab95c69c 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>
Signed-off-by: Jared Camins-Esakov <jcamins@cpbibliography.com>
---
 acqui/neworderempty.pl | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/acqui/neworderempty.pl b/acqui/neworderempty.pl
index a8526a88b4..e3d57b2dc1 100755
--- a/acqui/neworderempty.pl
+++ b/acqui/neworderempty.pl
@@ -276,6 +276,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