From 32bb680a4963ae062d628d22a5b8b7a0bcd49935 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.
---
 acqui/neworderempty.pl |    2 ++
 1 files changed, 2 insertions(+), 0 deletions(-)

diff --git a/acqui/neworderempty.pl b/acqui/neworderempty.pl
index d482554..7dc7cb5 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'};
-- 
1.7.7.6