20 |
|
|
21 |
my $from_utf8 = Text::Iconv->new('UTF8', $config->{charset}); |
my $from_utf8 = Text::Iconv->new('UTF8', $config->{charset}); |
22 |
sub x { |
sub x { |
23 |
|
return if (! defined $_[0]); |
24 |
return $from_utf8->convert($_[0]); |
return $from_utf8->convert($_[0]); |
25 |
} |
} |
26 |
|
|
72 |
$path_label{$_->{limit}} = x($_->{content}); |
$path_label{$_->{limit}} = x($_->{content}); |
73 |
} |
} |
74 |
|
|
75 |
my @properties = split(/\s+/,x($config->{properties})); |
my @properties = split(/\s+/,x($config->{properties})) if ($config->{properties}); |
76 |
|
|
77 |
if ($config->{charset}) { |
if ($config->{charset}) { |
78 |
print header(-charset=>x($config->{charset})); |
print header(-charset=>x($config->{charset})); |