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

Patch to allow overriding of email message & subject for inbox messages (see http://www.plainblack.com/webgui/dev/discuss/overriding-inbox-emails/3)

Browse source
This commit is contained in:
Patrick Donelan 2008-09-06 05:01:37 +00:00
parent dd22207f22
commit 1dec37292a
1 changed files with 17 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

22
lib/WebGUI/Inbox/Message.pm
View file

@ -76,6 +76,14 @@ A groupId of a group attached to this message.
A userId that created this message. Defaults to '3' (Admin).
=head4 emailMessage
Email message to use rather than inbox message contents.
=head4 emailSubject
Email subject to use rather than inbox message subject.
=cut
sub create {
@ -95,17 +103,21 @@ sub create {
$self->{_properties}{completedBy} = $session->user->userId;
$self->{_properties}{completedOn} = time();
}
$self->{_messageId} = $self->{_properties}{messageId} = $session->db->setRow("inbox","messageId",$self->{_properties});
$self->{_messageId} = $self->{_properties}{messageId} = $session->db->setRow("inbox","messageId",$self->{_properties});
my $subject = (defined $properties->{emailSubject}) ? $properties->{emailSubject} : $self->{_properties}{subject};
my $mail = WebGUI::Mail::Send->create($session, {
toUser=>$self->{_properties}{userId},
toGroup=>$self->{_properties}{groupId},
subject=>$self->{_properties}{subject}
subject=>$subject,
});
if (defined $mail) {
if ($self->{_properties}{message} =~ m/\<.*\>/) {
$mail->addHtml($self->{_properties}{message});
my $msg = (defined $properties->{emailMessage}) ? $properties->{emailMessage} : $self->{_properties}{message};
if ($msg =~ m/\<.*\>/) {
$mail->addHtml($msg);
} else {
$mail->addText($self->{_properties}{message});
$mail->addText($msg);
}
$mail->addFooter;
$mail->queue;