'part_pkg' =>
[
- map { $_->hashref }
+ #map { $_->hashref }
+ map { { 'payby' => [ $_->payby ], %{$_->hashref} } }
grep { $_->svcpart('svc_acct') && $pkgpart_href->{ $_->pkgpart } }
qsearch( 'part_pkg', { 'disabled' => '' } )
],
warn "[fs_signup_server] Sending results...\n" if $Debug;
print $writer $error, "\n";
- if ( $conf->config('signup_server-realtime') ) {
-
+ next if $error;
+
+ if ( $conf->exists('signup_server-realtime') ) {
+
+ warn "[fs_signup_server] Billing customer...\n" if $Debug;
+
my $bill_error = $cust_main->bill;
warn "[fs_signup_server] error billing new customer: $bill_error"
if $bill_error;
}
}
- if ( $error && $conf->config('signup_server-email') ) {
+ if ( $conf->config('signup_server-email') ) {
warn "[fs_signup_server] Sending email...\n" if $Debug;
#false laziness w/FS::cust_bill::send & FS::cust_pay::delete
use Mail::Header;
use Mail::Internet;
+ use Date::Format;
my $from = $conf->config('invoice_from'); #??? as good as any
$ENV{MAILADDRESS} = $from;
my $header = new Mail::Header ( [