projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
a236f83
)
Business::OnlinePayment::VitualNet compatibility
author
ivan
<ivan>
Thu, 5 Sep 2002 16:51:49 +0000
(16:51 +0000)
committer
ivan
<ivan>
Thu, 5 Sep 2002 16:51:49 +0000
(16:51 +0000)
FS/FS/cust_bill.pm
patch
|
blob
|
history
diff --git
a/FS/FS/cust_bill.pm
b/FS/FS/cust_bill.pm
index
fd79f23
..
5e041ea
100644
(file)
--- a/
FS/FS/cust_bill.pm
+++ b/
FS/FS/cust_bill.pm
@@
-681,7
+681,8
@@
sub realtime_card {
my $capture =
new Business::OnlinePayment( $bop_processor, @bop_options );
my $capture =
new Business::OnlinePayment( $bop_processor, @bop_options );
- $capture->content(
+ my %capture = (
+ type => 'CC',
action => $action2,
login => $bop_login,
password => $bop_password,
action => $action2,
login => $bop_login,
password => $bop_password,
@@
-689,8
+690,18
@@
sub realtime_card {
amount => $amount,
authorization => $auth,
description => $description,
amount => $amount,
authorization => $auth,
description => $description,
+ card_number => $cust_main->payinfo,
+ expiration => $exp,
);
);
+ foreach my $field (qw( authorization_source_code returned_ACI transaction_identifier validation_code
+ transaction_sequence_num local_transaction_date
+ local_transaction_time AVS_result_code )) {
+ $capture{$field} = $transaction->$field() if $transaction->can($field);
+ }
+
+ $capture->content( %capture );
+
$capture->submit();
unless ( $capture->is_success ) {
$capture->submit();
unless ( $capture->is_success ) {
@@
-1101,7
+1112,7
@@
sub print_text {
=head1 VERSION
=head1 VERSION
-$Id: cust_bill.pm,v 1.4
0 2002-08-30 23:48:43
ivan Exp $
+$Id: cust_bill.pm,v 1.4
1 2002-09-05 16:51:49
ivan Exp $
=head1 BUGS
=head1 BUGS