qsearchs( 'agent', { 'agentnum' => $self->agentnum } );
}
+=item agent_name
+
+Returns the agent name (see L<FS::agent>) for this customer.
+
+=cut
+
+sub agent_name {
+ my $self = shift;
+ $self->agent->agent;
+}
+
=item cust_class
Returns the customer class, as an FS::cust_class object, or the empty string
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',
+ 'type' => 'select-table',
+ 'table' => 'msg_template',
+ 'name_col' => 'msgname',
+ 'disable_empty' => 1,
+ },
+ );
+}
+
+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;
% foreach grep exists($f->{$_}),
% qw( hashref agent_virt agent_null agent_null_right );
%
+% #htmlarea
+% $include_common{$_} = $f->{$_}
+% foreach grep exists($f->{$_}), qw( width height );
+%
+%
% if ( $type eq 'tablebreak-tr-title' ) {
% $include_common{'table_id'} = 'TableNumber'. $tablenum++;
% }
'table' => 'msg_template',
'viewall_dir' => 'browse',
'fields' => [ 'msgname',
- { field=>'body', type=>'htmlarea' },
+ 'subject',
+ { field=>'body', type=>'htmlarea', width=>763 },
],
+ 'labels' => { 'msgnum' => 'Template',
+ 'msgname' => 'Template name',
+ 'subject' => 'Message subject',
+ 'body' => 'Message template',
+ },
)
%>
<%init>
oFCKeditor.BasePath = '<% $p %>elements/fckeditor/';
oFCKeditor.Config['SkinPath'] = '<% $p %>elements/fckeditor/editor/skins/silver/';
+% if ( $opt{'width'} ) {
+ oFCKeditor.Width = '<% $opt{'width'} %>';
+% }
oFCKeditor.Height = '<% $opt{'height'} || 420 %>';
oFCKeditor.Config['StartupFocus'] = true;
oFCKeditor.Config['EnterMode'] = 'br';