diff options
| author | ivan <ivan> | 2002-09-05 16:51:49 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2002-09-05 16:51:49 +0000 |
| commit | e1cfff0375b46aaf2b5fef7fb2f9e62d7567f41f (patch) | |
| tree | 5c61e50fa44712fc03d78774a6ef42672afab0e0 /FS | |
| parent | a236f83c748fef330e75480fd4f2ee50bb25985c (diff) | |
Business::OnlinePayment::VitualNet compatibility
Diffstat (limited to 'FS')
| -rw-r--r-- | FS/FS/cust_bill.pm | 15 |
1 files changed, 13 insertions, 2 deletions
diff --git a/FS/FS/cust_bill.pm b/FS/FS/cust_bill.pm index fd79f238c..5e041ea59 100644 --- 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 ); - $capture->content( + my %capture = ( + type => 'CC', action => $action2, login => $bop_login, password => $bop_password, @@ -689,8 +690,18 @@ sub realtime_card { 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 ) { @@ -1101,7 +1112,7 @@ sub print_text { =head1 VERSION -$Id: cust_bill.pm,v 1.40 2002-08-30 23:48:43 ivan Exp $ +$Id: cust_bill.pm,v 1.41 2002-09-05 16:51:49 ivan Exp $ =head1 BUGS |