FS/FS/part_event/Action/cust_statement.pm

   1 package FS::part_event::Action::cust_statement;
   2
   3 use strict;
   4
   5 use base qw( FS::part_event::Action );
   6
   7 use FS::cust_statement;
   8
   9 sub description {
  10   'Group invoices into an informational statement.';
  11 }
  12
  13 sub eventtable_hashref {
  14   { 'cust_main' => 1,
  15     'cust_pkg'  => 1,
  16   };
  17 }
  18
  19 sub default_weight {
  20   90;
  21 }
  22
  23 sub do_action {
  24   my( $self, $cust_main ) = @_;
  25
  26   #my( $self, $object ) = @_;
  27   #my $cust_main = $self->cust_main($object);
  28
  29   my $cust_statement = new FS::cust_statement {
  30     'custnum' => $cust_main->custnum
  31   };
  32   my $error = $cust_statement->insert;
  33   die $error if $error;
  34
  35   '';
  36
  37 }
  38
  39 1;