#payby conditions to new ones
'part_event_condition' => [],
+ #payby actions to new ones
+ 'part_event' => [],
+
#cust_main (remove paycvv from history, locations, cust_payby, etc)
'cust_main' => [],
=over 4
+=item realtime_cust_payby
+
+=cut
+
+sub realtime_cust_payby {
+ my( $self, %options ) = @_;
+
+ local($DEBUG) = $FS::cust_main::DEBUG if $FS::cust_main::DEBUG > $DEBUG;
+
+ $options{amount} = $self->balance unless exists( $options{amount} );
+
+ my @cust_payby = qsearch({
+ 'table' => 'cust_payby',
+ 'hashref' => { 'custnum' => $self->custnum, },
+ 'extra_sql' => " AND payby IN ( 'CARD', 'CHEK' ) ",
+ 'order_by' => 'ORDER BY weight ASC',
+ });
+
+ my $error;
+ foreach my $cust_payby (@cust_payby) {
+ $error = $cust_payby->realtime_bop( %options, );
+ last unless $error;
+ }
+
+ #XXX what about the earlier errors?
+
+ $error;
+
+}
+
=item realtime_collect [ OPTION => VALUE ... ]
Attempt to collect the customer's current balance with a realtime credit
$part_event->initialize;
}
+sub _upgrade_data { #class method
+ my ($class, %opts) = @_;
+
+ foreach my $part_event (
+ qsearch('part_event', { 'action' => 'cust_bill_realtime_card' }),
+ qsearch('part_event', { 'action' => 'cust_bill_realtime_check' }),
+ ) {
+
+ $part_event->action('realtime_auto');
+ my $error = $part_event->replace;
+ die $error if $error;
+
+ }
+
+}
+
=back
=head1 SEE ALSO
--- /dev/null
+package FS::part_event::Action::realtime_auto;
+
+use strict;
+use base qw( FS::part_event::Action );
+
+sub description {
+ #'Run card with a <a href="http://420.am/business-onlinepayment/">Business::OnlinePayment</a> realtime gateway';
+ 'Run card or check with a Business::OnlinePayment realtime gateway';
+}
+
+sub eventtable_hashref {
+ { 'cust_bill' => 1,
+ 'cust_main' => 1,
+ };
+}
+
+sub default_weight { 30; }
+
+sub do_action {
+ my( $self, $object ) = @_;
+
+ my $cust_main = $self->cust_main($object);
+
+ my %opt = ('cc_surcharge_from_event' => 1);
+
+ my $amount;
+ my $balance = $cust_main->balance;
+ if ( ref($object) eq 'FS::cust_main' ) {
+ $amount = $balance;
+ } elsif ( ref($object) eq 'FS::cust_bill' ) {
+ $amount = ( $balance < $object->owed ) ? $balance : $object->owed;
+ $opt{'invnum'} = $object->invnum;
+ } else {
+ die 'guru meditation #5454.au';
+ }
+
+ $cust_main->realtime_cust_payby( 'amount' => $amount, %opt, );
+
+}
+
+1;