Updated upgrade script for versionTagMode support

This commit is contained in:
Henry Tang 2008-11-13 17:19:10 +00:00
parent 2a3ed29d26
commit 9289bdb34c

View file

@ -29,11 +29,44 @@ my $quiet; # this line required
my $session = start(); # this line required
migrateSurvey($session);
addVersionTagMode($session);
finish($session); # this line required
#----------------------------------------------------------------------------
# This method add support for versionTagMode
#
sub addVersionTagMode {
my $session = shift;
print q{Adding support for versionTagMode...} if !$quiet;
my $db = $session->db();
my $setting = $session->setting();
$db->write(q{ALTER TABLE `assetVersionTag` ADD `isSiteWide` BOOL NOT NULL DEFAULT '0'});
$db->write(q|INSERT INTO `userProfileField` (`fieldName`, `label`, `visible`, `required`, `fieldType`, `possibleValues`, `dataDefault`, `sequenceNumber`, `profileCategoryId`, `protected`, `editable`, `forceImageOnly`, `showAtRegistration`, `requiredForPasswordRecovery`) VALUES ('versionTagMode', 'WebGUI::International::get("version tag mode","WebGUI");', 1, 1, 'selectBox', '{\r\n inherited => WebGUI::International::get("versionTagMode inherited"),\r\n multiPerUser => WebGUI::International::get("versionTagMode multiPerUser"),\r\n singlePerUser => WebGUI::International::get("versionTagMode singlePerUser"),\r\n siteWide => WebGUI::International::get("versionTagMode siteWide"),\r\n autoCommit => WebGUI::International::get("versionTagMode autoCommit"),\r\n}', 'inherited', 12, 0x34, 0, 1, 1, 0, 0)|);
$db->write(q{INSERT INTO `settings` ( `name` , `value` ) VALUES ('versionTagMode', '')});
# Keep autoRequestCommit if enabled
my $versionTagMode = q{multiPerUser};
if ($setting->get('autoRequestCommit')) {
$versionTagMode = q{autoCommit};
}
$setting->set('versionTagMode', $versionTagMode);
$db->write(q{DELETE FROM `settings` WHERE `name` = 'autoRequestCommit'});
print qq{Finished\n} if !$quiet;
return;
} #addVersionTagMode
#----------------------------------------------------------------------------
# This method migrates the the old survey system and existing surveys to the new survey system
#