Add basic infrastructure to actually send out mailings.

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

View file

@ -93,10 +93,10 @@ sub getRecipients {
#----------------------------------------------------------------------------
sub generateEmailContent {
my $self = shift;
my $issueId = shift;
my $session = $self->session;
my $form = $session->form;
my $issueId = $form->get('issueId');
my $issue = WebGUI::Asset->newByDynamicClass( $session, $issueId );
return "Invalid issueId [$issueId]" unless $issue;