X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2Fcust_msg.pm;h=db026808c5b6ca73044b2c2f0c466ed1b1a926d0;hp=ec2c961a338d337b152ed8826f91d4ec4bb25bae;hb=2631ae913a1546b2f54f1355017e34b8b4a088bd;hpb=a008b601383d5693a197f4bf57ed5ba7887f3065 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 value, sends the message. It must already +have been prepared (via L). + +=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, L, L.