$DEBUG = 0;
$me = '[FS::ClientAPI::Signup]';
+sub clear_cache {
+ warn "$me clear_cache called\n" if $DEBUG;
+ my $cache = new FS::ClientAPI_SessionCache( {
+ 'namespace' => 'FS::ClientAPI::Signup',
+ } );
+ $cache->clear();
+ return {};
+}
+
sub signup_info {
my $packet = shift;
],
'agent' => [ map { my $agent = $_;
- map { $_ => $agent->get($_) } @agent_fields;
+ +{ map { $_ => $agent->get($_) } @agent_fields }
}
qsearch('agent', { 'disabled' => '' } )
],
'payby' => [ $conf->config('signup_server-payby') ],
+ 'payby_longname' => [ map { FS::payby->longname($_) }
+ $conf->config('signup_server-payby') ],
+
'card_types' => card_types(),
'paytypes' => [ @FS::cust_main::paytypes ],
if ( $conf->exists('signup_server-realtime') ) {
- #warn "[fs_signup_server] Billing customer...\n" if $Debug;
+ #warn "$me Billing customer...\n" if $Debug;
my $bill_error = $cust_main->bill;
- #warn "[fs_signup_server] error billing new customer: $bill_error"
+ #warn "$me error billing new customer: $bill_error"
# if $bill_error;
$bill_error = $cust_main->apply_payments_and_credits;
- #warn "[fs_signup_server] error applying payments and credits for".
+ #warn "$me error applying payments and credits for".
# " new customer: $bill_error"
# if $bill_error;
method => FS::payby->payby2bop( $packet->{payby} ),
depend_jobnum => $placeholder->jobnum,
);
- #warn "[fs_signup_server] error collecting from new customer: $bill_error"
+ #warn "$me error collecting from new customer: $bill_error"
# if $bill_error;
if ($bill_error && ref($bill_error) eq 'HASH') {
};
}
+ $bill_error = $cust_main->apply_payments_and_credits;
+ #warn "$me error applying payments and credits for".
+ # " new customer: $bill_error"
+ # if $bill_error;
+
if ( $cust_main->balance > 0 ) {
#this makes sense. credit is "un-doing" the invoice