From 6f4f5d94147b5b152a017e80409fee70eb87c28a Mon Sep 17 00:00:00 2001
From: Kaleb Murphy <perlmonkey2@webgui-svn>
Date: Tue, 14 Apr 2009 15:28:59 +0000
Subject: [PATCH] Made sure Survey default question types upgrades with "Yes"
 being 1 and "No" being 0.

---
 docs/upgrades/upgrade_7.7.3-7.7.4.pl | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/docs/upgrades/upgrade_7.7.3-7.7.4.pl b/docs/upgrades/upgrade_7.7.3-7.7.4.pl
index 89c7dd752..f5e520d15 100644
--- a/docs/upgrades/upgrade_7.7.3-7.7.4.pl
+++ b/docs/upgrades/upgrade_7.7.3-7.7.4.pl
@@ -69,7 +69,13 @@ sub _loadValues{
     for my $value(@$values){
         my $answer = _getAnswer();
         $answer->{text} = $value->[0];
-        $answer->{recordedAnswer} = $value->[1];
+        if($answer->{text} eq 'No'){
+            $answer->{recordedAnswer} = 0;
+        }elsif($answer->{text} eq 'Yes'){
+            $answer->{recordedAnswer} = 1;
+        }else{
+            $answer->{recordedAnswer} = $value->[1];
+        }
         $answer->{verbatim} = $value->[2];
         push @$answers,$answer;
     }