Change to stattrans.pl

[Frank Lichtenheld]

Hi.

I want apply the following patch to stattrans.pl, that adds
links to the log entry page for outdated files. I would find
this very usefull for translating.
Any objections?

Frank

-- 
*** Frank Lichtenheld <[EMAIL PROTECTED]> ***
          *** http://www.djpig.de/ ***
see also: - http://www.usta.de/
          - http://fachschaft.physik.uni-karlsruhe.de/
Index: stattrans.pl
===================================================================
RCS file: /cvs/webwml/webwml/stattrans.pl,v
retrieving revision 1.55
diff -u -r1.55 stattrans.pl
--- stattrans.pl        23 Apr 2003 14:22:59 -0000      1.55
+++ stattrans.pl        28 Apr 2003 23:32:40 -0000
@@ -284,6 +284,7 @@
                        $o_body .= sprintf "<td>%s</td>", 
$version{"$orig/$file"};
                        $o_body .= sprintf "<td>%s</td>", $msg;
                        $o_body .= sprintf "<td>&nbsp;&nbsp;<a 
href=\"http://cvs.debian.org/webwml/$orig/%s.wml.diff\?r1=%s\&amp;r2=%s\&amp;cvsroot=webwml\&amp;diff_format=%s\";>%s
 -> %s</a></td>", $file, $transversion{"$lang/$file"}, $version{"$orig/$file"}, 
$config{'difftype'}, $transversion{"$lang/$file"}, $version{"$orig/$file"};
+                       $o_body .= sprintf "<td><a 
href=\"http://cvs.debian.org/webwml/$orig/%s.wml?cvsroot=webwml#rev%s\";>[L]</a></td>",
 $file, $version{"$orig/$file"};
                        $o_body .= sprintf "<td align=center>%s</td>", 
$maintainer{"$lang/$file"} || "";
                        $o_body .= "</tr>\n";
                        $outdated{$lang}++;
@@ -363,6 +364,7 @@
            if ($opt_d eq "u") { print HTML "<th>Unified diff</th>"; }
            elsif ($opt_d eq "h") { print HTML "<th>Colored diff</th>"; }
            else { print HTML "<th>Diff</th>"; }
+           print HTML "<th>Log</th>";
            print HTML "<th>Maintainer</th>";
            print HTML "</tr>\n";
            print HTML $o_body;