+
<& /elements/select-cust_phone.html,
'cust_num' => $cgi->param('custnum'),
@@ -277,6 +277,7 @@ my $agent_virt_agentnum = $cgi->param('agent_virt_agentnum') || '';
my $popup = $cgi->param('popup');
my $url = $cgi->param('url');
+if (!$url && $cgi->param('custnum')) { $url = $fsurl."view/cust_main.cgi?".$cgi->param('custnum'); }
my $pdest = { 'message' => "Notice sent" };
$pdest->{'url'} = $cgi->param('url') if $url;
@@ -347,24 +348,40 @@ if ( $cgi->param('action') eq 'preview' ) {
my %message = $msg_template->prepare(%msgopts);
($from, $subject, $html_body) = @message{'from', 'subject', 'html_body'};
}
+}
+
+if ($cgi->param('action')) {
# contact_class_X params in preview
- foreach my $param ( $cgi->param ) {
- if ($cgi->param('emailtovoice_contact')) {
+ if ($cgi->param('emailtovoice_contact')) {
$email_to = $cgi->param('emailtovoice_contact') . '@' . $send_to_domain;
push @contact_classnum, 'emailtovoice';
push @contact_classname, $email_to;
- }
- if ( $param =~ /^contact_class_(\w+)$/ ) {
- push @contact_classnum, $1;
- if ( $1 eq 'invoice' ) {
+ }
+ elsif ($cgi->param('to_contact_classnum')) {
+ foreach my $c (split(/,/, $cgi->param('to_contact_classnum'))) {
+ push @contact_classnum, $c;
+ if ( $c eq 'invoice' ) {
push @contact_classname, 'Invoice recipients';
} else {
- my $contact_class = FS::contact_class->by_key($1);
+ my $contact_class = FS::contact_class->by_key($c);
push @contact_classname, encode_entities($contact_class->classname);
}
}
}
+ else {
+ foreach my $param ( $cgi->param ) {
+ if ( $param =~ /^contact_class_(\w+)$/ ) {
+ push @contact_classnum, $1;
+ if ( $1 eq 'invoice' ) {
+ push @contact_classname, 'Invoice recipients';
+ } else {
+ my $contact_class = FS::contact_class->by_key($1);
+ push @contact_classname, encode_entities($contact_class->classname);
+ }
+ }
+ }
+ }
}