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

A few more minor cleanups of the attachment stuff.

Browse source
This commit is contained in:
Drake 2006-12-06 11:55:37 +00:00
parent b55266e821
commit de1b160c2b
1 changed files with 6 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -712,7 +712,6 @@ sub purge {
sub sendEmail {
my $self = shift;
my $var = shift;
my $attachments;
my $message = $self->processTemplate($var,$self->get("emailTemplateId"));
WebGUI::Macro::process($self->session,\$message);
my ($to, $subject, $from, $bcc, $cc);
@ -729,12 +728,14 @@ sub sendEmail {
$subject = $row->{"field.value"};
}
}
$attachments = $self->getAttachedFiles({returnType=>'attachments',entryId=>$var->{entryId}}) if $self->get("mailAttachments");
my @attachments = $self->get('mailAttachments')?
@{$self->getAttachedFiles({returnType=>'attachments',entryId=>$var->{entryId}})}
: ();
if ($to =~ /\@/) {
my $mail = WebGUI::Mail::Send->create($self->session,{to=>$to, subject=>$subject, cc=>$cc, from=>$from, bcc=>$bcc});
$mail->addHtml($message);
$mail->addFooter;
$mail->addAttachment($_) for (@{$attachments});
$mail->addAttachment($_) for (@attachments);
$mail->queue;
} else {
my ($userId) = $self->session->db->quickArray("select userId from users where username=".$self->session->db->quote($to));
@ -756,14 +757,14 @@ sub sendEmail {
my $mail = WebGUI::Mail::Send->create($self->session,{to=>$cc, subject=>$subject, from=>$from});
if ($cc) {
$mail->addHtml($message);
$mail->addAttachment($_) for (@{$attachments});
$mail->addAttachment($_) for (@attachments);
$mail->addFooter;
$mail->queue;
}
if ($bcc) {
WebGUI::Mail::Send->create($self->session, {to=>$bcc, subject=>$subject, from=>$from});
$mail->addHtml($message);
$mail->addAttachment($_) for (@{$attachments});
$mail->addAttachment($_) for (@attachments);
$mail->addFooter;
$mail->queue;
}