version tags are roughed in

This commit is contained in:
JT Smith 2005-06-24 21:20:56 +00:00
parent 4de26f6410
commit 3d12d52a8e
8 changed files with 189 additions and 9 deletions

View file

@ -8,6 +8,7 @@ use WebGUI::Asset;
use WebGUI::Asset::Wobject::Folder;
use WebGUI::Asset::Snippet;
use WebGUI::Session;
use WebGUI::SQL;
my $configFile;
my $quiet;
@ -20,12 +21,26 @@ GetOptions(
WebGUI::Session::open("../..",$configFile);
insertHelpTemplate();
insertXSLTSheets();
insertSyndicatedContentTemplate();
addAssetVersioning();
WebGUI::Session::close();
sub addAssetVersioning {
print "\tMaking changes for asset versioning\n" unless ($quiet);
WebGUI::SQL->write("create table assetVersionTag (
tagId varchar(22) not null primary key,
name varchar(255) not null,
isCommitted int not null default 0,
creationDate bigint not null default 0,
createdBy varchar(22),
commitDate bigint not null default 0,
committedBy varchar(22)
)");
}
sub insertHelpTemplate{
print "\tInserting new Help template\n" unless ($quiet);
my $helpTemplate = <<EOT;