diff options
| -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 ec2c961a3..db026808c 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>. |