RT# 83075 - fixed sorting by referrals error

diff --git a/FS/FS/cust_main/Search.pm b/FS/FS/cust_main/Search.pm
index 7216fe6..ae219c8 100644 (file)
--- a/FS/FS/cust_main/Search.pm
+++ b/FS/FS/cust_main/Search.pm
@@ -618,7 +618,7 @@ sub search {
   my $dbh = dbh;
 
   my @where = ();
   my $dbh = dbh;
 
   my @where = ();

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

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


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

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

 
   }
 
 
   }
 


@@ -1213,8 +1213,7 @@ sub search {
 
   }
 
 
   }
 

-  # set select a customer only once. some joins create multiple customer records.
-  my $select = 'DISTINCT ON (cust_main.custnum) ' . join(', ', @select);
+  my $select = join(', ', @select);

 
   my $sql_query = {
     'table'             => 'cust_main',
 
   my $sql_query = {
     'table'             => 'cust_main',