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 5a5181d..22d005d 100644 (file)
--- 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