Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

Cleanup and perltidy.

Browse source 
Add "use warnings", remove unused variables and unnecessary finish/disconnect
at the end.  This script could be improved to run only on tables that need to
be altered instead of touching all of them.  It should also probably contain
warnings to the effect that it does not rescue your DATA that was forced into
whatever encoding the table used previously.

Signed-off-by: Galen Charlton <galen.charlton@liblime.com>
This commit is contained in:
Joe Atzberger 2009-01-28 13:25:48 -06:00 committed by Galen Charlton
parent d2c4ae65ab
commit 11b90be284
1 changed files with 9 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
misc/migration_tools/22_to_30/convert_to_utf8.pl
View file

@ -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);
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();