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

Fix bug where queued test emails weren't deleted when their mailing was.

Browse source
This commit is contained in:
Martin Kamerbeek 2010-07-07 13:41:07 +02:00
parent ec1b135dbd
commit 253450928b
1 changed files with 13 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

13
lib/WebGUI/Mailing.pm
View file

@ -106,6 +106,11 @@ sub deleteQueuedEmails {
while ( my $email = $it->() ) { while ( my $email = $it->() ) {
$email->delete; $email->delete;
} }
$it = $self->getQueuedTestEmailIterator;
while ( my $email = $it->() ) {
$email->delete;
}
return; return;
} }
@ -144,6 +149,14 @@ sub getQueuedEmailIterator {
return WebGUI::Mailing::Email->getQueued( $session, $self->getId ); return WebGUI::Mailing::Email->getQueued( $session, $self->getId );
} }
#----------------------------------------------------------------------------
sub getQueuedTestEmailIterator {
my $self = shift;
my $session = $self->session;
return WebGUI::Mailing::Email->getQueuedTestEmails( $session, $self->getId );
}
#---------------------------------------------------------------------------- #----------------------------------------------------------------------------
sub getNextInSendQueue { sub getNextInSendQueue {
my $class = shift; my $class = shift;