1 package FS::cust_main::Billing_Realtime;
4 use vars qw( $conf $DEBUG $me );
5 use vars qw( $realtime_bop_decline_quiet ); #ugh
7 use Business::CreditCard 0.28;
9 use FS::Record qw( qsearch qsearchs );
10 use FS::Misc qw( send_email );
13 use FS::cust_pay_pending;
17 $realtime_bop_decline_quiet = 0;
19 # 1 is mostly method/subroutine entry and options
20 # 2 traces progress of some operations
21 # 3 is even more information including possibly sensitive data
23 $me = '[FS::cust_main::Billing_Realtime]';
26 our $BOP_TESTING_SUCCESS = 1;
28 install_callback FS::UID sub {
30 #yes, need it for stuff below (prolly should be cached)
35 FS::cust_main::Billing_Realtime - Realtime billing mixin for cust_main
41 These methods are available on FS::cust_main objects.
47 =item realtime_collect [ OPTION => VALUE ... ]
49 Attempt to collect the customer's current balance with a realtime credit
50 card, electronic check, or phone bill transaction (see realtime_bop() below).
52 Returns the result of realtime_bop(): nothing, an error message, or a
53 hashref of state information for a third-party transaction.
55 Available options are: I<method>, I<amount>, I<description>, I<invnum>, I<quiet>, I<paynum_ref>, I<payunique>, I<session_id>, I<pkgnum>
57 I<method> is one of: I<CC>, I<ECHECK> and I<LEC>. If none is specified
58 then it is deduced from the customer record.
60 If no I<amount> is specified, then the customer balance is used.
62 The additional options I<payname>, I<address1>, I<address2>, I<city>, I<state>,
63 I<zip>, I<payinfo> and I<paydate> are also available. Any of these options,
64 if set, will override the value from the customer record.
66 I<description> is a free-text field passed to the gateway. It defaults to
67 the value defined by the business-onlinepayment-description configuration
68 option, or "Internet services" if that is unset.
70 If an I<invnum> is specified, this payment (if successful) is applied to the
73 I<apply> will automatically apply a resulting payment.
75 I<quiet> can be set true to suppress email decline notices.
77 I<paynum_ref> can be set to a scalar reference. It will be filled in with the
78 resulting paynum, if any.
80 I<payunique> is a unique identifier for this payment.
82 I<session_id> is a session identifier associated with this payment.
84 I<depend_jobnum> allows payment capture to unlock export jobs
88 sub realtime_collect {
89 my( $self, %options ) = @_;
91 local($DEBUG) = $FS::cust_main::DEBUG if $FS::cust_main::DEBUG > $DEBUG;
94 warn "$me realtime_collect:\n";
95 warn " $_ => $options{$_}\n" foreach keys %options;
98 $options{amount} = $self->balance unless exists( $options{amount} );
99 $options{method} = FS::payby->payby2bop($self->payby)
100 unless exists( $options{method} );
102 return $self->realtime_bop({%options});
106 =item realtime_bop { [ ARG => VALUE ... ] }
108 Runs a realtime credit card, ACH (electronic check) or phone bill transaction
109 via a Business::OnlinePayment realtime gateway. See
110 L<http://420.am/business-onlinepayment> for supported gateways.
112 Required arguments in the hashref are I<method>, and I<amount>
114 Available methods are: I<CC>, I<ECHECK>, I<LEC>, and I<PAYPAL>
116 Available optional arguments are: I<description>, I<invnum>, I<apply>, I<quiet>, I<paynum_ref>, I<payunique>, I<session_id>
118 The additional options I<payname>, I<address1>, I<address2>, I<city>, I<state>,
119 I<zip>, I<payinfo> and I<paydate> are also available. Any of these options,
120 if set, will override the value from the customer record.
122 I<description> is a free-text field passed to the gateway. It defaults to
123 the value defined by the business-onlinepayment-description configuration
124 option, or "Internet services" if that is unset.
126 If an I<invnum> is specified, this payment (if successful) is applied to the
127 specified invoice. If the customer has exactly one open invoice, that
128 invoice number will be assumed. If you don't specify an I<invnum> you might
129 want to call the B<apply_payments> method or set the I<apply> option.
131 I<apply> can be set to true to apply a resulting payment.
133 I<quiet> can be set true to surpress email decline notices.
135 I<paynum_ref> can be set to a scalar reference. It will be filled in with the
136 resulting paynum, if any.
138 I<payunique> is a unique identifier for this payment.
140 I<session_id> is a session identifier associated with this payment.
142 I<depend_jobnum> allows payment capture to unlock export jobs
144 I<discount_term> attempts to take a discount by prepaying for discount_term.
145 The payment will fail if I<amount> is incorrect for this discount term.
147 A direct (Business::OnlinePayment) transaction will return nothing on success,
148 or an error message on failure.
150 A third-party transaction will return a hashref containing:
152 - popup_url: the URL to which a browser should be redirected to complete
154 - collectitems: an arrayref of name-value pairs to be posted to popup_url.
155 - reference: a reference ID for the transaction, to show the customer.
157 (moved from cust_bill) (probably should get realtime_{card,ach,lec} here too)
161 # some helper routines
162 sub _bop_recurring_billing {
163 my( $self, %opt ) = @_;
165 my $method = scalar($conf->config('credit_card-recurring_billing_flag'));
167 if ( defined($method) && $method eq 'transaction_is_recur' ) {
169 return 1 if $opt{'trans_is_recur'};
173 # return 1 if the payinfo has been used for another payment
174 return $self->payinfo_used($opt{'payinfo'}); # in payinfo_Mixin
182 sub _payment_gateway {
183 my ($self, $options) = @_;
185 if ( $options->{'selfservice'} ) {
186 my $gatewaynum = FS::Conf->new->config('selfservice-payment_gateway');
188 return $options->{payment_gateway} ||=
189 qsearchs('payment_gateway', { gatewaynum => $gatewaynum });
193 if ( $options->{'fake_gatewaynum'} ) {
194 $options->{payment_gateway} =
195 qsearchs('payment_gateway',
196 { 'gatewaynum' => $options->{'fake_gatewaynum'}, }
200 $options->{payment_gateway} = $self->agent->payment_gateway( %$options )
201 unless exists($options->{payment_gateway});
203 $options->{payment_gateway};
207 my ($self, $options) = @_;
210 'login' => $options->{payment_gateway}->gateway_username,
211 'password' => $options->{payment_gateway}->gateway_password,
216 my ($self, $options) = @_;
218 $options->{payment_gateway}->gatewaynum
219 ? $options->{payment_gateway}->options
220 : @{ $options->{payment_gateway}->get('options') };
225 my ($self, $options) = @_;
227 unless ( $options->{'description'} ) {
228 if ( $conf->exists('business-onlinepayment-description') ) {
229 my $dtempl = $conf->config('business-onlinepayment-description');
231 my $agent = $self->agent->agent;
233 $options->{'description'} = eval qq("$dtempl");
235 $options->{'description'} = 'Internet services';
239 $options->{payinfo} = $self->payinfo unless exists( $options->{payinfo} );
241 # Default invoice number if the customer has exactly one open invoice.
242 if( ! $options->{'invnum'} ) {
243 $options->{'invnum'} = '';
244 my @open = $self->open_cust_bill;
245 $options->{'invnum'} = $open[0]->invnum if scalar(@open) == 1;
248 $options->{payname} = $self->payname unless exists( $options->{payname} );
252 my ($self, $options) = @_;
255 my $payip = exists($options->{'payip'}) ? $options->{'payip'} : $self->payip;
256 $content{customer_ip} = $payip if length($payip);
258 $content{invoice_number} = $options->{'invnum'}
259 if exists($options->{'invnum'}) && length($options->{'invnum'});
261 $content{email_customer} =
262 ( $conf->exists('business-onlinepayment-email_customer')
263 || $conf->exists('business-onlinepayment-email-override') );
265 my ($payname, $payfirst, $paylast);
266 if ( $options->{payname} && $options->{method} ne 'ECHECK' ) {
267 ($payname = $options->{payname}) =~
268 /^\s*([\w \,\.\-\']*)?\s+([\w\,\.\-\']+)\s*$/
269 or return "Illegal payname $payname";
270 ($payfirst, $paylast) = ($1, $2);
272 $payfirst = $self->getfield('first');
273 $paylast = $self->getfield('last');
274 $payname = "$payfirst $paylast";
277 $content{last_name} = $paylast;
278 $content{first_name} = $payfirst;
280 $content{name} = $payname;
282 $content{address} = exists($options->{'address1'})
283 ? $options->{'address1'}
285 my $address2 = exists($options->{'address2'})
286 ? $options->{'address2'}
288 $content{address} .= ", ". $address2 if length($address2);
290 $content{city} = exists($options->{city})
293 $content{state} = exists($options->{state})
296 $content{zip} = exists($options->{zip})
299 $content{country} = exists($options->{country})
300 ? $options->{country}
303 #3.0 is a good a time as any to get rid of this... add a config to pass it
304 # if anyone still needs it
305 #$content{referer} = 'http://cleanwhisker.420.am/';
307 $content{phone} = $self->daytime || $self->night;
309 my $currency = $conf->exists('business-onlinepayment-currency')
310 && $conf->config('business-onlinepayment-currency');
311 $content{currency} = $currency if $currency;
316 my %bop_method2payby = (
326 local($DEBUG) = $FS::cust_main::DEBUG if $FS::cust_main::DEBUG > $DEBUG;
329 if (ref($_[0]) eq 'HASH') {
332 my ( $method, $amount ) = ( shift, shift );
334 $options{method} = $method;
335 $options{amount} = $amount;
340 # optional credit card surcharge
343 my $cc_surcharge = 0;
344 my $cc_surcharge_pct = 0;
345 $cc_surcharge_pct = $conf->config('credit-card-surcharge-percentage')
346 if $conf->config('credit-card-surcharge-percentage');
348 # always add cc surcharge if called from event
349 if($options{'cc_surcharge_from_event'} && $cc_surcharge_pct > 0) {
350 $cc_surcharge = $options{'amount'} * $cc_surcharge_pct / 100;
351 $options{'amount'} += $cc_surcharge;
352 $options{'amount'} = sprintf("%.2f", $options{'amount'}); # round (again)?
354 elsif($cc_surcharge_pct > 0) { # we're called not from event (i.e. from a
355 # payment screen), so consider the given
356 # amount as post-surcharge
357 $cc_surcharge = $options{'amount'} - ($options{'amount'} / ( 1 + $cc_surcharge_pct/100 ));
360 $cc_surcharge = sprintf("%.2f",$cc_surcharge) if $cc_surcharge > 0;
361 $options{'cc_surcharge'} = $cc_surcharge;
365 warn "$me realtime_bop (new): $options{method} $options{amount}\n";
366 warn " cc_surcharge = $cc_surcharge\n";
367 warn " $_ => $options{$_}\n" foreach keys %options;
370 return $self->fake_bop(\%options) if $options{'fake'};
372 $self->_bop_defaults(\%options);
375 # set trans_is_recur based on invnum if there is one
378 my $trans_is_recur = 0;
379 if ( $options{'invnum'} ) {
381 my $cust_bill = qsearchs('cust_bill', { 'invnum' => $options{'invnum'} } );
382 die "invnum ". $options{'invnum'}. " not found" unless $cust_bill;
388 $cust_bill->cust_bill_pkg;
391 if grep { $_->freq ne '0' } @part_pkg;
399 my $payment_gateway = $self->_payment_gateway( \%options );
400 my $namespace = $payment_gateway->gateway_namespace;
402 eval "use $namespace";
406 # check for banned credit card/ACH
409 my $ban = FS::banned_pay->ban_search(
410 'payby' => $bop_method2payby{$options{method}},
411 'payinfo' => $options{payinfo},
413 return "Banned credit card" if $ban && $ban->bantype ne 'warn';
416 # check for term discount validity
419 my $discount_term = $options{discount_term};
420 if ( $discount_term ) {
421 my $bill = ($self->cust_bill)[-1]
422 or return "Can't apply a term discount to an unbilled customer";
423 my $plan = FS::discount_plan->new(
425 months => $discount_term
426 ) or return "No discount available for term '$discount_term'";
428 if ( $plan->discounted_total != $options{amount} ) {
429 return "Incorrect term prepayment amount (term $discount_term, amount $options{amount}, requires ".$plan->discounted_total.")";
437 my $bop_content = $self->_bop_content(\%options);
438 return $bop_content unless ref($bop_content);
440 my @invoicing_list = $self->invoicing_list_emailonly;
441 if ( $conf->exists('emailinvoiceautoalways')
442 || $conf->exists('emailinvoiceauto') && ! @invoicing_list
443 || ( $conf->exists('emailinvoiceonly') && ! @invoicing_list ) ) {
444 push @invoicing_list, $self->all_emails;
447 my $email = ($conf->exists('business-onlinepayment-email-override'))
448 ? $conf->config('business-onlinepayment-email-override')
449 : $invoicing_list[0];
454 if ( $namespace eq 'Business::OnlinePayment' ) {
456 if ( $options{method} eq 'CC' ) {
458 $content{card_number} = $options{payinfo};
459 $paydate = exists($options{'paydate'})
460 ? $options{'paydate'}
462 $paydate =~ /^\d{2}(\d{2})[\/\-](\d+)[\/\-]\d+$/;
463 $content{expiration} = "$2/$1";
465 my $paycvv = exists($options{'paycvv'})
468 $content{cvv2} = $paycvv
471 my $paystart_month = exists($options{'paystart_month'})
472 ? $options{'paystart_month'}
473 : $self->paystart_month;
475 my $paystart_year = exists($options{'paystart_year'})
476 ? $options{'paystart_year'}
477 : $self->paystart_year;
479 $content{card_start} = "$paystart_month/$paystart_year"
480 if $paystart_month && $paystart_year;
482 my $payissue = exists($options{'payissue'})
483 ? $options{'payissue'}
485 $content{issue_number} = $payissue if $payissue;
487 if ( $self->_bop_recurring_billing(
488 'payinfo' => $options{'payinfo'},
489 'trans_is_recur' => $trans_is_recur,
493 $content{recurring_billing} = 'YES';
494 $content{acct_code} = 'rebill'
495 if $conf->exists('credit_card-recurring_billing_acct_code');
498 } elsif ( $options{method} eq 'ECHECK' ){
500 ( $content{account_number}, $content{routing_code} ) =
501 split('@', $options{payinfo});
502 $content{bank_name} = $options{payname};
503 $content{bank_state} = exists($options{'paystate'})
504 ? $options{'paystate'}
505 : $self->getfield('paystate');
506 $content{account_type}=
507 (exists($options{'paytype'}) && $options{'paytype'})
508 ? uc($options{'paytype'})
509 : uc($self->getfield('paytype')) || 'PERSONAL CHECKING';
511 if ( $content{account_type} =~ /BUSINESS/i && $self->company ) {
512 $content{account_name} = $self->company;
514 $content{account_name} = $self->getfield('first'). ' '.
515 $self->getfield('last');
518 $content{customer_org} = $self->company ? 'B' : 'I';
519 $content{state_id} = exists($options{'stateid'})
520 ? $options{'stateid'}
521 : $self->getfield('stateid');
522 $content{state_id_state} = exists($options{'stateid_state'})
523 ? $options{'stateid_state'}
524 : $self->getfield('stateid_state');
525 $content{customer_ssn} = exists($options{'ss'})
529 } elsif ( $options{method} eq 'LEC' ) {
530 $content{phone} = $options{payinfo};
532 die "unknown method ". $options{method};
535 } elsif ( $namespace eq 'Business::OnlineThirdPartyPayment' ) {
538 die "unknown namespace $namespace";
545 my $balance = exists( $options{'balance'} )
546 ? $options{'balance'}
549 $self->select_for_update; #mutex ... just until we get our pending record in
551 #the checks here are intended to catch concurrent payments
552 #double-form-submission prevention is taken care of in cust_pay_pending::check
555 return "The customer's balance has changed; $options{method} transaction aborted."
556 if $self->balance < $balance;
558 #also check and make sure there aren't *other* pending payments for this cust
560 my @pending = qsearch('cust_pay_pending', {
561 'custnum' => $self->custnum,
562 'status' => { op=>'!=', value=>'done' }
565 #for third-party payments only, remove pending payments if they're in the
566 #'thirdparty' (waiting for customer action) state.
567 if ( $namespace eq 'Business::OnlineThirdPartyPayment' ) {
568 foreach ( grep { $_->status eq 'thirdparty' } @pending ) {
569 my $error = $_->delete;
570 warn "error deleting unfinished third-party payment ".
571 $_->paypendingnum . ": $error\n"
574 @pending = grep { $_->status ne 'thirdparty' } @pending;
577 return "A payment is already being processed for this customer (".
578 join(', ', map 'paypendingnum '. $_->paypendingnum, @pending ).
579 "); $options{method} transaction aborted."
582 #okay, good to go, if we're a duplicate, cust_pay_pending will kick us out
584 my $cust_pay_pending = new FS::cust_pay_pending {
585 'custnum' => $self->custnum,
586 'paid' => $options{amount},
588 'payby' => $bop_method2payby{$options{method}},
589 'payinfo' => $options{payinfo},
590 'paydate' => $paydate,
591 'recurring_billing' => $content{recurring_billing},
592 'pkgnum' => $options{'pkgnum'},
594 'gatewaynum' => $payment_gateway->gatewaynum || '',
595 'session_id' => $options{session_id} || '',
596 'jobnum' => $options{depend_jobnum} || '',
598 $cust_pay_pending->payunique( $options{payunique} )
599 if defined($options{payunique}) && length($options{payunique});
600 my $cpp_new_err = $cust_pay_pending->insert; #mutex lost when this is inserted
601 return $cpp_new_err if $cpp_new_err;
603 my( $action1, $action2 ) =
604 split( /\s*\,\s*/, $payment_gateway->gateway_action );
606 my $transaction = new $namespace( $payment_gateway->gateway_module,
607 $self->_bop_options(\%options),
610 $transaction->content(
611 'type' => $options{method},
612 $self->_bop_auth(\%options),
613 'action' => $action1,
614 'description' => $options{'description'},
615 'amount' => $options{amount},
616 #'invoice_number' => $options{'invnum'},
617 'customer_id' => $self->custnum,
619 'reference' => $cust_pay_pending->paypendingnum, #for now
620 'callback_url' => $payment_gateway->gateway_callback_url,
621 'cancel_url' => $payment_gateway->gateway_cancel_url,
626 $cust_pay_pending->status('pending');
627 my $cpp_pending_err = $cust_pay_pending->replace;
628 return $cpp_pending_err if $cpp_pending_err;
630 warn Dumper($transaction) if $DEBUG > 2;
632 unless ( $BOP_TESTING ) {
633 $transaction->test_transaction(1)
634 if $conf->exists('business-onlinepayment-test_transaction');
635 $transaction->submit();
637 if ( $BOP_TESTING_SUCCESS ) {
638 $transaction->is_success(1);
639 $transaction->authorization('fake auth');
641 $transaction->is_success(0);
642 $transaction->error_message('fake failure');
646 if ( $transaction->is_success() && $namespace eq 'Business::OnlineThirdPartyPayment' ) {
648 $cust_pay_pending->status('thirdparty');
649 my $cpp_err = $cust_pay_pending->replace;
650 return { error => $cpp_err } if $cpp_err;
651 return { reference => $cust_pay_pending->paypendingnum,
652 map { $_ => $transaction->$_ } qw ( popup_url collectitems ) };
654 } elsif ( $transaction->is_success() && $action2 ) {
656 $cust_pay_pending->status('authorized');
657 my $cpp_authorized_err = $cust_pay_pending->replace;
658 return $cpp_authorized_err if $cpp_authorized_err;
660 my $auth = $transaction->authorization;
661 my $ordernum = $transaction->can('order_number')
662 ? $transaction->order_number
666 new Business::OnlinePayment( $payment_gateway->gateway_module,
667 $self->_bop_options(\%options),
672 type => $options{method},
674 $self->_bop_auth(\%options),
675 order_number => $ordernum,
676 amount => $options{amount},
677 authorization => $auth,
678 description => $options{'description'},
681 foreach my $field (qw( authorization_source_code returned_ACI
682 transaction_identifier validation_code
683 transaction_sequence_num local_transaction_date
684 local_transaction_time AVS_result_code )) {
685 $capture{$field} = $transaction->$field() if $transaction->can($field);
688 $capture->content( %capture );
690 $capture->test_transaction(1)
691 if $conf->exists('business-onlinepayment-test_transaction');
694 unless ( $capture->is_success ) {
695 my $e = "Authorization successful but capture failed, custnum #".
696 $self->custnum. ': '. $capture->result_code.
697 ": ". $capture->error_message;
705 # remove paycvv after initial transaction
708 #false laziness w/misc/process/payment.cgi - check both to make sure working
710 if ( length($self->paycvv)
711 && ! grep { $_ eq cardtype($options{payinfo}) } $conf->config('cvv-save')
713 my $error = $self->remove_cvv;
715 warn "WARNING: error removing cvv: $error\n";
724 if ( $transaction->can('card_token') && $transaction->card_token ) {
726 $self->card_token($transaction->card_token);
728 if ( $options{'payinfo'} eq $self->payinfo ) {
729 $self->payinfo($transaction->card_token);
730 my $error = $self->replace;
732 warn "WARNING: error storing token: $error, but proceeding anyway\n";
742 $self->_realtime_bop_result( $cust_pay_pending, $transaction, %options );
754 if (ref($_[0]) eq 'HASH') {
757 my ( $method, $amount ) = ( shift, shift );
759 $options{method} = $method;
760 $options{amount} = $amount;
763 if ( $options{'fake_failure'} ) {
764 return "Error: No error; test failure requested with fake_failure";
767 my $cust_pay = new FS::cust_pay ( {
768 'custnum' => $self->custnum,
769 'invnum' => $options{'invnum'},
770 'paid' => $options{amount},
772 'payby' => $bop_method2payby{$options{method}},
773 #'payinfo' => $payinfo,
774 'payinfo' => '4111111111111111',
775 #'paydate' => $paydate,
776 'paydate' => '2012-05-01',
777 'processor' => 'FakeProcessor',
779 'order_number' => '32',
781 $cust_pay->payunique( $options{payunique} ) if length($options{payunique});
784 warn "fake_bop\n cust_pay: ". Dumper($cust_pay) . "\n options: ";
785 warn " $_ => $options{$_}\n" foreach keys %options;
788 my $error = $cust_pay->insert($options{'manual'} ? ( 'manual' => 1 ) : () );
791 $cust_pay->invnum(''); #try again with no specific invnum
792 my $error2 = $cust_pay->insert( $options{'manual'} ?
793 ( 'manual' => 1 ) : ()
796 # gah, even with transactions.
797 my $e = 'WARNING: Card/ACH debited but database not updated - '.
798 "error inserting (fake!) payment: $error2".
799 " (previously tried insert with invnum #$options{'invnum'}" .
806 if ( $options{'paynum_ref'} ) {
807 ${ $options{'paynum_ref'} } = $cust_pay->paynum;
815 # item _realtime_bop_result CUST_PAY_PENDING, BOP_OBJECT [ OPTION => VALUE ... ]
817 # Wraps up processing of a realtime credit card, ACH (electronic check) or
818 # phone bill transaction.
820 sub _realtime_bop_result {
821 my( $self, $cust_pay_pending, $transaction, %options ) = @_;
823 local($DEBUG) = $FS::cust_main::DEBUG if $FS::cust_main::DEBUG > $DEBUG;
826 warn "$me _realtime_bop_result: pending transaction ".
827 $cust_pay_pending->paypendingnum. "\n";
828 warn " $_ => $options{$_}\n" foreach keys %options;
831 my $payment_gateway = $options{payment_gateway}
832 or return "no payment gateway in arguments to _realtime_bop_result";
834 $cust_pay_pending->status($transaction->is_success() ? 'captured' : 'declined');
835 my $cpp_captured_err = $cust_pay_pending->replace;
836 return $cpp_captured_err if $cpp_captured_err;
838 if ( $transaction->is_success() ) {
840 my $order_number = $transaction->order_number
841 if $transaction->can('order_number');
843 my $cust_pay = new FS::cust_pay ( {
844 'custnum' => $self->custnum,
845 'invnum' => $options{'invnum'},
846 'paid' => $cust_pay_pending->paid,
848 'payby' => $cust_pay_pending->payby,
849 'payinfo' => $options{'payinfo'},
850 'paydate' => $cust_pay_pending->paydate,
851 'pkgnum' => $cust_pay_pending->pkgnum,
852 'discount_term' => $options{'discount_term'},
853 'gatewaynum' => ($payment_gateway->gatewaynum || ''),
854 'processor' => $payment_gateway->gateway_module,
855 'auth' => $transaction->authorization,
856 'order_number' => $order_number || '',
859 #doesn't hurt to know, even though the dup check is in cust_pay_pending now
860 $cust_pay->payunique( $options{payunique} )
861 if defined($options{payunique}) && length($options{payunique});
863 my $oldAutoCommit = $FS::UID::AutoCommit;
864 local $FS::UID::AutoCommit = 0;
867 #start a transaction, insert the cust_pay and set cust_pay_pending.status to done in a single transction
869 my $error = $cust_pay->insert($options{'manual'} ? ( 'manual' => 1 ) : () );
872 $dbh->rollback or die $dbh->errstr if $oldAutoCommit;
873 $cust_pay->invnum(''); #try again with no specific invnum
874 $cust_pay->paynum('');
875 my $error2 = $cust_pay->insert( $options{'manual'} ?
876 ( 'manual' => 1 ) : ()
879 # gah. but at least we have a record of the state we had to abort in
880 # from cust_pay_pending now.
881 $dbh->rollback or die $dbh->errstr if $oldAutoCommit;
882 my $e = "WARNING: $options{method} captured but payment not recorded -".
883 " error inserting payment (". $payment_gateway->gateway_module.
885 " (previously tried insert with invnum #$options{'invnum'}" .
886 ": $error ) - pending payment saved as paypendingnum ".
887 $cust_pay_pending->paypendingnum. "\n";
893 my $jobnum = $cust_pay_pending->jobnum;
895 my $placeholder = qsearchs( 'queue', { 'jobnum' => $jobnum } );
897 unless ( $placeholder ) {
898 $dbh->rollback or die $dbh->errstr if $oldAutoCommit;
899 my $e = "WARNING: $options{method} captured but job $jobnum not ".
900 "found for paypendingnum ". $cust_pay_pending->paypendingnum. "\n";
905 $error = $placeholder->delete;
908 $dbh->rollback or die $dbh->errstr if $oldAutoCommit;
909 my $e = "WARNING: $options{method} captured but could not delete ".
910 "job $jobnum for paypendingnum ".
911 $cust_pay_pending->paypendingnum. ": $error\n";
918 if ( $options{'paynum_ref'} ) {
919 ${ $options{'paynum_ref'} } = $cust_pay->paynum;
922 $cust_pay_pending->status('done');
923 $cust_pay_pending->statustext('captured');
924 $cust_pay_pending->paynum($cust_pay->paynum);
925 my $cpp_done_err = $cust_pay_pending->replace;
927 if ( $cpp_done_err ) {
929 $dbh->rollback or die $dbh->errstr if $oldAutoCommit;
930 my $e = "WARNING: $options{method} captured but payment not recorded - ".
931 "error updating status for paypendingnum ".
932 $cust_pay_pending->paypendingnum. ": $cpp_done_err \n";
938 $dbh->commit or die $dbh->errstr if $oldAutoCommit;
940 if ( $options{'apply'} ) {
941 my $apply_error = $self->apply_payments_and_credits;
942 if ( $apply_error ) {
943 warn "WARNING: error applying payment: $apply_error\n";
944 #but we still should return no error cause the payment otherwise went
949 # have a CC surcharge portion --> one-time charge
950 if ( $options{'cc_surcharge'} > 0 ) {
951 # XXX: this whole block needs to be in a transaction?
954 $invnum = $options{'invnum'} if $options{'invnum'};
955 unless ( $invnum ) { # probably from a payment screen
956 # do we have any open invoices? pick earliest
957 # uses the fact that cust_main->cust_bill sorts by date ascending
958 my @open = $self->open_cust_bill;
959 $invnum = $open[0]->invnum if scalar(@open);
962 unless ( $invnum ) { # still nothing? pick last closed invoice
963 # again uses fact that cust_main->cust_bill sorts by date ascending
964 my @closed = $self->cust_bill;
965 $invnum = $closed[$#closed]->invnum if scalar(@closed);
969 # XXX: unlikely case - pre-paying before any invoices generated
970 # what it should do is create a new invoice and pick it
971 warn 'CC SURCHARGE AND NO INVOICES PICKED TO APPLY IT!';
976 my $charge_error = $self->charge({
977 'amount' => $options{'cc_surcharge'},
978 'pkg' => 'Credit Card Surcharge',
980 'cust_pkg_ref' => \$cust_pkg,
983 warn 'Unable to add CC surcharge cust_pkg';
987 $cust_pkg->setup(time);
988 my $cp_error = $cust_pkg->replace;
990 warn 'Unable to set setup time on cust_pkg for cc surcharge';
994 my $cust_bill = qsearchs('cust_bill', { 'invnum' => $invnum });
995 unless ( $cust_bill ) {
996 warn "race condition + invoice deletion just happened";
1001 $cust_bill->add_cc_surcharge($cust_pkg->pkgnum,$options{'cc_surcharge'});
1003 warn "cannot add CC surcharge to invoice #$invnum: $grand_error"
1007 return ''; #no error
1013 my $perror = $payment_gateway->gateway_module. " error: ".
1014 $transaction->error_message;
1016 my $jobnum = $cust_pay_pending->jobnum;
1018 my $placeholder = qsearchs( 'queue', { 'jobnum' => $jobnum } );
1020 if ( $placeholder ) {
1021 my $error = $placeholder->depended_delete;
1022 $error ||= $placeholder->delete;
1023 warn "error removing provisioning jobs after declined paypendingnum ".
1024 $cust_pay_pending->paypendingnum. ": $error\n";
1026 my $e = "error finding job $jobnum for declined paypendingnum ".
1027 $cust_pay_pending->paypendingnum. "\n";
1033 unless ( $transaction->error_message ) {
1036 if ( $transaction->can('response_page') ) {
1038 'page' => ( $transaction->can('response_page')
1039 ? $transaction->response_page
1042 'code' => ( $transaction->can('response_code')
1043 ? $transaction->response_code
1046 'headers' => ( $transaction->can('response_headers')
1047 ? $transaction->response_headers
1053 "No additional debugging information available for ".
1054 $payment_gateway->gateway_module;
1057 $perror .= "No error_message returned from ".
1058 $payment_gateway->gateway_module. " -- ".
1059 ( ref($t_response) ? Dumper($t_response) : $t_response );
1063 if ( !$options{'quiet'} && !$realtime_bop_decline_quiet
1064 && $conf->exists('emaildecline', $self->agentnum)
1065 && grep { $_ ne 'POST' } $self->invoicing_list
1066 && ! grep { $transaction->error_message =~ /$_/ }
1067 $conf->config('emaildecline-exclude', $self->agentnum)
1070 # Send a decline alert to the customer.
1071 my $msgnum = $conf->config('decline_msgnum', $self->agentnum);
1074 # include the raw error message in the transaction state
1075 $cust_pay_pending->setfield('error', $transaction->error_message);
1076 my $msg_template = qsearchs('msg_template', { msgnum => $msgnum });
1077 $error = $msg_template->send( 'cust_main' => $self,
1078 'object' => $cust_pay_pending );
1082 my @templ = $conf->config('declinetemplate');
1083 my $template = new Text::Template (
1085 SOURCE => [ map "$_\n", @templ ],
1086 ) or return "($perror) can't create template: $Text::Template::ERROR";
1087 $template->compile()
1088 or return "($perror) can't compile template: $Text::Template::ERROR";
1092 scalar( $conf->config('company_name', $self->agentnum ) ),
1093 'company_address' =>
1094 join("\n", $conf->config('company_address', $self->agentnum ) ),
1095 'error' => $transaction->error_message,
1098 my $error = send_email(
1099 'from' => $conf->config('invoice_from', $self->agentnum ),
1100 'to' => [ grep { $_ ne 'POST' } $self->invoicing_list ],
1101 'subject' => 'Your payment could not be processed',
1102 'body' => [ $template->fill_in(HASH => $templ_hash) ],
1106 $perror .= " (also received error sending decline notification: $error)"
1111 $cust_pay_pending->status('done');
1112 $cust_pay_pending->statustext("declined: $perror");
1113 my $cpp_done_err = $cust_pay_pending->replace;
1114 if ( $cpp_done_err ) {
1115 my $e = "WARNING: $options{method} declined but pending payment not ".
1116 "resolved - error updating status for paypendingnum ".
1117 $cust_pay_pending->paypendingnum. ": $cpp_done_err \n";
1119 $perror = "$e ($perror)";
1127 =item realtime_botpp_capture CUST_PAY_PENDING [ OPTION => VALUE ... ]
1129 Verifies successful third party processing of a realtime credit card,
1130 ACH (electronic check) or phone bill transaction via a
1131 Business::OnlineThirdPartyPayment realtime gateway. See
1132 L<http://420.am/business-onlinethirdpartypayment> for supported gateways.
1134 Available options are: I<description>, I<invnum>, I<quiet>, I<paynum_ref>, I<payunique>
1136 The additional options I<payname>, I<city>, I<state>,
1137 I<zip>, I<payinfo> and I<paydate> are also available. Any of these options,
1138 if set, will override the value from the customer record.
1140 I<description> is a free-text field passed to the gateway. It defaults to
1141 "Internet services".
1143 If an I<invnum> is specified, this payment (if successful) is applied to the
1144 specified invoice. If you don't specify an I<invnum> you might want to
1145 call the B<apply_payments> method.
1147 I<quiet> can be set true to surpress email decline notices.
1149 I<paynum_ref> can be set to a scalar reference. It will be filled in with the
1150 resulting paynum, if any.
1152 I<payunique> is a unique identifier for this payment.
1154 Returns a hashref containing elements bill_error (which will be undefined
1155 upon success) and session_id of any associated session.
1159 sub realtime_botpp_capture {
1160 my( $self, $cust_pay_pending, %options ) = @_;
1162 local($DEBUG) = $FS::cust_main::DEBUG if $FS::cust_main::DEBUG > $DEBUG;
1165 warn "$me realtime_botpp_capture: pending transaction $cust_pay_pending\n";
1166 warn " $_ => $options{$_}\n" foreach keys %options;
1169 eval "use Business::OnlineThirdPartyPayment";
1173 # select the gateway
1176 my $method = FS::payby->payby2bop($cust_pay_pending->payby);
1178 my $payment_gateway;
1179 my $gatewaynum = $cust_pay_pending->getfield('gatewaynum');
1180 $payment_gateway = $gatewaynum ? qsearchs( 'payment_gateway',
1181 { gatewaynum => $gatewaynum }
1183 : $self->agent->payment_gateway( 'method' => $method,
1184 # 'invnum' => $cust_pay_pending->invnum,
1185 # 'payinfo' => $cust_pay_pending->payinfo,
1188 $options{payment_gateway} = $payment_gateway; # for the helper subs
1194 my @invoicing_list = $self->invoicing_list_emailonly;
1195 if ( $conf->exists('emailinvoiceautoalways')
1196 || $conf->exists('emailinvoiceauto') && ! @invoicing_list
1197 || ( $conf->exists('emailinvoiceonly') && ! @invoicing_list ) ) {
1198 push @invoicing_list, $self->all_emails;
1201 my $email = ($conf->exists('business-onlinepayment-email-override'))
1202 ? $conf->config('business-onlinepayment-email-override')
1203 : $invoicing_list[0];
1207 $content{email_customer} =
1208 ( $conf->exists('business-onlinepayment-email_customer')
1209 || $conf->exists('business-onlinepayment-email-override') );
1212 # run transaction(s)
1216 new Business::OnlineThirdPartyPayment( $payment_gateway->gateway_module,
1217 $self->_bop_options(\%options),
1220 $transaction->reference({ %options });
1222 $transaction->content(
1224 $self->_bop_auth(\%options),
1225 'action' => 'Post Authorization',
1226 'description' => $options{'description'},
1227 'amount' => $cust_pay_pending->paid,
1228 #'invoice_number' => $options{'invnum'},
1229 'customer_id' => $self->custnum,
1231 #3.0 is a good a time as any to get rid of this... add a config to pass it
1232 # if anyone still needs it
1233 #'referer' => 'http://cleanwhisker.420.am/',
1235 'reference' => $cust_pay_pending->paypendingnum,
1237 'phone' => $self->daytime || $self->night,
1239 # plus whatever is required for bogus capture avoidance
1242 $transaction->submit();
1245 $self->_realtime_bop_result( $cust_pay_pending, $transaction, %options );
1247 if ( $options{'apply'} ) {
1248 my $apply_error = $self->apply_payments_and_credits;
1249 if ( $apply_error ) {
1250 warn "WARNING: error applying payment: $apply_error\n";
1255 bill_error => $error,
1256 session_id => $cust_pay_pending->session_id,
1261 =item default_payment_gateway
1263 DEPRECATED -- use agent->payment_gateway
1267 sub default_payment_gateway {
1268 my( $self, $method ) = @_;
1270 die "Real-time processing not enabled\n"
1271 unless $conf->exists('business-onlinepayment');
1273 #warn "default_payment_gateway deprecated -- use agent->payment_gateway\n";
1276 my $bop_config = 'business-onlinepayment';
1277 $bop_config .= '-ach'
1278 if $method =~ /^(ECHECK|CHEK)$/ && $conf->exists($bop_config. '-ach');
1279 my ( $processor, $login, $password, $action, @bop_options ) =
1280 $conf->config($bop_config);
1281 $action ||= 'normal authorization';
1282 pop @bop_options if scalar(@bop_options) % 2 && $bop_options[-1] =~ /^\s*$/;
1283 die "No real-time processor is enabled - ".
1284 "did you set the business-onlinepayment configuration value?\n"
1287 ( $processor, $login, $password, $action, @bop_options )
1290 =item realtime_refund_bop METHOD [ OPTION => VALUE ... ]
1292 Refunds a realtime credit card, ACH (electronic check) or phone bill transaction
1293 via a Business::OnlinePayment realtime gateway. See
1294 L<http://420.am/business-onlinepayment> for supported gateways.
1296 Available methods are: I<CC>, I<ECHECK> and I<LEC>
1298 Available options are: I<amount>, I<reason>, I<paynum>, I<paydate>
1300 Most gateways require a reference to an original payment transaction to refund,
1301 so you probably need to specify a I<paynum>.
1303 I<amount> defaults to the original amount of the payment if not specified.
1305 I<reason> specifies a reason for the refund.
1307 I<paydate> specifies the expiration date for a credit card overriding the
1308 value from the customer record or the payment record. Specified as yyyy-mm-dd
1310 Implementation note: If I<amount> is unspecified or equal to the amount of the
1311 orignal payment, first an attempt is made to "void" the transaction via
1312 the gateway (to cancel a not-yet settled transaction) and then if that fails,
1313 the normal attempt is made to "refund" ("credit") the transaction via the
1314 gateway is attempted. No attempt to "void" the transaction is made if the
1315 gateway has introspection data and doesn't support void.
1317 #The additional options I<payname>, I<address1>, I<address2>, I<city>, I<state>,
1318 #I<zip>, I<payinfo> and I<paydate> are also available. Any of these options,
1319 #if set, will override the value from the customer record.
1321 #If an I<invnum> is specified, this payment (if successful) is applied to the
1322 #specified invoice. If you don't specify an I<invnum> you might want to
1323 #call the B<apply_payments> method.
1327 #some false laziness w/realtime_bop, not enough to make it worth merging
1328 #but some useful small subs should be pulled out
1329 sub realtime_refund_bop {
1332 local($DEBUG) = $FS::cust_main::DEBUG if $FS::cust_main::DEBUG > $DEBUG;
1335 if (ref($_[0]) eq 'HASH') {
1336 %options = %{$_[0]};
1340 $options{method} = $method;
1344 warn "$me realtime_refund_bop (new): $options{method} refund\n";
1345 warn " $_ => $options{$_}\n" foreach keys %options;
1349 # look up the original payment and optionally a gateway for that payment
1353 my $amount = $options{'amount'};
1355 my( $processor, $login, $password, @bop_options, $namespace ) ;
1356 my( $auth, $order_number ) = ( '', '', '' );
1357 my $gatewaynum = '';
1359 if ( $options{'paynum'} ) {
1361 warn " paynum: $options{paynum}\n" if $DEBUG > 1;
1362 $cust_pay = qsearchs('cust_pay', { paynum=>$options{'paynum'} } )
1363 or return "Unknown paynum $options{'paynum'}";
1364 $amount ||= $cust_pay->paid;
1366 if ( $cust_pay->get('processor') ) {
1367 ($gatewaynum, $processor, $auth, $order_number) =
1369 $cust_pay->gatewaynum,
1370 $cust_pay->processor,
1372 $cust_pay->order_number,
1375 # this payment wasn't upgraded, which probably means this won't work,
1377 $cust_pay->paybatch =~ /^((\d+)\-)?(\w+):\s*([\w\-\/ ]*)(:([\w\-]+))?$/
1378 or return "Can't parse paybatch for paynum $options{'paynum'}: ".
1379 $cust_pay->paybatch;
1380 ( $gatewaynum, $processor, $auth, $order_number ) = ( $2, $3, $4, $6 );
1383 if ( $gatewaynum ) { #gateway for the payment to be refunded
1385 my $payment_gateway =
1386 qsearchs('payment_gateway', { 'gatewaynum' => $gatewaynum } );
1387 die "payment gateway $gatewaynum not found"
1388 unless $payment_gateway;
1390 $processor = $payment_gateway->gateway_module;
1391 $login = $payment_gateway->gateway_username;
1392 $password = $payment_gateway->gateway_password;
1393 $namespace = $payment_gateway->gateway_namespace;
1394 @bop_options = $payment_gateway->options;
1396 } else { #try the default gateway
1399 my $payment_gateway =
1400 $self->agent->payment_gateway('method' => $options{method});
1402 ( $conf_processor, $login, $password, $namespace ) =
1403 map { my $method = "gateway_$_"; $payment_gateway->$method }
1404 qw( module username password namespace );
1406 @bop_options = $payment_gateway->gatewaynum
1407 ? $payment_gateway->options
1408 : @{ $payment_gateway->get('options') };
1410 return "processor of payment $options{'paynum'} $processor does not".
1411 " match default processor $conf_processor"
1412 unless $processor eq $conf_processor;
1417 } else { # didn't specify a paynum, so look for agent gateway overrides
1418 # like a normal transaction
1420 my $payment_gateway =
1421 $self->agent->payment_gateway( 'method' => $options{method},
1422 #'payinfo' => $payinfo,
1424 my( $processor, $login, $password, $namespace ) =
1425 map { my $method = "gateway_$_"; $payment_gateway->$method }
1426 qw( module username password namespace );
1428 my @bop_options = $payment_gateway->gatewaynum
1429 ? $payment_gateway->options
1430 : @{ $payment_gateway->get('options') };
1433 return "neither amount nor paynum specified" unless $amount;
1435 eval "use $namespace";
1439 'type' => $options{method},
1441 'password' => $password,
1442 'order_number' => $order_number,
1443 'amount' => $amount,
1445 #3.0 is a good a time as any to get rid of this... add a config to pass it
1446 # if anyone still needs it
1447 #'referer' => 'http://cleanwhisker.420.am/',
1449 $content{authorization} = $auth
1450 if length($auth); #echeck/ACH transactions have an order # but no auth
1451 #(at least with authorize.net)
1453 my $currency = $conf->exists('business-onlinepayment-currency')
1454 && $conf->config('business-onlinepayment-currency');
1455 $content{currency} = $currency if $currency;
1457 my $disable_void_after;
1458 if ($conf->exists('disable_void_after')
1459 && $conf->config('disable_void_after') =~ /^(\d+)$/) {
1460 $disable_void_after = $1;
1463 #first try void if applicable
1464 my $void = new Business::OnlinePayment( $processor, @bop_options );
1467 if ($void->can('info')) {
1469 $paytype = 'ECHECK' if $cust_pay && $cust_pay->payby eq 'CHEK';
1470 $paytype = 'CC' if $cust_pay && $cust_pay->payby eq 'CARD';
1471 my %supported_actions = $void->info('supported_actions');
1473 if ( %supported_actions && $paytype
1474 && defined($supported_actions{$paytype})
1475 && !grep{ $_ eq 'Void' } @{$supported_actions{$paytype}} );
1478 if ( $cust_pay && $cust_pay->paid == $amount
1480 ( not defined($disable_void_after) )
1481 || ( time < ($cust_pay->_date + $disable_void_after ) )
1485 warn " attempting void\n" if $DEBUG > 1;
1486 if ( $void->can('info') ) {
1487 if ( $cust_pay->payby eq 'CARD'
1488 && $void->info('CC_void_requires_card') )
1490 $content{'card_number'} = $cust_pay->payinfo;
1491 } elsif ( $cust_pay->payby eq 'CHEK'
1492 && $void->info('ECHECK_void_requires_account') )
1494 ( $content{'account_number'}, $content{'routing_code'} ) =
1495 split('@', $cust_pay->payinfo);
1496 $content{'name'} = $self->get('first'). ' '. $self->get('last');
1499 $void->content( 'action' => 'void', %content );
1500 $void->test_transaction(1)
1501 if $conf->exists('business-onlinepayment-test_transaction');
1503 if ( $void->is_success ) {
1504 my $error = $cust_pay->void($options{'reason'});
1506 # gah, even with transactions.
1507 my $e = 'WARNING: Card/ACH voided but database not updated - '.
1508 "error voiding payment: $error";
1512 warn " void successful\n" if $DEBUG > 1;
1517 warn " void unsuccessful, trying refund\n"
1521 my $address = $self->address1;
1522 $address .= ", ". $self->address2 if $self->address2;
1524 my($payname, $payfirst, $paylast);
1525 if ( $self->payname && $options{method} ne 'ECHECK' ) {
1526 $payname = $self->payname;
1527 $payname =~ /^\s*([\w \,\.\-\']*)?\s+([\w\,\.\-\']+)\s*$/
1528 or return "Illegal payname $payname";
1529 ($payfirst, $paylast) = ($1, $2);
1531 $payfirst = $self->getfield('first');
1532 $paylast = $self->getfield('last');
1533 $payname = "$payfirst $paylast";
1536 my @invoicing_list = $self->invoicing_list_emailonly;
1537 if ( $conf->exists('emailinvoiceautoalways')
1538 || $conf->exists('emailinvoiceauto') && ! @invoicing_list
1539 || ( $conf->exists('emailinvoiceonly') && ! @invoicing_list ) ) {
1540 push @invoicing_list, $self->all_emails;
1543 my $email = ($conf->exists('business-onlinepayment-email-override'))
1544 ? $conf->config('business-onlinepayment-email-override')
1545 : $invoicing_list[0];
1547 my $payip = exists($options{'payip'})
1550 $content{customer_ip} = $payip
1554 if ( $options{method} eq 'CC' ) {
1557 $content{card_number} = $payinfo = $cust_pay->payinfo;
1558 (exists($options{'paydate'}) ? $options{'paydate'} : $cust_pay->paydate)
1559 =~ /^\d{2}(\d{2})[\/\-](\d+)[\/\-]\d+$/ &&
1560 ($content{expiration} = "$2/$1"); # where available
1562 $content{card_number} = $payinfo = $self->payinfo;
1563 (exists($options{'paydate'}) ? $options{'paydate'} : $self->paydate)
1564 =~ /^\d{2}(\d{2})[\/\-](\d+)[\/\-]\d+$/;
1565 $content{expiration} = "$2/$1";
1568 } elsif ( $options{method} eq 'ECHECK' ) {
1571 $payinfo = $cust_pay->payinfo;
1573 $payinfo = $self->payinfo;
1575 ( $content{account_number}, $content{routing_code} )= split('@', $payinfo );
1576 $content{bank_name} = $self->payname;
1577 $content{account_type} = 'CHECKING';
1578 $content{account_name} = $payname;
1579 $content{customer_org} = $self->company ? 'B' : 'I';
1580 $content{customer_ssn} = $self->ss;
1581 } elsif ( $options{method} eq 'LEC' ) {
1582 $content{phone} = $payinfo = $self->payinfo;
1586 my $refund = new Business::OnlinePayment( $processor, @bop_options );
1587 my %sub_content = $refund->content(
1588 'action' => 'credit',
1589 'customer_id' => $self->custnum,
1590 'last_name' => $paylast,
1591 'first_name' => $payfirst,
1593 'address' => $address,
1594 'city' => $self->city,
1595 'state' => $self->state,
1596 'zip' => $self->zip,
1597 'country' => $self->country,
1599 'phone' => $self->daytime || $self->night,
1602 warn join('', map { " $_ => $sub_content{$_}\n" } keys %sub_content )
1604 $refund->test_transaction(1)
1605 if $conf->exists('business-onlinepayment-test_transaction');
1608 return "$processor error: ". $refund->error_message
1609 unless $refund->is_success();
1611 $order_number = $refund->order_number if $refund->can('order_number');
1613 while ( $cust_pay && $cust_pay->unapplied < $amount ) {
1614 my @cust_bill_pay = $cust_pay->cust_bill_pay;
1615 last unless @cust_bill_pay;
1616 my $cust_bill_pay = pop @cust_bill_pay;
1617 my $error = $cust_bill_pay->delete;
1621 my $cust_refund = new FS::cust_refund ( {
1622 'custnum' => $self->custnum,
1623 'paynum' => $options{'paynum'},
1624 'refund' => $amount,
1626 'payby' => $bop_method2payby{$options{method}},
1627 'payinfo' => $payinfo,
1628 'reason' => $options{'reason'} || 'card or ACH refund',
1629 'gatewaynum' => $gatewaynum, # may be null
1630 'processor' => $processor,
1631 'auth' => $refund->authorization,
1632 'order_number' => $order_number,
1634 my $error = $cust_refund->insert;
1636 $cust_refund->paynum(''); #try again with no specific paynum
1637 my $error2 = $cust_refund->insert;
1639 # gah, even with transactions.
1640 my $e = 'WARNING: Card/ACH refunded but database not updated - '.
1641 "error inserting refund ($processor): $error2".
1642 " (previously tried insert with paynum #$options{'paynum'}" .
1661 L<FS::cust_main>, L<FS::cust_main::Billing>