|
Lines 117-124
sub text_replace (**) {
Link Here
|
| 117 |
for my $t (@{$s->js_data}) { |
117 |
for my $t (@{$s->js_data}) { |
| 118 |
# FIXME for this whole block |
118 |
# FIXME for this whole block |
| 119 |
if ($t->[0]) { |
119 |
if ($t->[0]) { |
| 120 |
printf $output "%s%s%s", $t->[2], find_translation $t->[3], |
120 |
my $translation = find_translation $t->[3]; |
| 121 |
$t->[2]; |
121 |
$translation =~ s/'/'/g; |
|
|
122 |
$translation =~ s/"/&qhot;/g; |
| 123 |
printf $output "%s%s%s", $t->[2], $translation, $t->[2]; |
| 122 |
} else { |
124 |
} else { |
| 123 |
print $output $t->[1]; |
125 |
print $output $t->[1]; |
| 124 |
} |
126 |
} |
| 125 |
- |
|
|