diff options
| author | Mark Wells <mark@freeside.biz> | 2015-08-29 13:58:58 -0700 |
|---|---|---|
| committer | Mark Wells <mark@freeside.biz> | 2015-08-29 13:58:58 -0700 |
| commit | 2631ae913a1546b2f54f1355017e34b8b4a088bd (patch) | |
| tree | ce9d014800afbf0a595ce2649cd7cc53d44eeb7f /FS/FS/cust_msg.pm | |
| parent | a008b601383d5693a197f4bf57ed5ba7887f3065 (diff) | |
#21564: queueable sending
Diffstat (limited to 'FS/FS/cust_msg.pm')
| -rw-r--r-- | FS/FS/cust_msg.pm | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/FS/FS/cust_msg.pm b/FS/FS/cust_msg.pm index ec2c961..db02680 100644 --- a/FS/FS/cust_msg.pm +++ b/FS/FS/cust_msg.pm @@ -205,6 +205,25 @@ sub parts { =back +=head1 SUBROUTINES + +=over 4 + +=item process_send CUSTMSGNUM + +Given a C<cust_msg.custmsgnum> value, sends the message. It must already +have been prepared (via L<FS::msg_template/prepare>). + +=cut + +sub process_send { + my $custmsgnum = shift; + my $cust_msg = FS::cust_msg->by_key($custmsgnum) + or die "cust_msg #$custmsgnum not found"; + my $error = $cust_msg->send; + die $error if $error; +} + =head1 SEE ALSO L<FS::msg_template>, L<FS::cust_main>, L<FS::Record>. |