From 4e5a3c9e4d878fa79ab135920282cb4ad9fe49f0 Mon Sep 17 00:00:00 2001
From: Patrick Donelan <pat@patspam.com>
Date: Thu, 23 Oct 2008 23:30:25 +0000
Subject: [PATCH] Set application/json Content Type header on JSON responses

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

diff --git a/lib/WebGUI/Asset/Wobject/Survey.pm b/lib/WebGUI/Asset/Wobject/Survey.pm
index 152ea5fa2..616a416ef 100644
--- a/lib/WebGUI/Asset/Wobject/Survey.pm
+++ b/lib/WebGUI/Asset/Wobject/Survey.pm
@@ -475,6 +475,7 @@ eval{
 #$self->session->errorHandler->error($@);
 
 $self->session->errorHandler->error("Returning from loadSurvey");
+    $session->http->setMimeType('application/json');
     return encode_json($return);
 }
 
@@ -720,6 +721,7 @@ $self->session->errorHandler->error("-------SurveyEnd $url");
         }
     }
 $self->session->errorHandler->error("-------SurveyEnd $url");
+    $session->http->setMimeType('application/json');
     return encode_json({"type","forward","url",$url});
 }
 
@@ -769,6 +771,7 @@ $self->session->errorHandler->error("Question Text is: ".$q->{text});
 #$self->session->errorHandler->error(Dumper $section);
     my $out = $self->processTemplate($section,$self->get("surveyQuestionsId"));
 
+    $session->http->setMimeType('application/json');
     return encode_json({"type","displayquestions","section",$section,"questions",$questions,"html",$out});
 }