next if $table->{Name} eq 'auth_subfield_table';
if ($table->{Engine} ne 'InnoDB') {
print "moving $table->{Name} to InnoDB\n";
- $dbh->do("ALTER TABLE $table->{Name} TYPE = innodb");
+ $dbh->do("ALTER TABLE $table->{Name} ENGINE = innodb");
}
unless ($table->{Collation} =~ /^utf8/) {
print "moving $table->{Name} to utf8\n";
print "upgrade to Koha 3.0 done\n";
SetVersion ($DBversion);
-
-=item GetDefaultClause
+=head1 GetDefaultClause
Generate a default clause (for an ALTER TABLE command)
=cut
+
sub GetDefaultClause {
my $default = shift;
return "default " . $dbh->quote($default);
}
-=item TransformToNum
+=head1 TransformToNum
+
+Transform the Koha version from a 4 parts string
+to a number, with just 1.
- Transform the Koha version from a 4 parts string
- to a number, with just 1 .
-
=cut
sub TransformToNum {
return $version;
}
-=item SetVersion
- set the DBversion in the systempreferences
+=head1 SetVersion
+
+set the DBversion in the systempreferences
+
=cut
sub SetVersion {