diff --git a/docs/changelog/7.x.x.txt b/docs/changelog/7.x.x.txt index 444612e1c..e4554a5c2 100644 --- a/docs/changelog/7.x.x.txt +++ b/docs/changelog/7.x.x.txt @@ -3,6 +3,8 @@ - fix: profile fields do not ever set the default value - fix: CS email message shows up as an attachment - fix: Calendar: start/end date time off in edit interface (perlDreamer Consulting, LLC) + - Added a database optimization that will improve asset lookup performance by + as much as 600% on some sites. 7.3.5 diff --git a/docs/upgrades/upgrade_7.3.5-7.3.6.pl b/docs/upgrades/upgrade_7.3.5-7.3.6.pl index c35be399a..0b85c59cc 100644 --- a/docs/upgrades/upgrade_7.3.5-7.3.6.pl +++ b/docs/upgrades/upgrade_7.3.5-7.3.6.pl @@ -20,17 +20,17 @@ my $quiet; # this line required my $session = start(); # this line required -# upgrade functions go here +optimizeDb($session); finish($session); # this line required -##------------------------------------------------- -#sub exampleFunction { -# my $session = shift; -# print "\tWe're doing some stuff here that you should know about.\n" unless ($quiet); -# # and here's our code -#} +#------------------------------------------------- +sub optimizeDb { + my $session = shift; + print "\tOptimizing database.\n" unless ($quiet); + $session->db->write("alter table assetData add index assetId_status_tagId_revisionDate (assetId,status,tagId,revisionDate)"); +}