diff options
author | Frans Pop <fjp> | 2009-06-02 23:46:10 +0000 |
---|---|---|
committer | Frans Pop <fjp> | 2009-06-02 23:46:10 +0000 |
commit | ebfc16047434e25da36523dc464dcb68535d2d4c (patch) | |
tree | 79034a5dfe6a40b9eaad38811d989b1292563399 /stattrans.pl | |
parent | abb7f19abecae88675a54cd1bc07499f8f4ec9aa (diff) |
Display current version of original document for untranslated files
Helps to set the translation header correctly. Have not investigated
why some documents get an empty version.
CVS version numbers
stattrans.pl: 1.87 -> 1.88
Diffstat (limited to 'stattrans.pl')
-rwxr-xr-x | stattrans.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/stattrans.pl b/stattrans.pl index 30a83e5edcf..de057397e66 100755 --- a/stattrans.pl +++ b/stattrans.pl @@ -346,7 +346,7 @@ foreach $lang (@search_in) { $u_tmp = sprintf "<tr><td>%s</td><td> </td></tr>\n", $file; } else { (my $base = $file) =~ s/\.wml$//; - $u_tmp = sprintf "<tr><td><a href=\"$opt_b/%s\">%s</a></td><td align=\"right\">%d</td><td>(%.2f ‰)</td></tr>\n", $base, $base, $sizes{$file}, $sizes{$file}/$nsize * 1000; + $u_tmp = sprintf "<tr><td><a href=\"$opt_b/%s\">%s (%s)</a></td><td align=\"right\">%d</td><td>(%.2f ‰)</td></tr>\n", $base, $base, $version{"$orig/$file"}, $sizes{$file}, $sizes{$file}/$nsize * 1000; } if (($file =~ /international\//) && (($file !~ /international\/index.wml$/) || |