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

add another index to SQL Form tables

Browse source
This commit is contained in:
Graham Knop 2008-02-28 15:39:04 +00:00
parent 44e789544a
commit 8129bef2fb
2 changed files with 27 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

25
docs/upgrades/upgrade_7.5.3-7.5.4.pl
View file

@ -22,11 +22,34 @@ my $quiet; # this line required
my $session = start(); # this line required
# upgrade functions go here
addIndexesToSQLForms($session);
finish($session); # this line required
#-------------------------------------------------
sub addIndexesToSQLForms {
my $session = shift;
print "\tAdding extra indexes to SQL Forms.\n" unless ($quiet);
my $sqlForms = WebGUI::Asset->getRoot($session)->getLineage(['descendants'], {
statusToInclude => [qw(pending approved archived)],
statesToInclude => [qw(published trash trash-limbo clipboard clipboard-limbo)],
returnObjects => 1,
includeOnlyClasses => ['WebGUI::Asset::Wobject::SQLForm'],
});
for my $sqlForm (@$sqlForms) {
my $dbLink = WebGUI::DatabaseLink->new($session, $sqlForm->getValue('databaseLinkId'))->db;
my $dbh = $dbLink->dbh;
$dbh->{PrintError} = 0;
eval {
# We don't care about failure
$dbh->do('CREATE INDEX `recordId_archived` ON ' . $dbh->quote_identifier($sqlForm->get('tableName')) . ' (__recordId, __archived)');
};
$dbLink->disconnect;
}
}
##-------------------------------------------------
#sub exampleFunction {
# my $session = shift;