From 99b19aa1803d5f84fb4254da82d9bb2d152ae710 Mon Sep 17 00:00:00 2001
From: Patrick Donelan <pat@patspam.com>
Date: Wed, 11 Feb 2009 09:24:57 +0000
Subject: [PATCH] Removed unused responseTemplate from Survey

---
 docs/upgrades/upgrade_7.6.10-7.6.11.pl | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/docs/upgrades/upgrade_7.6.10-7.6.11.pl b/docs/upgrades/upgrade_7.6.10-7.6.11.pl
index c3a8cfd8f..dfb0afc00 100644
--- a/docs/upgrades/upgrade_7.6.10-7.6.11.pl
+++ b/docs/upgrades/upgrade_7.6.10-7.6.11.pl
@@ -36,6 +36,7 @@ undotBinaryExtensions($session);
 removeProcessRecurringPaymentsFromConfig($session);
 noSessionSwitch($session);
 surveyDoAfterTimeLimit($session);
+surveyRemoveResponseTemplate($session);
 
 fixDottedAssetIds($session);  ##This one should run last
 finish($session); # this line required
@@ -89,6 +90,18 @@ sub surveyDoAfterTimeLimit {
     print "\tAdding column doAfterTimeLimit to Survey table... " unless $quiet;
     $session->db->write('alter table Survey add doAfterTimeLimit char(22)');
     print "DONE!\n" unless $quiet;
+    print "DONE!\n" unless $quiet;
+}
+
+#----------------------------------------------------------------------------
+sub surveyRemoveResponseTemplate {
+    my $session = shift;
+    print "\tRemoving responseTemplate... " unless $quiet;
+    $session->db->write('alter table Survey drop responseTemplateId');
+    if (my $template = WebGUI::Asset->new($session, 'PBtmpl0000000000000064')) {
+        $template->purge();
+    }
+    print "DONE!\n" unless $quiet;
 }
 
 #----------------------------------------------------------------------------