X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fcust_main_credit_limit.pm;h=22d005d9bf96de90b5299266ca0928743e47ae0f;hb=2b8cc0f23f764bd53994ca3763b9c61756c96766;hp=5a5181d5ad43e62d6a1b4b849e931e4856ad7e65;hpb=296b198525e573770dd2a1c686493f522c69f51f;p=freeside.git

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