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 );
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,
);
}
package FS::payby;
use strict;
-use vars qw(%hash @EXPORT_OK);
+use vars qw(%hash %payby2bop);
use Tie::IxHash;
map { $_ => $hash{$_}->{longname} } $self->payby;
}
-sub payby2bop {
- { 'CARD' => 'CC'.
- 'CHEK' => 'ECHECK',};
-}
+%payby2bop = (
+ 'CARD' => 'CC',
+ 'CHEK' => 'ECHECK',
+);
sub cust_payby {
my $self = shift;
% die "unknown payby $payby";
%}
%
-%my $error = $cust_main->realtime_bop( $FS::payby::payby2bop->{$payby}, $amount,
+%my $error = $cust_main->realtime_bop( $FS::payby::payby2bop{$payby}, $amount,
% 'quiet' => 1,
% 'payinfo' => $payinfo,
% 'paydate' => "$year-$month-01",