From: Ivan Kohler <ivan@freeside.biz>
Date: Mon, 23 Feb 2015 02:53:14 +0000 (-0800)
Subject: fix credit limit report on 3.x, RT#27267
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=a7dcdbbf035c9588ac7f9824c01568112253f8f1;p=freeside.git

fix credit limit report on 3.x, RT#27267
---

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