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

Add basic infrastructure to actually send out mailings.

Browse source
This commit is contained in:
Martin Kamerbeek 2010-05-06 18:04:25 +02:00
parent 3f3ee717b7
commit 80c1ce0b44
4 changed files with 99 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lib/WebGUI/AssetAspect/Mailable.pm
View file

@ -71,6 +71,7 @@ sub getRecipients {
#----------------------------------------------------------------------------
sub processContentAsUser {
my $self = shift;
my $issueId = shift;
my $userId = shift;
my $session = $self->session;
my $currentUser = $session->user;
@ -85,7 +86,7 @@ sub processContentAsUser {
# Generate email body for this user
my $content = $session->style->process(
$self->generateEmailContent,
$self->generateEmailContent( $issueId ),
$styleTemplateId,
);
@ -114,9 +115,10 @@ sub www_previewContent {
my $self = shift;
my $form = $self->session->form;
my $issueId = $form->get('issueId');
my $userId = $form->get('userId');
return $self->processContentAsUser( $userId );
return $self->processContentAsUser( $issueId, $userId );
}
#----------------------------------------------------------------------------