X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/1072cd08c6f5b1905a34dcb3eeab3ddec98d6905..5c41c19b68c3edeb374b32fd75ac4253aafc4df1:/SL/DBUpgrade2.pm diff --git a/SL/DBUpgrade2.pm b/SL/DBUpgrade2.pm index af5037acc..ce9db4261 100644 --- a/SL/DBUpgrade2.pm +++ b/SL/DBUpgrade2.pm @@ -24,7 +24,7 @@ sub init { } $params{path_suffix} ||= ''; - $params{schame} ||= ''; + $params{schema} ||= ''; map { $self->{$_} = $params{$_} } keys %params; @@ -245,7 +245,7 @@ sub process_perl_script { $db_charset ||= Common::DEFAULT_CHARSET; - my $iconv = SL::Iconv::get_converter($file_charset, $db_charset); + my $iconv = SL::Iconv->new($file_charset, $db_charset); $dbh->begin_work();