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

Diff of /webwml/stattrans.pl

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

revision 1.72 by witch, Sun Nov 20 22:38:04 2005 UTC revision 1.73 by witch, Fri Dec 9 01:28:25 2005 UTC
# Line 78  $altcvs->options( Line 78  $altcvs->options(
78  $max_versions = 5;  $max_versions = 5;
79  $min_versions = 1;  $min_versions = 1;
80    
 # $border_head = "<table width=\"95%\" align=\"center\" border=0 cellpadding=0 cellspacing=0><tr bgcolor=\"#000000\"><td>"  
 #              ."<table width=\"100%\" border=0 cellpadding=0 cellspacing=1><tr bgcolor=\"#ffffff\"><td>";  
 # $border_foot = "</td></tr></table></td></tr></table>";  
   
81    
82  $date = strftime "%a %b %e %H:%M:%S %Y %z", localtime;  $date = strftime "%a %b %e %H:%M:%S %Y %z", localtime;
83    
# Line 389  foreach $lang (@search_in) { Line 385  foreach $lang (@search_in) {
385    
386              printf HTML "<h1 style=\"background-color: %s\; margin: 0\;\"><a name=\"top\"></a>", $color;              printf HTML "<h1 style=\"background-color: %s\; margin: 0\;\"><a name=\"top\"></a>", $color;
387              printf HTML "%s: %s</h1>\n", $config{'title'}, ucfirst $lang;              printf HTML "%s: %s</h1>\n", $config{'title'}, ucfirst $lang;
388              printf HTML "<table style=\"background-color: %s\; width: 100%\; font-weight: bold\; margin: 0\; text-align: center\;\">\n", $color;              printf HTML "<table summary=\"Translation Summary for $lang\" style=\"background-color: %s\; width: 100%\; font-weight: bold\; margin: 0\; text-align: center\;\">\n", $color;
389              print HTML "<colgroup span=\"4\" width=\"25%\"></colgroup>\n";              print HTML "<colgroup span=\"4\" width=\"25%\"></colgroup>\n";
390              # 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;
391    
# Line 429  foreach $lang (@search_in) { Line 425  foreach $lang (@search_in) {
425              # outputs the content              # outputs the content
426              if ($o_body) {              if ($o_body) {
427                  print HTML "<h3><a name='outdated'>Outdated translations</a>: <a href='#top'>(top)</a></h3>\n";                  print HTML "<h3><a name='outdated'>Outdated translations</a>: <a href='#top'>(top)</a></h3>\n";
428                  print HTML "<table border=0 cellpadding=1 cellspacing=1>\n";                  print HTML "<table summary=\"Outdated Translations\" border=0 cellpadding=1 cellspacing=1>\n";
429                  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>";
430                  if ($opt_d eq "u") { print HTML "<th>Unified diff</th>"; }                  if ($opt_d eq "u") { print HTML "<th>Unified diff</th>"; }
431                  elsif ($opt_d eq "h") { print HTML "<th>Colored diff</th>"; }                  elsif ($opt_d eq "h") { print HTML "<th>Colored diff</th>"; }
# Line 442  foreach $lang (@search_in) { Line 438  foreach $lang (@search_in) {
438              }              }
439              if ($u_body) {              if ($u_body) {
440                  print HTML "<h3><a name='untranslated'>Pages not translated</a>: <a href='#top'>(top)</a></h3>\n";                  print HTML "<h3><a name='untranslated'>Pages not translated</a>: <a href='#top'>(top)</a></h3>\n";
441                  print HTML "<table>\n";                  print HTML "<table summary=\"Untranslated Pages\">\n";
442                  print HTML $u_body;                  print HTML $u_body;
443                  print HTML "</table>\n";                  print HTML "</table>\n";
444              }              }
# Line 456  foreach $lang (@search_in) { Line 452  foreach $lang (@search_in) {
452              if ($lang ne 'english') {              if ($lang ne 'english') {
453                  print HTML "<h3><a name='gettext'>Translations of templates (gettext files)</a>: <a href='#top'>(top)</a></h3>\n";                  print HTML "<h3><a name='gettext'>Translations of templates (gettext files)</a>: <a href='#top'>(top)</a></h3>\n";
454      #            print HTML $border_head;      #            print HTML $border_head;
455                  print HTML "<table width=\"100%\">\n";                  print HTML "<table summary=\"Gettext Statistics\" width=\"100%\">\n";
456                  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";
457                  foreach my $domain (sort keys %po_total) {                  foreach my $domain (sort keys %po_total) {
458                      next if $domain eq 'total';                      next if $domain eq 'total';
# Line 512  print HTMLI "<h2>Translated web pages</h Line 508  print HTMLI "<h2>Translated web pages</h
508  printf HTMLI "<p>There are %d pages to translate.</p>\n",($wml{'english'}+$untranslated{'english'});  printf HTMLI "<p>There are %d pages to translate.</p>\n",($wml{'english'}+$untranslated{'english'});
509    
510  # print HTMLI $border_head;  # print HTMLI $border_head;
511  print HTMLI "<table class=\"stattrans\">\n";  print HTMLI "<table summary=\"Translation Statistics by Page Count\" class=\"stattrans\">\n";
512  print HTMLI "<colgroup width=\"20%\">\n";  print HTMLI "<colgroup width=\"20%\">\n";
513  print HTMLI "<col>\n";  print HTMLI "<col>\n";
514  print HTMLI "</colgroup>";  print HTMLI "</colgroup>";
# Line 556  print HTMLI "<h2>Translated web pages (b Line 552  print HTMLI "<h2>Translated web pages (b
552  printf HTMLI "<p>There are %d bytes to translate.</p>\n",($wml_s{'english'}+$untranslated_s{'english'});  printf HTMLI "<p>There are %d bytes to translate.</p>\n",($wml_s{'english'}+$untranslated_s{'english'});
553    
554  # print HTMLI $border_head;  # print HTMLI $border_head;
555  print HTMLI "<table class=\"stattrans\">\n";  print HTMLI "<table summary=\"Translation Statistics by Page Size\" class=\"stattrans\">\n";
556  # print HTMLI "<table width=\"100%\" border=0 bgcolor=\"#cdc9c9\">\n";  # print HTMLI "<table width=\"100%\" border=0 bgcolor=\"#cdc9c9\">\n";
557  print HTMLI "<colgroup span=\"1\">\n";  print HTMLI "<colgroup span=\"1\">\n";
558  print HTMLI "<col width=\"20%\">\n";  print HTMLI "<col width=\"20%\">\n";
# Line 601  print HTMLI "</table>\n"; Line 597  print HTMLI "</table>\n";
597  print HTMLI "<h2>Translated templates (gettext files)</h2>\n";  print HTMLI "<h2>Translated templates (gettext files)</h2>\n";
598  printf HTMLI "<p>There are %d strings to translate.</p>\n",$po_total{'total'};  printf HTMLI "<p>There are %d strings to translate.</p>\n",$po_total{'total'};
599  # print HTMLI $border_head;  # print HTMLI $border_head;
600  print HTMLI "<table class=\"stattrans\">\n";  print HTMLI "<table summary=\"Gettext Translation Statistiks\"class=\"stattrans\">\n";
601  # print HTMLI "<table width=\"100%\" border=0 bgcolor=\"#cdc9c9\">\n";  # print HTMLI "<table width=\"100%\" border=0 bgcolor=\"#cdc9c9\">\n";
602  print HTMLI "<colgroup span=\"1\"width=\"28%\">\n";  print HTMLI "<colgroup span=\"1\"width=\"28%\">\n";
603  print HTMLI "</colgroup>";  print HTMLI "</colgroup>";
Legend:
Removed from v.1.72  
changed lines
  Added in v.1.73
  ViewVC Help
Powered by ViewVC 1.1.5