fix credit limits, RT#27267

diff --git a/FS/FS/cust_main/Credit_Limit.pm b/FS/FS/cust_main/Credit_Limit.pm
index a6beb22..8a2caa4 100644 (file)
--- 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;