my($class, $param) = @_;
my $conf = FS::Conf->new;
- my $send_to_domain = $conf->config('send-to-domain');
+ my $send_to_domain = $conf->config('email-to-voice_domain');
my $msgnum = $param->{msgnum};
my $from = delete $param->{from};
next; # unlinked object; nothing else we can do
}
- my %to = {};
- if ($to) { $to{'to'} = $to; }
+ my %to = ( to => $to ) if $to;
if ( $msg_template ) {
# Now supports other context objects.
if (!@classes) {
@classes = ( 'invoice' );
}
- my @to = $cust_main->contact_list_email(@classes);
+ my @to = $to ? split(',', $to) : $cust_main->contact_list_email(@classes);
next if !@to;
%message = (
}
my $balance = $cust_main->balance || 0;
if ($balance <= $maxbalance) {
- my @errors = $cust_main->unsuspend;
+ my @errors = $cust_main->unsuspend(
+ 'reason_type' => $conf->config('unsuspend_reason_type')
+ );
# side-fx with nested transactions? upstack rolls back?
warn "WARNING:Errors unsuspending customer ". $cust_main->custnum. ": ".
join(' / ', @errors)