From 2f7205c859dd4d36aaa86c11e98ec1b48f4cc34b Mon Sep 17 00:00:00 2001
From: jeff <jeff>
Date: Mon, 12 Feb 2007 17:56:52 +0000
Subject: alpha sort packages in new package order SELECT (ticket 1446)

---
 FS/FS/ClientAPI/Signup.pm | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'FS')

diff --git a/FS/FS/ClientAPI/Signup.pm b/FS/FS/ClientAPI/Signup.pm
index 5a8f8e168..ac211ec27 100644
--- a/FS/FS/ClientAPI/Signup.pm
+++ b/FS/FS/ClientAPI/Signup.pm
@@ -201,6 +201,10 @@ sub signup_info {
   # delete $signup_info->{'part_pkg'};
   #}
 
+  $signup_info->{'part_pkg'} = [ sort { $a->{pkg} cmp $b->{pkg} }  # case?
+                                      @{ $signup_info->{'part_pkg'} }
+                               ];
+
   if ( exists $packet->{'session_id'} ) {
     my $agent_signup_info = { %$signup_info };
     delete $agent_signup_info->{agentnum2part_pkg};
-- 
cgit v1.2.1