Emailing statements of accounts, RT#4860

[freeside.git] / FS / FS / part_event / Action / cust_statement_send.pm

diff --git a/FS/FS/part_event/Action/cust_statement_send.pm b/FS/FS/part_event/Action/cust_statement_send.pm
new file mode 100644 (file)
index 0000000..34f023e
--- /dev/null
+++ b/FS/FS/part_event/Action/cust_statement_send.pm
@@ -0,0 +1,26 @@
+package FS::part_event::Action::cust_statement_send;
+
+use strict;
+
+use base qw( FS::part_event::Action );
+
+sub description {
+  'Send statement (email/print/fax)';
+}
+
+sub eventtable_hashref {
+  { 'cust_statement' => 1, };
+}
+
+sub default_weight {
+  95;
+}
+
+sub do_action {
+  my( $self, $cust_statement ) = @_;
+
+  $cust_statement->send;
+
+}
+
+1;