From b9be6760a11f9b76ff367c7d166e486ba48d5b6d Mon Sep 17 00:00:00 2001
From: Graham Knop <graham@plainblack.com>
Date: Wed, 18 Feb 2009 03:19:55 +0000
Subject: [PATCH] convert long varchars in Survey to text

---
 docs/upgrades/upgrade_7.6.11-7.6.12.pl | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/docs/upgrades/upgrade_7.6.11-7.6.12.pl b/docs/upgrades/upgrade_7.6.11-7.6.12.pl
index afbe63933..ef2103e74 100644
--- a/docs/upgrades/upgrade_7.6.11-7.6.12.pl
+++ b/docs/upgrades/upgrade_7.6.11-7.6.12.pl
@@ -33,6 +33,7 @@ my $session = start(); # this line required
 addAssetDiscoveryServiceAgain( $session );
 changeMatrixAttributeIndexing( $session );
 fixCollaborationGroupToEditPost( $session );
+convertLongVarcharsToText( $session );
 
 # upgrade functions go here
 
@@ -48,6 +49,17 @@ finish($session); # this line required
 #    print "DONE!\n" unless $quiet;
 #}
 
+#----------------------------------------------------------------------------
+sub convertLongVarcharsToText {
+    my $session = shift;
+    print "\tConverting Survey VARCHAR fields to TEXT... " unless $quiet;
+    $session->db->write("ALTER TABLE Survey MODIFY COLUMN exitURL TEXT");
+    $session->db->write("ALTER TABLE Survey_tempReport MODIFY COLUMN sectionName TEXT");
+    $session->db->write("ALTER TABLE Survey_tempReport MODIFY COLUMN questionName TEXT");
+    # and here's our code
+    print "Done.\n" unless $quiet;
+}
+
 #----------------------------------------------------------------------------
 sub addAssetDiscoveryServiceAgain {
     my $session = shift;