| 321 |
|
|
| 322 |
$color = get_color ($percent_a{$lang}); |
$color = get_color ($percent_a{$lang}); |
| 323 |
|
|
| 324 |
print HTML "<a name='top'>\n"; |
print HTML "<a name=\"top\"></a>\n"; |
| 325 |
printf HTML "<table width=\"100%%\" cellpadding=2 cellspacing=0 bgcolor=\"%s\">\n", $color; |
printf HTML "<table width=\"100%%\" cellpadding=2 cellspacing=0 bgcolor=\"%s\">\n", $color; |
| 326 |
|
|
| 327 |
printf HTML "<tr><td colspan=4><h1 align=\"center\">%s: %s</h1></td></tr>", $config{'title'}, ucfirst $lang; |
printf HTML "<tr><td colspan=4><h1 align=\"center\">%s: %s</h1></td></tr>", $config{'title'}, ucfirst $lang; |
| 353 |
|
|
| 354 |
# outputs the content |
# outputs the content |
| 355 |
if ($o_body) { |
if ($o_body) { |
| 356 |
print HTML "<a name='#outdated'><h3>Outdated translations: <a href='#top'>(top)</a></h3>\n"; |
print HTML "<h3><a name='#outdated'>Outdated translations</a>: <a href='#top'>(top)</a></h3>\n"; |
| 357 |
print HTML "<table border=0 cellpadding=1 cellspacing=1>\n"; |
print HTML "<table border=0 cellpadding=1 cellspacing=1>\n"; |
| 358 |
print HTML "<tr><th>File</th><th>Translated</th><th>Origin</th><th>Comment</th>"; |
print HTML "<tr><th>File</th><th>Translated</th><th>Origin</th><th>Comment</th>"; |
| 359 |
if ($opt_d eq "u") { print HTML "<th>Unified diff</th>"; } |
if ($opt_d eq "u") { print HTML "<th>Unified diff</th>"; } |
| 364 |
print HTML "</table>\n"; |
print HTML "</table>\n"; |
| 365 |
} |
} |
| 366 |
if ($u_body) { |
if ($u_body) { |
| 367 |
print HTML "<a name='#untranslated'><h3>Pages not translated: <a href='#top'>(top)</a></h3>\n"; |
print HTML "<h3><a name='#untranslated'>Pages not translated</a>: <a href='#top'>(top)</a></h3>\n"; |
| 368 |
print HTML $u_body; |
print HTML $u_body; |
| 369 |
} |
} |
| 370 |
if ($t_body) { |
if ($t_body) { |
| 371 |
print HTML "<a name='#uptodate'><h3>Translations up to date: <a href='#top'>(top)</a></h3>\n"; |
print HTML "<h3><a name='#uptodate'>Translations up to date</a>: <a href='#top'>(top)</a></h3>\n"; |
| 372 |
print HTML $t_body; |
print HTML $t_body; |
| 373 |
} |
} |
| 374 |
# outputs the gettext stats |
# outputs the gettext stats |
| 375 |
if ($lang ne 'english') { |
if ($lang ne 'english') { |
| 376 |
print HTML "<a name='gettext'><h3>Stats on gettext files: <a href='#top'>(top)</a></h3>\n"; |
print HTML "<h3><a name='gettext'>Stats on gettext files</a>: <a href='#top'>(top)</a></h3>\n"; |
| 377 |
# print HTML $border_head; |
# print HTML $border_head; |
| 378 |
print HTML "<table width=\"100%\" border=0>\n"; |
print HTML "<table width=\"100%\" border=0>\n"; |
| 379 |
print HTML "<tr><th>File</th><th>Up to date</th><th>Fuzzy</th><th>Untranslated</th><th>Total</th></tr>\n"; |
print HTML "<tr><th>File</th><th>Up to date</th><th>Fuzzy</th><th>Untranslated</th><th>Total</th></tr>\n"; |
| 449 |
print HTML "</table>\n"; |
print HTML "</table>\n"; |
| 450 |
print HTML $border_foot; |
print HTML $border_foot; |
| 451 |
|
|
| 452 |
print HTML "<h2>Statistics about gettext files (remplacement of slices)</h2>\n"; |
print HTML "<h2>Statistics about gettext files (replacement of slices)</h2>\n"; |
| 453 |
print HTML $border_head; |
print HTML $border_head; |
| 454 |
print HTML "<table width=\"100%\" border=0 bgcolor=\"#cdc9c9\">\n"; |
print HTML "<table width=\"100%\" border=0 bgcolor=\"#cdc9c9\">\n"; |
| 455 |
print HTML "<tr><th>Language</th><th>Up to date</th><th>Fuzzy</th><th>Untranslated</th><th>Total</th></tr>\n"; |
print HTML "<tr><th>Language</th><th>Up to date</th><th>Fuzzy</th><th>Untranslated</th><th>Total</th></tr>\n"; |