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

Add notifications to ther userProfileData => user move.

Browse source
This commit is contained in:
Colin Kuskie 2011-12-01 13:25:49 -08:00
parent 3167e24736
commit d672c3a221
1 changed files with 3 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

3
share/upgrades/7.10.23-8.0.0/moveRequiredProfileFields.pl
View file

@ -12,6 +12,7 @@ my @fields = qw( ableToBeFriend alias allowPrivateMessages avatar cellPhone date
toolbar uiLevel versionTagMode ); toolbar uiLevel versionTagMode );
# Create the new columns # Create the new columns
report "Creating new columns in the user table";
for my $fieldName ( @fields ) { for my $fieldName ( @fields ) {
my $field = WebGUI::ProfileField->new( session, $fieldName ); my $field = WebGUI::ProfileField->new( session, $fieldName );
my $fieldClass = $field->getFormControlClass; my $fieldClass = $field->getFormControlClass;
@ -21,6 +22,7 @@ for my $fieldName ( @fields ) {
} }
# Update the table # Update the table
report "Copying data for all users, this could take a while";
my @pairs = map { q{`users`.`} . $_ . q{`=`userProfileData`.`} . $_ . q{`} } @fields; my @pairs = map { q{`users`.`} . $_ . q{`=`userProfileData`.`} . $_ . q{`} } @fields;
session->db->write( session->db->write(
q{ UPDATE `users`,`userProfileData` SET } . join( ", ", @pairs ) . q{ UPDATE `users`,`userProfileData` SET } . join( ", ", @pairs ) .
@ -28,6 +30,7 @@ session->db->write(
); );
# Drop the old tables # Drop the old tables
report "Removing old columns";
for my $fieldName ( @fields ) { for my $fieldName ( @fields ) {
session->db->write( qq{ ALTER TABLE userProfileData DROP COLUMN `$fieldName` } ); session->db->write( qq{ ALTER TABLE userProfileData DROP COLUMN `$fieldName` } );
} }