[freeside] bin/bill problems

[Ivan Kohler]

Apply this patch, or check the latest version of cust_main.pm out of CVS.

Sorry about that.  Let me know if this helps.

===================================================================
RCS file: /home/cvs/cvsroot/freeside/site_perl/cust_main.pm,v
retrieving revision 1.22
retrieving revision 1.23
diff -u -r1.22 -r1.23
--- freeside/site_perl/cust_main.pm     1999/04/15 16:44:36     1.22
+++ freeside/site_perl/cust_main.pm     1999/07/17 02:24:14     1.23
@@ -762,7 +762,7 @@
 
       } 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 @@
 
 =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,6 +987,9 @@
 FS::UID::{datasrc,checkruid} ivan at sisd.com 98-sep-19-21
 
 $Log: cust_main.pm,v $
+Revision 1.23  1999/07/17 02:24:14  ivan
+bug noticed by Steve Gertz <sglist at hollywood.mwis.net>
+
 Revision 1.22  1999/04/15 16:44:36  ivan
 delete customers
 

On Fri, Jul 16, 1999 at 09:09:25PM -0500, sglist at hollywood.mwis.net wrote:
> 
> 
> On Fri, 16 Jul 1999, Ivan Kohler wrote:
> 
> > On Fri, Jul 16, 1999 at 08:06:08PM -0500, sglist at hollywood.mwis.net wrote:
> > > List,
> > > 
> > > I've been having some problems with the billing program..
> > > 
> > > When I run (wd = ~freeside/bin )
> > > 
> > > ./bill -c username
> > > 
> > > I'm returned with
> > > 
> > > FS:Record::check not implemented; supply one in subclass! at ./bill line
> > > 49
> > 
> > Can you run
> > 
> > 	perl -MCarp=verbose ./bill -c username
> 
> After removing -T in line 1,
> Billing customer #90
> FS::Record::check not implemented; supply one in subclass! at /usr/lib/perl5/5.00502/FS/Record.pm line 507
>         FS::Record::check('FS::Record=HASH(0x861af98)') called at /usr/lib/perl5/5.00502/FS/Record.pm line 330
>         FS::Record::insert('FS::Record=HASH(0x861af98)') called at /usr/lib/perl5/5.00502/FS/cust_main.pm line 739
>         FS::cust_main::collect('FS::cust_main=HASH(0x8613384)', 'invoice_time', 932177173, 'batch_card', 'yes') called at 
> ./bill line 49
> 
> Hmm.. things to think about.. :)
> 
> Steve Gertz
> Midwest Internet
> > > 
> > > System Info:
> > > Linux 2.2.9
> > > Apache v1.3.6
> > > Perl 5.005_02
> > > Postgres 6.4.2
> > > DBI 1.12
> > > DBD Pg 0.92
> 

-- 
Ivan Kohler <ivan at sisd.com> - finger for PGP key - <moc.dsis at navi> Relhok Navi
Open-source billing and administration for ISPs - http://www.sisd.com/freeside
20 4,16 * * * saytime # please don't be surprised if you find me dreaming too