From e44c7bae2e887c72a941b6293dd6c555797d4bdc Mon Sep 17 00:00:00 2001
From: Patrick Donelan <pat@patspam.com>
Date: Wed, 17 Jun 2009 07:21:35 +0000
Subject: [PATCH] Small survey bug fix to Survey::persistResponseJSON

---
 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 69e914881..3e1f1ab6a 100644
--- a/lib/WebGUI/Asset/Wobject/Survey.pm
+++ b/lib/WebGUI/Asset/Wobject/Survey.pm
@@ -1940,7 +1940,7 @@ sub persistResponseJSON {
     my $self = shift;
     my $data = $self->responseJSON->freeze();
     $self->session->db->write( 'update Survey_response set responseJSON = ? where Survey_responseId = ?',
-        [ $data, $self->responseId( { noCreate => 1 } ) ] );
+        [ $data, $self->responseId( { ignoreRevisionDate => 1 } ) ] );
     return;
 }