From 8c5436b7d2193be2876ecb733519d86b66bb88de Mon Sep 17 00:00:00 2001
From: Patrick Donelan <pat@patspam.com>
Date: Wed, 11 Mar 2009 15:34:36 +1100
Subject: [PATCH] Added Survey upgrade script for doAfterTimeLimit and
 RemoveResponseTemplate

---
 docs/upgrades/upgrade_7.6.14-7.7.0.pl | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)

diff --git a/docs/upgrades/upgrade_7.6.14-7.7.0.pl b/docs/upgrades/upgrade_7.6.14-7.7.0.pl
index 65e25aa6c..c915b2fe1 100644
--- a/docs/upgrades/upgrade_7.6.14-7.7.0.pl
+++ b/docs/upgrades/upgrade_7.6.14-7.7.0.pl
@@ -34,6 +34,8 @@ my $session = start(); # this line required
 
 addGroupToAddToMatrix( $session );
 addScreenshotTemplatesToMatrix( $session );
+surveyDoAfterTimeLimit($session);
+surveyRemoveResponseTemplate($session);
 
 finish($session); # this line required
 
@@ -61,6 +63,26 @@ sub addScreenshotTemplatesToMatrix {
     print "Done.\n" unless $quiet;
 }
 
+#----------------------------------------------------------------------------
+sub surveyDoAfterTimeLimit {
+    my $session = shift;
+    print "\tAdding column doAfterTimeLimit to Survey table... " unless $quiet;
+    $session->db->write('alter table Survey add doAfterTimeLimit char(22)');
+    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;
+}
+
+
 #----------------------------------------------------------------------------
 # Describe what our function does
 #sub exampleFunction {