- Added keyword tagging api.

This commit is contained in:
JT Smith 2007-07-07 04:37:38 +00:00
parent 83310ba311
commit 23fa0283b3
11 changed files with 354 additions and 12 deletions

View file

@ -21,6 +21,7 @@ my $quiet; # this line required
my $session = start(); # this line required
addRealtimeWorkflow($session);
addKeywordTagging($session);
addGroupingsIndexOnUserId($session);
fixProfileDataWithoutFields($session);
buildNewUserProfileTable($session);
@ -33,6 +34,19 @@ addHttpProxyUrlPatternFilter($session);
finish($session); # this line required
#-------------------------------------------------
sub addKeywordTagging {
my $session = shift;
print "\tAdding a keyword tagging system.\n" unless ($quiet);
$session->db->write("create table assetKeyword (
keyword varchar(64) not null,
assetId varchar(22) binary not null,
primary key (keyword, assetId),
index keyword (keyword),
index assetId (assetId)
)");
}
#-------------------------------------------------
sub addNewsletter {
my $session = shift;