FS/FS/part_event/Action/cust_statement_send.pm

   1 package FS::part_event::Action::cust_statement_send;
   2
   3 use strict;
   4
   5 use base qw( FS::part_event::Action );
   6
   7 sub description {
   8   'Send statement (email/print/fax)';
   9 }
  10
  11 sub eventtable_hashref {
  12   { 'cust_statement' => 1, };
  13 }
  14
  15 sub default_weight {
  16   95;
  17 }
  18
  19 sub do_action {
  20   my( $self, $cust_statement ) = @_;
  21
  22   $cust_statement->send( 'template' => 'statement' ); #XXX configure
  23                                                       #XXX use an invoice mode?
  24
  25 }
  26
  27 1;