From 253450928bcbe8611e4a35b4c3a9a030eaf5e61c Mon Sep 17 00:00:00 2001
From: Martin Kamerbeek <martin@martintwee.oqapi.nl>
Date: Wed, 7 Jul 2010 13:41:07 +0200
Subject: [PATCH] Fix bug where queued test emails weren't deleted when their
 mailing was.

---
 lib/WebGUI/Mailing.pm | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/lib/WebGUI/Mailing.pm b/lib/WebGUI/Mailing.pm
index 14a2f0a..2e8d604 100644
--- a/lib/WebGUI/Mailing.pm
+++ b/lib/WebGUI/Mailing.pm
@@ -106,6 +106,11 @@ sub deleteQueuedEmails {
     while ( my $email = $it->() ) {
         $email->delete;
     }
+    
+    $it = $self->getQueuedTestEmailIterator;
+    while ( my $email = $it->() ) {
+        $email->delete;
+    }
 
     return;
 }
@@ -144,6 +149,14 @@ sub getQueuedEmailIterator {
     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 {
     my $class   = shift;