Add test email queueing and mailing status report lines in manager.
This commit is contained in:
parent
643a63c568
commit
3f3ee717b7
2 changed files with 118 additions and 1 deletions
|
|
@ -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, {
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue