Cleanup and perltidy.

[koha.git] / misc / migration_tools / 22_to_30 / convert_to_utf8.pl

diff --git a/misc/migration_tools/22_to_30/convert_to_utf8.pl b/misc/migration_tools/22_to_30/convert_to_utf8.pl
index bad4b96..fbbff89 100755 (executable)
--- a/misc/migration_tools/22_to_30/convert_to_utf8.pl
+++ b/misc/migration_tools/22_to_30/convert_to_utf8.pl
@@ -3,27 +3,24 @@
 # small script to convert mysql tables to utf-8
 
 use strict;
+use warnings;
+
 BEGIN {
+
     # find Koha's Perl modules
     # test carefully before changing this
     use FindBin;
     eval { require "$FindBin::Bin/../../kohalib.pl" };
 }
-use C4::Context;
 
-my $dbh=C4::Context->dbh();
-
-my $database=C4::Context->config("database");
-my $query="Show tables";
-my $sth=$dbh->prepare($query);
+use C4::Context;
+my $dbh = C4::Context->dbh();
+my $sth = $dbh->prepare("Show tables");
 $sth->execute();
-while (my @table=$sth->fetchrow_array()){
+while (my @table = $sth->fetchrow_array()) {
     print "Altering table $table[0]\n";
-    my $alter_query="ALTER TABLE $table[0] convert to CHARACTER SET UTF8 collate utf8_general_ci";
-    my $sth2=$dbh->prepare($alter_query);
+    my $alter_query = "ALTER TABLE $table[0] convert to CHARACTER SET UTF8 collate utf8_general_ci";
+    my $sth2        = $dbh->prepare($alter_query);
     $sth2->execute();
     $sth2->finish();
-
 }
-$sth->finish();
-$dbh->disconnect();