/[webwml]/webwml/stattrans.pl
ViewVC logotype

Diff of /webwml/stattrans.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.60 by barbier, Fri May 7 22:43:48 2004 UTC revision 1.61 by barbier, Sat May 8 15:49:03 2004 UTC
# Line 453  print HTML $border_head; Line 453  print HTML $border_head;
453  print HTML "<table width=\"100%\" border=0 bgcolor=\"#cdc9c9\">\n";  print HTML "<table width=\"100%\" border=0 bgcolor=\"#cdc9c9\">\n";
454  print HTML "<tr><th>Language</th><th>Translations</th><th>Up to date</th><th>Outdated</th><th>Not translated</th></tr>\n";  print HTML "<tr><th>Language</th><th>Translations</th><th>Up to date</th><th>Outdated</th><th>Not translated</th></tr>\n";
455  foreach $lang (@search_in) {  foreach $lang (@search_in) {
456      $l = $langs{$lang};      my @processed_langs = ($langs{$lang});
457      $l = "zh-cn" if ($l eq "zh"); # kludge      @processed_langs = ("zh-cn", "zh-tw") if $langs{$lang} eq "zh";
458        foreach $l (@processed_langs) {
459      $color_a = get_color ($percent_a{$lang});      $color_a = get_color ($percent_a{$lang});
460      $color_t = get_color ($percent_t{$lang});      $color_t = get_color ($percent_t{$lang});
461      $color_o = get_color (100 - $percent_o{$lang});      $color_o = get_color (100 - $percent_o{$lang});
# Line 468  foreach $lang (@search_in) { Line 468  foreach $lang (@search_in) {
468      printf HTML "<td bgcolor=\"%s\" align=right>%d (%d%%)</td>", $color_o, $outdated{$lang}, $percent_o{$lang};      printf HTML "<td bgcolor=\"%s\" align=right>%d (%d%%)</td>", $color_o, $outdated{$lang}, $percent_o{$lang};
469      printf HTML "<td bgcolor=\"%s\" align=right>%d (%d%%)</td>", $color_u, $untranslated{$lang}, $percent_u{$lang};      printf HTML "<td bgcolor=\"%s\" align=right>%d (%d%%)</td>", $color_u, $untranslated{$lang}, $percent_u{$lang};
470      print HTML "</tr>\n",      print HTML "</tr>\n",
471        }
472  }  }
473  print HTML "</table>\n";  print HTML "</table>\n";
474  print HTML $border_foot;  print HTML $border_foot;
# Line 479  print HTML "<table width=\"100%\" border Line 480  print HTML "<table width=\"100%\" border
480  print HTML "<tr><th>Language</th><th>Up to date</th><th>Fuzzy</th><th>Not translated</th></tr>\n";  print HTML "<tr><th>Language</th><th>Up to date</th><th>Fuzzy</th><th>Not translated</th></tr>\n";
481  foreach $lang (@search_in) {  foreach $lang (@search_in) {
482      next if $lang eq 'english';      next if $lang eq 'english';
483      $l = $langs{$lang};      my @processed_langs = ($langs{$lang});
484      $l = "zh-cn" if ($l eq "zh"); # kludge      @processed_langs = ("zh-cn", "zh-tw") if $langs{$lang} eq "zh";
485        foreach $l (@processed_langs) {
486      print HTML "<tr>";      print HTML "<tr>";
487      printf HTML "<td><a href=\"%s.html#gettext\">%s</a> (%s)</td>", $l, ucfirst $lang, $l;      printf HTML "<td><a href=\"%s.html#gettext\">%s</a> (%s)</td>", $l, ucfirst $lang, $l;
488      $color_t = get_color ($percent_po_t{'total'}{$lang});      $color_t = get_color ($percent_po_t{'total'}{$lang});
# Line 491  foreach $lang (@search_in) { Line 492  foreach $lang (@search_in) {
492      printf HTML "<td bgcolor=\"%s\" align=right>%d (%d%%)</td>", $color_f, $po_fuzzy{'total'}{$lang}, $percent_po_f{'total'}{$lang};      printf HTML "<td bgcolor=\"%s\" align=right>%d (%d%%)</td>", $color_f, $po_fuzzy{'total'}{$lang}, $percent_po_f{'total'}{$lang};
493      printf HTML "<td bgcolor=\"%s\" align=right>%d (%d%%)</td>", $color_u, $po_untranslated{'total'}{$lang}, $percent_po_u{'total'}{$lang};      printf HTML "<td bgcolor=\"%s\" align=right>%d (%d%%)</td>", $color_u, $po_untranslated{'total'}{$lang}, $percent_po_u{'total'}{$lang};
494      print HTML "</tr>\n";      print HTML "</tr>\n";
495        }
496  }  }
497    
498  print HTML "</table>\n";  print HTML "</table>\n";
Legend:
Removed from v.1.60  
changed lines
  Added in v.1.61
  ViewVC Help
Powered by ViewVC 1.1.5