Add a JSON default to fieldPrice so ThingyRecord won't die decoding empty JSON strings

docs/changelog/7.x.x.txt

@@ -24,6 +24,7 @@
  - fixed #10685: i18n Asset_StoryTopic::rssUrl 
  - fixed #10686: Can't access Database Links
  - fixed #10650: Unflatten WebGUI storage locations
+ - fixed #10664: ThiingyRecord disappeared... sort of
 
 7.7.15
  - fixed #10629: WebGUI::ProfileField create new field bug

docs/upgrades/upgrade_7.7.15-7.7.16.pl

@@ -31,6 +31,7 @@ my $quiet; # this line required
 my $session = start(); # this line required
 replaceUsageOfOldTemplatesAgain($session);
 updatePayPalDriversAgain($session);
+addThingyRecordFieldPriceDefaults($session);
 
 # upgrade functions go here
 
@@ -92,6 +93,15 @@ sub replaceUsageOfOldTemplatesAgain {
     print "DONE!\n" unless $quiet;
 }
 
+#----------------------------------------------------------------------------
+sub addThingyRecordFieldPriceDefaults {
+    my $session = shift;
+    print "\tAdd default fieldPrice JSON to ThingyRecord... " unless $quiet;
+    # and here's our code
+    $session->db->write(q|UPDATE ThingyRecord set fieldPrice='{}' where fieldPrice IS NULL|);
+    print "DONE!\n" unless $quiet;
+}
+
 # -------------- DO NOT EDIT BELOW THIS LINE --------------------------------
 
 #----------------------------------------------------------------------------