+
+ if (open IN, "<", "locale/$country/charset") {
+ $self->{charset} = <IN>;
+ close IN;
+
+ chomp $self->{charset};
+
+ } else {
+ $self->{charset} = Common::DEFAULT_CHARSET;
+ }
+
+ my $db_charset = $main::dbcharset;
+ $db_charset ||= Common::DEFAULT_CHARSET;
+ $self->{iconv} = Text::Iconv->new($self->{charset}, $db_charset);
+ $self->{iconv_english} = Text::Iconv->new("ASCII", $db_charset);