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

- Added Comments asset aspect, which allows comments to be added to any asset

Browse source 
easily.
 - Added comments aspect to wiki.
This commit is contained in:
JT Smith 2008-10-11 20:33:38 +00:00
parent 57e3255a97
commit e7c6fe6cae
13 changed files with 590 additions and 26 deletions
Download patch file Download diff file Expand all files Collapse all files

BIN
docs/upgrades/packages-7.6.1/default-wiki-page.wgpkg Normal file
View file

Binary file not shown.

31
docs/upgrades/upgrade_7.6.0-7.6.1.pl
View file

@ -32,16 +32,44 @@ addExportExtensionsToConfigFile($session);
fixShortAssetIds( $session );
addDataFormDataIndexes($session);
addThingyColumns( $session );
addCommentsAspect( $session );
addCommentsAspectToWiki( $session );
finish($session); # this line required
#----------------------------------------------------------------------------
sub addCommentsAspectToWiki {
my $session = shift;
print "\tAdding comments aspect to wiki..." unless $quiet;
my $db = $session->db;
my $pages = $db->read("select assetId,revisionDate from WikiPage");
while (my ($id, $rev) = $pages->array) {
$db->write("insert into assetAspectComments (assetId, revisionDate, comments, averageCommentRating) values (?,?,'[]',0)",[$id,$rev]);
}
print "Done.\n" unless $quiet;
}
#----------------------------------------------------------------------------
sub addCommentsAspect {
my $session = shift;
print "\tAdding comments asset aspect..." unless $quiet;
$session->db->write("create table assetAspectComments (
assetId char(22) binary not null,
revisionDate bigint not null,
comments mediumtext,
averageCommentRating int,
primary key (assetId, revisionDate)
)");
print "Done.\n" unless $quiet;
}
#----------------------------------------------------------------------------
# make sure each config file has the extensions to export as-is. however, if
# this system received a backport, leave the field as is.
sub addExportExtensionsToConfigFile {
my $session = shift;
print "Adding binary export extensions to config file... " unless $quiet;
print "\tAdding binary export extensions to config file... " unless $quiet;
# skip if the field has been defined already by backporting
return if defined $session->config->get('exportBinaryExtensions');
@ -53,6 +81,7 @@ sub addExportExtensionsToConfigFile {
print "Done.\n" unless $quiet;
}
#----------------------------------------------------------------------------
sub fixShortAssetIds {
print "Fixing assets with short ids... " unless $quiet;
my %assetIds = (