1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
|
package FS::part_event::Action::notice_to;
use strict;
use base qw( FS::part_event::Action );
use FS::Record qw( qsearchs );
use FS::msg_template;
sub description { 'Email a notice to a specific address'; }
#sub eventtable_hashref {
# { 'cust_main' => 1,
# 'cust_bill' => 1,
# 'cust_pkg' => 1,
# };
#}
sub option_fields {
(
'to' => { 'label' => 'Destination',
'type' => 'text',
'size' => 30,
},
'msgnum' => { 'label' => 'Template',
'type' => 'select-table',
'table' => 'msg_template',
'name_col' => 'msgname',
'hashref' => { disabled => '' },
'disable_empty' => 1,
},
);
}
sub default_weight { 56; } #?
sub do_action {
my( $self, $object ) = @_;
my $cust_main = $self->cust_main($object);
my $msgnum = $self->option('msgnum');
my $msg_template = qsearchs('msg_template', { 'msgnum' => $msgnum } )
or die "Template $msgnum not found";
my $to = $self->option('to')
or die "Can't send notice without a destination address";
$msg_template->send(
'to' => $to,
'cust_main' => $cust_main,
'object' => $object,
);
}
1;
|