From a7dcdbbf035c9588ac7f9824c01568112253f8f1 Mon Sep 17 00:00:00 2001
From: Ivan Kohler <ivan@freeside.biz>
Date: Sun, 22 Feb 2015 18:53:14 -0800
Subject: [PATCH 1/1] fix credit limit report on 3.x, RT#27267

---
 FS/FS/cust_main_credit_limit.pm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/FS/FS/cust_main_credit_limit.pm b/FS/FS/cust_main_credit_limit.pm
index 5a5181d5a..22d005d9b 100644
--- a/FS/FS/cust_main_credit_limit.pm
+++ b/FS/FS/cust_main_credit_limit.pm
@@ -2,7 +2,7 @@ package FS::cust_main_credit_limit;
 use base qw( FS::Record );
 
 use strict;
-#use FS::Record qw( qsearch qsearchs );
+use FS::Record qw( qsearch qsearchs );
 use FS::cust_main;
 
 =head1 NAME
@@ -107,6 +107,11 @@ sub check {
   $self->SUPER::check;
 }
 
+sub cust_main {
+  my $self = shift;
+  qsearchs('cust_main', { 'custnum' => $self->custnum } );
+}
+
 =back
 
 =head1 BUGS
-- 
2.11.0