[freeside-commits] freeside/FS/FS cust_bill.pm, 1.152, 1.153 payby.pm, 1.6, 1.7

[Jeff Finucane,420,,]

Update of /home/cvs/cvsroot/freeside/FS/FS
In directory wavetail:/tmp/cvs-serv31518/FS/FS

Modified Files:
	cust_bill.pm payby.pm 
Log Message:
fix payby2bop brokenness

Index: payby.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/payby.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -d -r1.6 -r1.7
--- payby.pm	27 Aug 2006 20:09:11 -0000	1.6
+++ payby.pm	27 Aug 2006 21:50:18 -0000	1.7
@@ -1,7 +1,7 @@
 package FS::payby;
 
 use strict;
-use vars qw(%hash @EXPORT_OK);
+use vars qw(%hash %payby2bop);
 use Tie::IxHash;
 
 
@@ -107,10 +107,10 @@
   map { $_ => $hash{$_}->{longname} } $self->payby;
 }
 
-sub payby2bop {
-  { 'CARD' => 'CC'.
-    'CHEK' => 'ECHECK',};
-}
+%payby2bop = (
+  'CARD' => 'CC',
+  'CHEK' => 'ECHECK',
+);
 
 sub cust_payby {
   my $self = shift;

Index: cust_bill.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/cust_bill.pm,v
retrieving revision 1.152
retrieving revision 1.153
diff -u -d -r1.152 -r1.153
--- cust_bill.pm	26 Aug 2006 23:15:11 -0000	1.152
+++ cust_bill.pm	27 Aug 2006 21:50:18 -0000	1.153
@@ -28,7 +28,7 @@
 use FS::cust_bill_pay;
 use FS::cust_bill_pay_batch;
 use FS::part_bill_event;
-use FS::payby qw( payby2bop );
+use FS::payby;
 
 @ISA = qw( FS::cust_main_Mixin FS::Record );
 
@@ -1318,7 +1318,7 @@
   return '' unless $amount > 0;
   
   if ($options{'realtime'}) {
-    return $cust_main->realtime_bop ( $FS::payby::payby2bop->{$cust_main->payby}, $amount,
+    return $cust_main->realtime_bop ( $FS::payby::payby2bop{$cust_main->payby}, $amount,
       %options,
     );
   }