From 288adcfd176808b71e9268124146dfb3b5963fbe Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Wed, 23 Nov 2011 17:01:00 -0800
Subject: [PATCH] Script to convert every WebGUI except assetIndex table from
 MyISAM to InnoDB.

---
 .../7.10.23-8.0.0/zzzz_convertToInnoDb.pl         | 15 +++++++++++++++
 1 file changed, 15 insertions(+)
 create mode 100644 share/upgrades/7.10.23-8.0.0/zzzz_convertToInnoDb.pl

diff --git a/share/upgrades/7.10.23-8.0.0/zzzz_convertToInnoDb.pl b/share/upgrades/7.10.23-8.0.0/zzzz_convertToInnoDb.pl
new file mode 100644
index 000000000..b6d097a7b
--- /dev/null
+++ b/share/upgrades/7.10.23-8.0.0/zzzz_convertToInnoDb.pl
@@ -0,0 +1,15 @@
+
+use WebGUI::Upgrade::Script;
+
+start_step "Convert all tables except assetIndex to InnoDB";
+
+my $get_table = session->db->table_info('', '', '%', 'TABLE');
+
+TABLE: while ( my $table = $get_table->fetchrow_hashref() ) {
+    next TABLE if $table->{TABLE_NAME} eq 'assetIndex';
+    session->db->write("ALTER TABLE ". $table->{TABLE_NAME}. " ENGINE=InnoDB");
+}
+
+
+done;
+