RT# 83401 Send country field to B::OP on tokenize

[freeside.git] / FS / FS / cust_main / Credit_Limit.pm

diff --git a/FS/FS/cust_main/Credit_Limit.pm b/FS/FS/cust_main/Credit_Limit.pm
index 238d885..8a2caa4 100644 (file)
--- a/FS/FS/cust_main/Credit_Limit.pm
+++ b/FS/FS/cust_main/Credit_Limit.pm
@@ -42,13 +42,11 @@ 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'   => { 'freesidestatus' => 'rated', },
+    'extra_sql' => " WHERE freesidestatus = 'rated' ".
+                   ' AND svcnum IN ('. join(',',@svcnum). ') ',
   } );
 
   return '' unless $sum->rated_price > $credit_limit;