Add test email queueing and mailing status report lines in manager.

This commit is contained in:
Martin Kamerbeek 2010-05-06 16:20:57 +02:00
parent 643a63c568
commit 3f3ee717b7
2 changed files with 118 additions and 1 deletions

View file

@ -62,7 +62,11 @@ sub www_view {
my @mailings;
my $it = WebGUI::Mailing->getAllIterator( $session, { sequenceKeyValue => $issueId } );
while ( my $mailing = $it->() ) {
push @mailings, $mailing->get;
push @mailings, {
%{ $mailing->get },
status => $mailing->getStatusLine,
sendTestUrl => $url->page('newsletter=mailing;func=sendTestEmails;id='.$mailing->getId),
};
};
push @issues, {