use FS::queue;
use FS::reg_code;
use FS::payby;
+use FS::banned_pay;
$DEBUG = 0;
$me = '[FS::ClientAPI::Signup]';
qw( body_bgcolor box_bgcolor menu_bgcolor ) ),
( map { $_ => join("\n", $conf->config("selfservice-$_", $agentnum ) ) }
qw( head body_header body_footer ) ),
+ ( map { $_ => join("\n", $conf->config("signup_server-$_", $agentnum ) ) }
+ qw( terms_of_service ) ),
};
$cache->set("signup_info_cache_agent$agentnum", $signup_info_cache_agent);
payinfo paycvv paydate payname paystate paytype
paystart_month paystart_year payissue
payip
+ override_ban_warn
referral_custnum comments
)
$error = $placeholder->delete;
return { 'error' => $error } if $error;
+ if ( $conf->exists('signup-duplicate_cc-warn_hours') ) {
+ my $hours = $conf->config('signup-duplicate_cc-warn_hours');
+ my $ban = new FS::banned_pay $cust_main->_new_banned_pay_hashref;
+ $ban->end_date( int( time + $hours*3600 ) );
+ $ban->bantype('warn');
+ $ban->reason('signup-duplicate_cc-warn_hours');
+ $error = $ban->insert;
+ warn "WARNING: error inserting temporary banned_pay for ".
+ " signup-duplicate_cc-warn_hours (proceeding anyway): $error"
+ if $error;
+ }
+
my %return = ( 'error' => '',
'signup_service' => $svc_x,
'custnum' => $cust_main->custnum,
return { error => '_decline', bill_error => $bill_error };
}
- if ($cust_pay_pending->status ne 'pending') {
- my $bill_error = "Payment with id $paypendingnum is not pending, but ".
+ if ($cust_pay_pending->status ne 'thirdparty') {
+ my $bill_error = "Payment with id $paypendingnum is not thirdparty, but ".
$cust_pay_pending->status. "; Transaction aborted.";
return { error => '_decline', bill_error => $bill_error };
}