add: User profile data table is now a flat table.

docs/changelog/7.x.x.txt

@@ -5,6 +5,8 @@
     http://www.plainblack.com/rfe/request-for-enhancement/search-asset-feedback.-i.e.-no-results-found#kH5X_YA17ZxbRvi6gx5KRA
  - RFE: JS confirmation Operation/DatabaseLink.pm
     http://www.plainblack.com/rfe/request-for-enhancement/-1493348--js-confirmation-operation/databaselink/re--1493348--js-confirmation-operation/databaselink.pm#OUb5zN8bltGdPG_2LJZMGQ
+ - add: User profile data table is now a flat table, one column for each
+    field.
 
 
 

docs/gotcha.txt

@@ -7,6 +7,17 @@ upgrading from one version to the next, or even between multiple
 versions. Be sure to heed the warnings contained herein as they will
 save you many hours of grief.
 
+7.4.0
+--------------------------------------------------------------------
+
+ * The userProfileData table has been completely re-done. Now, each
+   user profile field has its own column in the userProfileData table.
+
+   Any applications that you may have that makes raw SQL queries against
+   the userProfileData table will need to be updated to reflect these
+   changes.
+
+
 7.3.16
 --------------------------------------------------------------------
 

docs/upgrades/upgrade_7.3.19-7.4.0.pl

@@ -21,6 +21,8 @@ my $quiet; # this line required
 my $session = start(); # this line required
 
 # upgrade functions go here
+fixProfileDataWithoutFields($session);
+buildNewUserProfileTable($session);
 
 finish($session); # this line required
 
@@ -32,6 +34,125 @@ finish($session); # this line required
 #	# and here's our code
 #}
 
+#----------------------------------------------------------------------------
+
+sub fixProfileDataWithoutFields {
+    my $session     = shift;
+    my $db          = $session->db;
+    
+    use WebGUI::ProfileField;
+
+    print "\tFixing profile data without entries in userProfileField table..." unless $quiet;
+    
+    for my $fieldName (qw{ firstDayOfWeek language timeZone uiLevel }) {
+        next if WebGUI::ProfileField->new($session, $fieldName);
+        $db->write(
+            q{INSERT INTO userProfileField (fieldName, label, visible, fieldType, protected, editable) 
+            VALUES (?,?,0,"ReadOnly",1,0)},
+            [$fieldName, $fieldName]
+        );
+    }
+
+    print "OK!\n" unless $quiet;
+}
+
+
+#----------------------------------------------------------------------------
+
+sub buildNewUserProfileTable {
+    my $session     = shift;
+    my $db          = $session->db;
+    print "\tBuilding new user profile table. This may take a while...\n" unless $quiet; 
+    
+    use WebGUI::ProfileField;
+    use List::Util qw( first );
+
+    print "\t\tCreating structure..." unless $quiet;
+    # Create a new temporary table
+    $db->write(q{
+        CREATE TABLE tmp_userProfileData (
+            userId VARCHAR(22) BINARY NOT NULL,
+            PRIMARY KEY (userId)
+        )
+    });
+
+    # Loop through the current fields and add them to the new table
+    my @profileFields;
+    my $sth = $db->read(q{SELECT fieldName, fieldType FROM userProfileField});
+    while (my %fieldData = $sth->hash) {
+        push @profileFields, $fieldData{fieldName};
+        my $fieldType   = 'WebGUI::Form::'.ucfirst $fieldData{fieldType};
+        my $fieldName   = $db->dbh->quote_identifier($fieldData{fieldName});
+        eval "use $fieldType;";
+        my $dataType = $fieldType->new($session)->get("dbDataType");
+
+        $db->write(
+            "ALTER TABLE tmp_userProfileData ADD COLUMN ($fieldName $dataType)"
+        );
+    }
+    print " OK!\n" unless $quiet;
+
+    # Find fields that were not in the userProfileField database.
+    print "\t\tLooking for profile fields not defined in User Profiling... \n" unless $quiet;
+    my @dataFields  = $db->buildArray("SELECT fieldName FROM userProfileData GROUP BY fieldName");
+    for my $dataField (@dataFields) {
+        if (!first { $_ eq $dataField } @profileFields) {
+            print "\t\t\tCreating invisible, read-only profile field '$dataField'\n" unless $quiet;
+
+            my $fieldType   = 'WebGUI::Form::ReadOnly';
+            my $fieldName   = $db->dbh->quote_identifier($dataField);
+            eval "use $fieldType;";
+            my $dataType = $fieldType->new($session)->get("dbDataType");
+
+            $db->write(
+                "ALTER TABLE tmp_userProfileData ADD COLUMN ($fieldName $dataType)"
+            );  
+
+            # Create the profile field 
+            WebGUI::ProfileField->create($session, $dataField, {
+                label       => $dataField,
+                fieldType   => "ReadOnly",
+                visible     => 0,
+                protected   => 1,
+            });
+        }
+    }
+    print "\t\t... Done!\n";
+   
+    print "\t\tMigrating data to temporary table... " unless $quiet;
+    # Loop over the old table and put them in the new table
+    $sth    = $db->read(q{SELECT userId FROM users});
+    while (my $user = $sth->hashRef) {
+        # Get all of this user's profile data
+        my %profile 
+            = $db->buildHash(
+                "SELECT fieldName, fieldData FROM userProfileData WHERE userId=?",
+                [$user->{userId}]
+            );
+
+        # Write to the temp table
+        my $sql 
+            = q{INSERT INTO tmp_userProfileData } 
+            . q{(userId,} . join(",", map { $db->dbh->quote_identifier($_) } keys %profile) . q{)} 
+            . q{VALUES (?,} . join(",",("?")x values %profile) . q{)}
+            ;
+        $db->write($sql, [$user->{userId},values %profile]);
+    }
+    $sth->finish;
+    print "OK!\n" unless $quiet;
+
+    # Delete the old table
+    print "\t\tExchanging old data with new... ";
+    $db->write("drop table userProfileData");
+
+    # Rename the new table
+    $db->write("rename table tmp_userProfileData to userProfileData");
+    print "OK!\n" unless $quiet;
+
+    print "\t\t... Done!\n" unless $quiet;
+}
+
+
 
 
 # ---- DO NOT EDIT BELOW THIS LINE ----