optimize invoice rendering with lots of CDRs, RT#15155
[freeside.git] / 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;