oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Removed unused responseTemplate from Survey

Browse source
This commit is contained in:
Patrick Donelan 2009-02-11 09:24:57 +00:00
parent 25a6fc5e76
commit 99b19aa180
1 changed files with 13 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

13
docs/upgrades/upgrade_7.6.10-7.6.11.pl
View file

@ -36,6 +36,7 @@ undotBinaryExtensions($session);
removeProcessRecurringPaymentsFromConfig($session); removeProcessRecurringPaymentsFromConfig($session);
noSessionSwitch($session); noSessionSwitch($session);
surveyDoAfterTimeLimit($session); surveyDoAfterTimeLimit($session);
surveyRemoveResponseTemplate($session);
fixDottedAssetIds($session); ##This one should run last fixDottedAssetIds($session); ##This one should run last
finish($session); # this line required finish($session); # this line required
@ -89,6 +90,18 @@ sub surveyDoAfterTimeLimit {
print "\tAdding column doAfterTimeLimit to Survey table... " unless $quiet; print "\tAdding column doAfterTimeLimit to Survey table... " unless $quiet;
$session->db->write('alter table Survey add doAfterTimeLimit char(22)'); $session->db->write('alter table Survey add doAfterTimeLimit char(22)');
print "DONE!\n" unless $quiet; 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;
} }
#---------------------------------------------------------------------------- #----------------------------------------------------------------------------