From 47d3ba763306e281c0c4b736877ac8c5d4e9e4a1 Mon Sep 17 00:00:00 2001
From: Ivan Kohler <ivan@freeside.biz>
Date: Tue, 24 Jun 2014 00:33:01 -0700
Subject: [PATCH] fix credit limits, RT#27267

---
 FS/FS/cust_main/Credit_Limit.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

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;
-- 
2.11.0