From d9cec8ff94ed3953b3ec23bb3e69e1c8306472c7 Mon Sep 17 00:00:00 2001
From: Graham Knop <graham@plainblack.com>
Date: Sun, 5 Oct 2008 19:42:56 +0000
Subject: [PATCH] fixed: DataForm entry table isn't properly indexed

---
 docs/changelog/7.x.x.txt             |  1 +
 docs/upgrades/upgrade_7.6.0-7.6.1.pl | 10 ++++++++++
 2 files changed, 11 insertions(+)

diff --git a/docs/changelog/7.x.x.txt b/docs/changelog/7.x.x.txt
index fc00cac9b..68d59f657 100644
--- a/docs/changelog/7.x.x.txt
+++ b/docs/changelog/7.x.x.txt
@@ -9,6 +9,7 @@
  - fixed: Documentation for DataForm and Thingy updated for Possible Values field
  - added a new permission denied page for version tag approval
  - fixed: Shortcuts includes HTML head data twice
+ - fixed: DataForm entry table isn't properly indexed
 
 7.6.0
  - added: users may now customize the post received page for the CS
diff --git a/docs/upgrades/upgrade_7.6.0-7.6.1.pl b/docs/upgrades/upgrade_7.6.0-7.6.1.pl
index aaa1fc919..6cdef2273 100644
--- a/docs/upgrades/upgrade_7.6.0-7.6.1.pl
+++ b/docs/upgrades/upgrade_7.6.0-7.6.1.pl
@@ -30,6 +30,7 @@ my $session = start(); # this line required
 
 addExportExtensionsToConfigFile($session);
 fixShortAssetIds( $session );
+addDataFormDataIndexes($session);
 
 finish($session); # this line required
 
@@ -73,6 +74,15 @@ sub fixShortAssetIds {
     print "Done.\n" unless $quiet;
 }
 
+sub addDataFormDataIndexes {
+    my $session     = shift;
+    print "\tAssing indexes to DataForm entry table... " unless $quiet;
+    $session->db->write('ALTER TABLE `DataForm_entry` ADD INDEX `assetId` (`assetId`)');
+    $session->db->write('ALTER TABLE `DataForm_entry` ADD INDEX `assetId_submissionDate` (`assetId`,`submissionDate`)');
+    print "Done.\n" unless $quiet;
+}
+
+
 # -------------- DO NOT EDIT BELOW THIS LINE --------------------------------
 
 #----------------------------------------------------------------------------