Lines 35-48
sub find_translation ($) {
Link Here
|
35 |
my($s) = @_; |
35 |
my($s) = @_; |
36 |
my $key = $s; |
36 |
my $key = $s; |
37 |
if ($s =~ /\S/s) { |
37 |
if ($s =~ /\S/s) { |
38 |
$key = TmplTokenizer::string_canon($key); |
38 |
$key = TmplTokenizer::string_canon($key); |
39 |
$key = TmplTokenizer::charset_convert($key, $charset_in, $charset_out); |
39 |
$key = TmplTokenizer::charset_convert($key, $charset_in, $charset_out); |
40 |
$key = TmplTokenizer::quote_po($key); |
40 |
$key = TmplTokenizer::quote_po($key); |
|
|
41 |
} |
42 |
if (defined $href->{$key} && !$href->{$key}->fuzzy && length Locale::PO->dequote($href->{$key}->msgstr)){ |
43 |
if ($s =~ /^(\s+)/){ |
44 |
return $1 . Locale::PO->dequote($href->{$key}->msgstr); |
45 |
} |
46 |
else { |
47 |
return Locale::PO->dequote($href->{$key}->msgstr); |
48 |
} |
49 |
} |
50 |
else { |
51 |
return $s; |
41 |
} |
52 |
} |
42 |
return defined $href->{$key} |
|
|
43 |
&& !$href->{$key}->fuzzy |
44 |
&& length Locale::PO->dequote($href->{$key}->msgstr)? |
45 |
Locale::PO->dequote($href->{$key}->msgstr): $s; |
46 |
} |
53 |
} |
47 |
|
54 |
|
48 |
sub text_replace_tag ($$) { |
55 |
sub text_replace_tag ($$) { |
49 |
- |
|
|