anne/lyx_mirror
1
0
Fork 0
mirror of https://git.lyx.org/repos/lyx.git synced 2024-11-25 10:58:52 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Cmake tests: Combine "text" field to extract translators name

Browse Source 
While extracting names of a translator from the html page it can happen
that the perl's HTML::Parser module splits the "text".
This commit is contained in:
Kornel Benko 2015-10-25 16:23:59 +01:00
parent b275b30391
commit 5439f4e554
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
development/checkurls/getTranslators.pl Normal file → Executable file
View File

@ -141,7 +141,7 @@ else {
for my $lang (sort keys %list) { for my $lang (sort keys %list) {
for my $rentry (@{$list{$lang}}) { for my $rentry (@{$list{$lang}}) {
my $prefix = sprintf("(%02d%) ", "$rentry->{fract}"); my $prefix = sprintf("(%03d%) ", "$rentry->{fract}");
if (defined($rentry->{error})) { if (defined($rentry->{error})) {
$errors++; $errors++;
$prefix .= sprintf("%-24s", "$rentry->{error}:"); $prefix .= sprintf("%-24s", "$rentry->{error}:");
@ -268,10 +268,10 @@ sub text($$)
} }
if ($status{Tag_td} == 6) { if ($status{Tag_td} == 6) {
if (&actual_tag() eq "a") { if (&actual_tag() eq "a") {
$page_row{name} = $text; $page_row{name} .= $text; # '.=' because text can be splitted
} }
elsif (&actual_tag() eq "td") { # name without associated e-mail elsif (&actual_tag() eq "td") { # name without associated e-mail
$page_row{name} = $text; $page_row{name} .= $text;
} }
} }
} }