Removed unused responseTemplate from Survey

This commit is contained in:
Patrick Donelan 2009-02-11 09:24:57 +00:00
parent 25a6fc5e76
commit 99b19aa180

View file

@ -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;
}
#----------------------------------------------------------------------------