a bunch of bug fixes and tweaks related to workflow/versioning

This commit is contained in:
JT Smith 2006-03-23 16:56:08 +00:00
parent f73b2996da
commit 985417afd3
9 changed files with 38 additions and 9 deletions

View file

@ -39,9 +39,24 @@ addNavigationMimeType();
addIndexes();
addDatabaseCache();
updateHelpTemplate();
fixImportNodePrivileges();
finish($session); # this line required
#-------------------------------------------------
sub fixImportNodePrivileges {
print "\tFixing the privileges of all the content in the import node.\n";
my $importNode = WebGUI::Asset->getImportNode($session);
$importNode->update({groupIdView=>'7', groupIdEdit=>'12'});
my $prepared = $session->db->prepare("update assetData set groupIdView='7', groupIdEdit='12' where assetId=?");
my $rs = $session->db->read("select assetId from asset where lineage like ?",[$importNode->get("lineage").'%']);
while (my ($id) = $rs->array) {
$prepared->execute([$id]);
}
my $root = WebGUI::Asset->getRoot($session);
$root->update({groupIdView=>'7'});
}
#-------------------------------------------------
sub convertMessageLogToInbox {
print "\tConverting message log to inbox.\n";