use List::MoreUtils qw(any);
use SL::Common;
+use SL::DBUtils;
use SL::Iconv;
use strict;
$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();
sub unapplied_upgrade_scripts {
my ($self, $dbh) = @_;
- $::lxdebug->dump(0, "self", $self);
-
my @all_scripts = map { $_->{applied} = 0; $_ } $self->sort_dbupdate_controls;
my $query = qq|SELECT tag FROM | . $self->{schema} . qq|schema_info|;
return 0 if !@unapplied_scripts;
- my $db_charset = $main::dbcharset || Common::DEFAULT_CHARSET;
+ my $db_charset = $::lx_office_conf{system}->{dbcharset} || Common::DEFAULT_CHARSET;
$self->{form}->{login} ||= 'admin';
map { $_->{description} = SL::Iconv::convert($_->{charset}, $db_charset, $_->{description}) } values %{ $self->{all_controls} };