diff --git a/docs/upgrades/upgrade_7.5.9-7.5.10.pl b/docs/upgrades/upgrade_7.5.9-7.5.10.pl index ab7dc881f..0195491a7 100644 --- a/docs/upgrades/upgrade_7.5.9-7.5.10.pl +++ b/docs/upgrades/upgrade_7.5.9-7.5.10.pl @@ -23,6 +23,7 @@ my $quiet; # this line required my $session = start(); # this line required privatizeVisitor($session); +ucfirstThingyFieldTypes($session); finish($session); # this line required @@ -45,6 +46,15 @@ sub privatizeVisitor { $visitor->profileField('ableToBeFriend', 0); } +#---------------------------------------------------------------------------- + +sub ucfirstThingyFieldTypes { + my $session = shift; + print "\tConverting Thingy's fieldTypes to upper case first.\n" unless ($quiet); + $session->db->write("update Thingy_fields set fieldType = (SELECT CONCAT(UPPER(SUBSTRING(fieldType, 1, 1)), SUBSTRING(fieldType FROM 2)) ) where fieldType not like 'otherThing%'"); + +} + # -------------- DO NOT EDIT BELOW THIS LINE --------------------------------