diff options
| author | ivan <ivan> | 1999-07-17 02:24:14 +0000 |
|---|---|---|
| committer | ivan <ivan> | 1999-07-17 02:24:14 +0000 |
| commit | 5f97dcbac2620cb3ad079f91e1af8f33c67af4af (patch) | |
| tree | 676acb4f0963e64153b606621132692f250531aa /site_perl/cust_main.pm | |
| parent | c2a7ce47397f8110245db44b1de0ddf920568895 (diff) | |
bug noticed by Steve Gertz <sglist@hollywood.mwis.net>
Diffstat (limited to 'site_perl/cust_main.pm')
| -rw-r--r-- | site_perl/cust_main.pm | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/site_perl/cust_main.pm b/site_perl/cust_main.pm index b5cb271f4..d67e6811f 100644 --- a/site_perl/cust_main.pm +++ b/site_perl/cust_main.pm @@ -762,7 +762,7 @@ sub collect { } else { #batch card - my $cust_pay_batch = new FS::Record ('cust_pay_batch', { + my $cust_pay_batch = new FS::cust_pay_batch ( { 'invnum' => $cust_bill->getfield('invnum'), 'custnum' => $self->getfield('custnum'), 'last' => $self->getfield('last'), @@ -928,7 +928,7 @@ sub check_invoicing_list { =head1 VERSION -$Id: cust_main.pm,v 1.22 1999-04-15 16:44:36 ivan Exp $ +$Id: cust_main.pm,v 1.23 1999-07-17 02:24:14 ivan Exp $ =head1 BUGS @@ -987,7 +987,10 @@ enable cybercash, cybercash v3 support, don't need to import FS::UID::{datasrc,checkruid} ivan@sisd.com 98-sep-19-21 $Log: cust_main.pm,v $ -Revision 1.22 1999-04-15 16:44:36 ivan +Revision 1.23 1999-07-17 02:24:14 ivan +bug noticed by Steve Gertz <sglist@hollywood.mwis.net> + +Revision 1.22 1999/04/15 16:44:36 ivan delete customers Revision 1.21 1999/04/14 07:47:53 ivan |