RT# 83090 - updated customer search to allow multiple orderbys

diff --git a/FS/FS/cust_main/Search.pm b/FS/FS/cust_main/Search.pm
index c2620bd..091be99 100644 (file)
--- a/FS/FS/cust_main/Search.pm
+++ b/FS/FS/cust_main/Search.pm
@@ -619,7 +619,7 @@ sub search {
   my $dbh = dbh;
 
   my @where = ();
   my $dbh = dbh;
 
   my @where = ();

-  my $orderby;
+  my $orderby = "ORDER BY cust_main.custnum";

 
   # initialize these to prevent warnings
   $params = {
 
   # initialize these to prevent warnings
   $params = {


@@ -909,7 +909,7 @@ sub search {
       }
     }
 
       }
     }
 

-    $orderby ||= "ORDER BY cust_main.$field";
+    $orderby .= ", cust_main.$field";

 
   }
 
 
   }
 


@@ -1120,7 +1120,7 @@ sub search {
   # setup queries, subs, etc. for the search
   ##
 
   # setup queries, subs, etc. for the search
   ##
 

-  $orderby ||= 'ORDER BY custnum';
+  $orderby ||= 'ORDER BY cust_main.custnum';

 
   # here is the agent virtualization
   push @where,
 
   # here is the agent virtualization
   push @where,