|
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 |
- |
|
|