From bb3de4bf962cd97d9697924fe66706d743427e23 Mon Sep 17 00:00:00 2001
From: Patrick Donelan <pat@patspam.com>
Date: Sat, 27 Jun 2009 00:04:38 +0000
Subject: [PATCH] Fixed minor Survey bug that could prevent tests from running
 in some cases

---
 lib/WebGUI/Asset/Wobject/Survey.pm | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/lib/WebGUI/Asset/Wobject/Survey.pm b/lib/WebGUI/Asset/Wobject/Survey.pm
index d114c0a50..21a7cf526 100644
--- a/lib/WebGUI/Asset/Wobject/Survey.pm
+++ b/lib/WebGUI/Asset/Wobject/Survey.pm
@@ -2828,6 +2828,10 @@ sub www_runTest {
     my $test = WebGUI::Asset::Wobject::Survey::Test->new($session, $testId)
         or return $self->www_editTestSuite('Unable to find test');
     
+    # Remove any in-progress reponses for current user
+    $self->session->db->write( 'delete from Survey_response where assetId = ? and userId = ? and isComplete = 0',
+        [ $self->getId, $self->session->user->userId() ] );
+    
     my $result = $test->run or return $self->www_editTestSuite('Unable to run test');
     
     my $tap = $result->{tap} or return $self->www_editTestSuite('Unable to determine test result');