Add a method to update userProfileData column types.

Fix a bug with making a profileField called userId.
Update POD
Added several profileField tests.
This commit is contained in:
Colin Kuskie 2009-07-22 17:59:58 +00:00
parent 23f7af1d71
commit 0d06c15275
4 changed files with 95 additions and 8 deletions

View file

@ -26,6 +26,7 @@
- fixed #10650: Unflatten WebGUI storage locations
- fixed #10664: ThiingyRecord disappeared... sort of
- fixed #10687: i18n Asset_Product::buy_form_options
- fixed #10651: Dashboard Content positions
7.7.15
- fixed #10629: WebGUI::ProfileField create new field bug

View file

@ -22,6 +22,7 @@ use Getopt::Long;
use WebGUI::Session;
use WebGUI::Storage;
use WebGUI::Asset;
use WebGUI::ProfileField;
use List::MoreUtils qw/uniq/;
my $toVersion = '7.7.16';
@ -32,6 +33,7 @@ my $session = start(); # this line required
replaceUsageOfOldTemplatesAgain($session);
updatePayPalDriversAgain($session);
addThingyRecordFieldPriceDefaults($session);
correctProfileFieldColumnTypes($session);
# upgrade functions go here
@ -47,6 +49,15 @@ finish($session); # this line required
# print "DONE!\n" unless $quiet;
#}
#----------------------------------------------------------------------------
sub correctProfileFieldColumnTypes {
my $session = shift;
my $config = $session->config;
print "\tCheck database profile field types against form settings..." unless $quiet;
WebGUI::ProfileField->fixDataColumnTypes($session);
print "DONE!\n" unless $quiet;
}
#----------------------------------------------------------------------------
sub updatePayPalDriversAgain {
my $session = shift;