From: Ivan Kohler <ivan@freeside.biz>
Date: Wed, 28 May 2014 07:09:05 +0000 (-0700)
Subject: fix credit limit query for older DBD::Pg, RT#27267
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=0eee55572b0f8d841f7d1a863d92211d3a6d9e31

fix credit limit query for older DBD::Pg, RT#27267
---

diff --git a/FS/FS/cust_main/Credit_Limit.pm b/FS/FS/cust_main/Credit_Limit.pm
index 238d8852f..4b2fbdfe4 100644
--- a/FS/FS/cust_main/Credit_Limit.pm
+++ b/FS/FS/cust_main/Credit_Limit.pm
@@ -42,13 +42,10 @@ sub check_credit_limit {
 
   #false laziness  w/svc_phone->sum_cdrs / psearch_cdrs
   my $sum = qsearchs( {
-    'select'  => 'SUM(rated_price) AS rated_price',
-    'table'   => 'cdr',
-    'hashref' => { 'status' => 'rated',
-                   'svcnum' => { op    => 'IN',
-                                 value => '('. join(',',@svcnum). ')',
-                               },
-                 },
+    'select'    => 'SUM(rated_price) AS rated_price',
+    'table'     => 'cdr',
+    'hashref'   => { 'status' => 'rated', },
+    'extra_sql' => ' AND svcnum IN ('. join(',',@svcnum). ') ',
   } );
 
   return '' unless $sum->rated_price > $credit_limit;