my $subs = $self->substitutions;
- use Data::Dumper;
- warn Dumper($subs);
-
#XXX html escape this stuff
my %hash = map { $_ => $cust_main->$_() } @{ $subs->{'cust_main'} };
unless ( ! $object || $object->table eq 'cust_main' ) {
%hash = ( %hash, map { $_ => $object->$_() } @{ $subs->{$object->table} } );
}
- warn Dumper(\%hash);
my $subject_tmpl = new Text::Template (
TYPE => 'STRING',
--- /dev/null
+package FS::part_event::Action::notice;
+
+use strict;
+use base qw( FS::part_event::Action );
+use FS::Record qw( qsearchs );
+use FS::msg_template;
+
+sub description { 'Send a notice from a message template'; }
+
+#sub eventtable_hashref {
+# { 'cust_main' => 1,
+# 'cust_bill' => 1,
+# 'cust_pkg' => 1,
+# };
+#}
+
+sub option_fields {
+ (
+ 'msgnum' => { 'label' => 'Template' },
+ );
+
+sub default_weight { 55; } #?
+
+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";
+
+ $msg_template->send(
+ 'cust_main' => $cust_main,
+ 'object' => $object,
+ );
+
+}
+
+1;