oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix: DataForm doesn't send mail if mail fields in tab

Browse source
This commit is contained in:
Graham Knop 2007-11-21 10:40:09 +00:00
parent 185a582ef9
commit 599f62163d
2 changed files with 20 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

20
lib/WebGUI/Asset/Wobject/DataForm.pm
View file

@ -782,7 +782,25 @@ sub sendEmail {
$row->{"field.value"} = WebGUI::HTML::format($row->{"field.value"},'mixed');
}
}
my $message = $self->processTemplate($var,$self->get("emailTemplateId"));
my @rows = map { @{ $_->{'tab.field_loop'} } } @{$var->{tab_loop}};
foreach my $row (@rows) {
if ($row->{"tab.field.name"} eq "to") {
$to = $row->{"tab.field.value"};
} elsif ($row->{"tab.field.name"} eq "from") {
$from = $row->{"tab.field.value"};
} elsif ($row->{"tab.field.name"} eq "cc") {
$cc = $row->{"tab.field.value"};
} elsif ($row->{"tab.field.name"} eq "bcc") {
$bcc = $row->{"tab.field.value"};
} elsif ($row->{"tab.field.name"} eq "subject") {
$subject = $row->{"tab.field.value"};
} elsif ($row->{"tab.field.type"} eq "textArea") {
$row->{"tab.field.value"} =~ s/\n/<br\/>/;
} elsif ($row->{"tab.field.type"} eq "textarea") {
$row->{"tab.field.value"} = WebGUI::HTML::format($row->{"tab.field.value"},'mixed');
}
}
my $message = $self->processTemplate($var,$self->get("emailTemplateId"));
WebGUI::Macro::process($self->session,\$message);
my @attachments = $self->get('mailAttachments')?
@{$self->getAttachedFiles({returnType=>'attachments',entryId=>$var->{entryId}})}