From: Ivan Kohler <ivan@freeside.biz>
Date: Tue, 24 Jun 2014 07:32:59 +0000 (-0700)
Subject: fix credit limits, RT#27267
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=b3f4989d724bc64c0e753fa4fa83fe2196d9476f

fix credit limits, RT#27267
---

diff --git a/FS/FS/cust_main/Credit_Limit.pm b/FS/FS/cust_main/Credit_Limit.pm
index a6beb22d5..8a2caa46b 100644
--- a/FS/FS/cust_main/Credit_Limit.pm
+++ b/FS/FS/cust_main/Credit_Limit.pm
@@ -44,8 +44,9 @@ sub check_credit_limit {
   my $sum = qsearchs( {
     'select'    => 'SUM(rated_price) AS rated_price',
     'table'     => 'cdr',
-    'hashref'   => { 'freesidestatus' => 'rated', },
-    'extra_sql' => ' AND svcnum IN ('. join(',',@svcnum). ') ',
+    #'hashref'   => { 'freesidestatus' => 'rated', },
+    'extra_sql' => " WHERE freesidestatus = 'rated' ".
+                   ' AND svcnum IN ('. join(',',@svcnum). ') ',
   } );
 
   return '' unless $sum->rated_price > $credit_limit;