UnitedKnowledge/webgui_newsletter
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Adding basic list header support.

Browse source
This commit is contained in:
Martin Kamerbeek 2010-05-27 10:33:14 +02:00
parent 218ebbbad6
commit 573813f5ee
2 changed files with 27 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lib/WebGUI/Mailing/Email.pm
View file

@ -191,6 +191,14 @@ sub send {
} );
$mail->addHtml( $body );
if ( $asset->can( 'getListHeaders' ) ) {
my $listHeaders = $asset->getListHeaders( $self->user->get('email') );
while ( my ($header, $value) = each %{ $listHeaders } ) {
$mail->addHeaderField( $header, $value );
}
}
# And send it.
my $success = $mail->send;