From 06d904eff263c8f2719820251cf2ccf7663b2510 Mon Sep 17 00:00:00 2001
From: Kaleb Murphy <perlmonkey2@webgui-svn>
Date: Tue, 25 Nov 2008 19:01:32 +0000
Subject: [PATCH] www_deleteResponse should only delete the response from this
 asset, not all assets

---
 lib/WebGUI/Asset/Wobject/Survey.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/WebGUI/Asset/Wobject/Survey.pm b/lib/WebGUI/Asset/Wobject/Survey.pm
index 38497bb40..f1dc1a6e3 100644
--- a/lib/WebGUI/Asset/Wobject/Survey.pm
+++ b/lib/WebGUI/Asset/Wobject/Survey.pm
@@ -632,7 +632,7 @@ sub www_deleteResponses {
     return $self->session->privilege->insufficient() 
         unless ($self->session->user->isInGroup($self->get('groupToEditSurvey')));
         
-    $self->session->db->write('delete from Survey_response');
+    $self->session->db->write('delete from Survey_response where assetId = ?',[$self->getId]);
 
     return;
 }