Added Carousel to upgrade script, some code cleanup and template changes

This commit is contained in:
Yung Han Khoe 2009-04-08 18:08:50 +00:00
parent 4f5963757d
commit 992f35710d
4 changed files with 18 additions and 62 deletions

View file

@ -34,6 +34,7 @@ my $session = start(); # this line required
addSurveyQuizModeColumns($session);
addSurveyExpressionEngineConfigFlag($session);
addCarouselWobject($session);
finish($session); # this line required
@ -47,6 +48,22 @@ finish($session); # this line required
# print "DONE!\n" unless $quiet;
#}
sub addCarouselWobject{
my $session = shift;
print "\tAdding Carousel wobject... " unless $quiet;
$session->db->write("create table Carousel (
assetId char(22) binary not null,
revisionDate bigint not null,
items mediumtext,
templateId char(22),
primary key (assetId, revisionDate)
)");
my $assets = $session->config->get( "assets" );
$assets->{ "WebGUI::Asset::Wobject::Carousel" } = { category => "utilities" };
$session->config->set( "assets", $assets );
print "Done.\n" unless $quiet;
}
sub addSurveyQuizModeColumns{
my $session = shift;
print "\tAdding columns to Survey table... " unless $quiet;