Update of /cvsroot/gaim/gaim/po
In directory sc8-pr-cvs1:/tmp/cvs-serv25574/po
Modified Files:
stats.pl
Log Message:
adding images of width 0 just didn't sit right with me
Index: stats.pl
===================================================================
RCS file: /cvsroot/gaim/gaim/po/stats.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -p -r1.1 -r1.2
--- stats.pl 9 Oct 2003 05:57:12 -0000 1.1
+++ stats.pl 13 Oct 2003 00:10:43 -0000 1.2
@@ -71,8 +71,17 @@ foreach $index (0 .. $#pos) {
$name = $lang{$po};
$name = code2language($po) unless $name ne "";
$name = "???" unless $name ne "";
- printf "<tr$color><td>%s(%s.po)</td><td>%d</td><td>%0.2f</td><td>%d</td><td>%0.2f</td><td>%d</td><td>%0.2f</td><td>%d</td><td>%0.2f</td><td><img src='bar_g.gif' height='15' width='%0.0f' /><img src='bar_b.gif' height='15' width='%0.0f' /><img src='bar_r.gif' height='15' width='%0.0f' /><img src='bar_y.gif' height='15' width='%0.0f' /></tr>\n",
- $name, $po, $trans, $transp, $fuzz, $fuzzp, $untrans, $untransp, $gone, $gonep, $transp*2, $fuzzp*2, $untransp*2, $gonep*2;
+ printf "<tr$color><td>%s(%s.po)</td><td>%d</td><td>%0.2f</td><td>%d</td><td>%0.2f</td><td>%d</td><td>%0.2f</td><td>%d</td><td>%0.2f</td><td>",
+ $name, $po, $trans, $transp, $fuzz, $fuzzp, $untrans, $untransp, $gone, $gonep;
+ printf "<img src='bar_g.gif' height='15' width='%0.0f' />", $transp*2
+ unless $transp*2 < 0.5;
+ printf "<img src='bar_b.gif' height='15' width='%0.0f' />", $fuzzp*2
+ unless $fuzzp*2 < 0.5;
+ printf "<img src='bar_r.gif' height='15' width='%0.0f' />", $untransp*2
+ unless $untransp*2 < 0.5;
+ printf "<img src='bar_y.gif' height='15' width='%0.0f' />", $gonep*2
+ unless $gonep*2 < 0.5;
+ print "</tr>\n";
}
print "</table></td></tr></table>\n";
print "Latest gaim.pot generated $now: <a href='gaim.pot'>gaim.pot</a><br />\n";
|
