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

Upgrade all database tables that use JSON to be LONGTEXT instead of what they were.

Browse source 
Addresses bug #10825
This commit is contained in:
Colin Kuskie 2009-08-25 21:42:16 +00:00
parent d0dd47a5a4
commit 7fcb339605
5 changed files with 49 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

1
docs/changelog/7.x.x.txt
View file

@ -1,4 +1,5 @@
7.7.19
- fixed #10825: Text and MediumText fields should be LongText
- fixed #10808: Ask user about using rich edit option causes error in IE6
- fixed #10822: spectre pid sucks
- fixed #10817: Datatable not internationalized

41
docs/upgrades/upgrade_7.7.18-7.7.19.pl
View file

@ -32,9 +32,9 @@ my $session = start(); # this line required
# upgrade functions go here
addInboxSmsNotificationTemplateIdSetting($session);
upgradeJSONDatabaseFields($session);
finish($session); # this line required
#----------------------------------------------------------------------------
# Describe what our function does
#sub exampleFunction {
@ -53,6 +53,45 @@ sub addInboxSmsNotificationTemplateIdSetting {
print "DONE!\n" unless $quiet;
}
sub upgradeJSONDatabaseFields {
my $session = shift;
print "\tUpgrading all fields which use JSON to LONGTEXT... " unless $quiet;
print "\n\t\tUpgrading Sku fields... " unless $quiet;
$session->db->write(q|ALTER TABLE sku MODIFY taxConfiguration LONGTEXT|);
print "\n\t\tUpgrading Product fields... " unless $quiet;
$session->db->write(q|ALTER TABLE Product MODIFY variantsJSON LONGTEXT|);
$session->db->write(q|ALTER TABLE Product MODIFY accessoryJSON LONGTEXT|);
$session->db->write(q|ALTER TABLE Product MODIFY relatedJSON LONGTEXT|);
$session->db->write(q|ALTER TABLE Product MODIFY specificationJSON LONGTEXT|);
$session->db->write(q|ALTER TABLE Product MODIFY featureJSON LONGTEXT|);
$session->db->write(q|ALTER TABLE Product MODIFY benefitJSON LONGTEXT|);
print "\n\t\tUpgrading DataForm fields... " unless $quiet;
$session->db->write(q|ALTER TABLE DataForm MODIFY fieldConfiguration LONGTEXT|);
$session->db->write(q|ALTER TABLE DataForm MODIFY tabConfiguration LONGTEXT|);
print "\n\t\tUpgrading DataForm entry fields... " unless $quiet;
$session->db->write(q|ALTER TABLE DataForm_entry MODIFY entryData LONGTEXT|);
print "\n\t\tUpgrading Scheduler fields... " unless $quiet;
$session->db->write(q|ALTER TABLE WorkflowSchedule MODIFY parameters LONGTEXT|);
print "\n\t\tUpgrading Workflow Instance fields... " unless $quiet;
$session->db->write(q|ALTER TABLE WorkflowInstance MODIFY parameters LONGTEXT|);
print "\n\t\tUpgrading AssetAspect Comments fields... " unless $quiet;
$session->db->write(q|ALTER TABLE assetAspectComments MODIFY comments LONGTEXT|);
print "\n\t\tUpgrading Thingy Record fields... " unless $quiet;
$session->db->write(q|ALTER TABLE ThingyRecord MODIFY fieldPrice LONGTEXT|);
print "\n\t\tUpgrading Payment Gateway fields... " unless $quiet;
$session->db->write(q|ALTER TABLE paymentGateway MODIFY options LONGTEXT|);
print "\n\t\tUpgrading Shipping driver fields... " unless $quiet;
$session->db->write(q|ALTER TABLE shipper MODIFY options LONGTEXT|);
print "\n\t\tUpgrading Tax Driver fields... " unless $quiet;
$session->db->write(q|ALTER TABLE taxDriver MODIFY options LONGTEXT|);
print "\n\t\tUpgrading Transaction Item fields... " unless $quiet;
$session->db->write(q|ALTER TABLE transactionItem MODIFY options LONGTEXT|);
$session->db->write(q|ALTER TABLE transactionItem MODIFY taxConfiguration LONGTEXT|);
print "\n\t\tUpgrading Cart Item fields... " unless $quiet;
$session->db->write(q|ALTER TABLE cartItem MODIFY options LONGTEXT|);
print "DONE!\n" unless $quiet;
}
# -------------- DO NOT EDIT BELOW THIS LINE --------------------------------
#----------------------------------------------------------------------------