fix 11945 slow sql for duplicate email lookup

docs/changelog/7.x.x.txt

@@ -18,6 +18,7 @@
  - fixed #11995: recurring calendar entries in trash
  - fixed #11986: Finance::Quote can give invalid dates to StockData asset
  - fixed #12001: Shelf product import mangles price
+ - fixed #11945: Slow SQL access for duplicate e-mail address lookups
 
 7.10.6
  - fixed #11974: Toolbar icons unclickable in Webkit using HTML5

docs/upgrades/upgrade_7.10.6-7.10.7.pl

@@ -31,6 +31,7 @@ my $quiet; # this line required
 my $session = start(); # this line required
 
 # upgrade functions go here
+addEmailIndexToProfile( $session );
 
 finish($session); # this line required
 
@@ -44,6 +45,15 @@ finish($session); # this line required
 #    print "DONE!\n" unless $quiet;
 #}
 
+#----------------------------------------------------------------------------
+# Add an index to the userProfileData table for email lookups
+sub addEmailIndexToProfile {
+    my $session = shift;
+    print "\tAdding index to email column on userProfileData table... " unless $quiet;
+    # and here's our code
+    $session->db->write( "ALTER TABLE userProfileData ADD INDEX email ( email )" );
+    print "DONE!\n" unless $quiet;
+}
 
 # -------------- DO NOT EDIT BELOW THIS LINE --------------------------------