[freeside] bin/bill problems

[Ivan Kohler]

Apply this patch, or check the latest version of cust_pay_batch.pm out of
CVS.  You should be good to go as long as you aren't trying to batch empty
cards. 

Hope that helps.

===================================================================
RCS file: /home/cvs/cvsroot/freeside/site_perl/cust_pay_batch.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- freeside/site_perl/cust_pay_batch.pm        1998/12/29 11:59:44 1.3
+++ freeside/site_perl/cust_pay_batch.pm        1999/07/17 22:02:16 1.4
@@ -143,7 +143,7 @@
   $cardnum = $1;
   $self->cardnum($cardnum);
   validate($cardnum) or return "Illegal credit card number";
-  return "Unknown card type" if cardtype($self->payinfo) eq "Unknown";
+  return "Unknown card type" if cardtype($cardnum) eq "Unknown";
 
   if ( $self->exp eq '' ) {
     return "Expriation date required";
@@ -183,7 +183,7 @@
 
 =head1 VERSION
 
-$Id: cust_pay_batch.pm,v 1.3 1998/12/29 11:59:44 ivan Exp $
+$Id: cust_pay_batch.pm,v 1.4 1999/07/17 22:02:16 ivan Exp $
 
 =head1 BUGS
 

On Sat, Jul 17, 1999 at 03:23:11PM -0500, sglist at hollywood.mwis.net wrote:
> On Fri, 16 Jul 1999, Ivan Kohler wrote:
> 
> > Apply this patch, or check the latest version of cust_main.pm out of CVS.
> > 
> > Sorry about that.  Let me know if this helps.
> Well it's more interesting now.. :)  Here's what we get:
> 
> hostname:~/cvs/freeside_current/bin> ./bill -c username
> Billing customer #94
> Argument "" isn't numeric in eq at
> /usr/lib/perl5/5.00502/i586-linux/Business/CreditCard.pm line 86.
> Argument "" isn't numeric in eq at
> /usr/lib/perl5/5.00502/i586-linux/Business/CreditCard.pm line 87.
> Argument "" isn't numeric in eq at
> /usr/lib/perl5/5.00502/i586-linux/Business/CreditCard.pm line 88.
> Argument "" isn't numeric in eq at
> /usr/lib/perl5/5.00502/i586-linux/Business/CreditCard.pm line 89.
> Argument "" isn't numeric in eq at
> /usr/lib/perl5/5.00502/i586-linux/Business/CreditCard.pm line 90.
> Error collecting customer #94:Error adding to cust_pay_batch: Unknown card
> type at ./bill line 52.
>  
> > > > 	perl -MCarp=verbose ./bill -c username
> And with
> ~/cvs/freeside_current/bin> perl -MCarp=verbose ./bill -c username
> Billing customer #95
> Argument "" isn't numeric in eq at
> /usr/lib/perl5/5.00502/i586-linux/Business/CreditCard.pm line 86.
> Argument "" isn't numeric in eq at
> /usr/lib/perl5/5.00502/i586-linux/Business/CreditCard.pm line 87.
> Argument "" isn't numeric in eq at
> /usr/lib/perl5/5.00502/i586-linux/Business/CreditCard.pm line 88.
> Argument "" isn't numeric in eq at
> /usr/lib/perl5/5.00502/i586-linux/Business/CreditCard.pm line 89.
> Argument "" isn't numeric in eq at
> /usr/lib/perl5/5.00502/i586-linux/Business/CreditCard.pm line 90.
> Error collecting customer #95:Error adding to cust_pay_batch: Unknown card
> type at ./bill line 52.
> 
> Help! 
> 
> 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