my $msgnum = $conf->config('alerter_msgnum', $agentnum);
if ( $msgnum ) { # new hotness
my $msg_template = qsearchs('msg_template', { msgnum => $msgnum } );
+ $customer->setfield('expdate', $expire_time);
$error = $msg_template->send('cust_main' => $customer);
}
else { #!$msgnum, the hard way
$_
} @$guts;
- $body = '';
+ $body = '{ use Date::Format qw(time2str); "" }';
while(@$skin || @$guts) {
$body .= shift(@$skin) || '';
$body .= shift(@$guts) || '';
cust_status ucfirst_cust_status cust_statuscolor
signupdate dundate
+ expdate
),
+ # expdate is a special case
[ signupdate_ymd => sub { time2str('%Y-%m-%d', shift->signupdate) } ],
[ dundate_ymd => sub { time2str('%Y-%m-%d', shift->dundate) } ],
[ paydate_my => sub { sprintf('%02d/%04d', shift->paydate_monthyear) } ],