[Gaim-commits] CVS: gaim/po stats.pl,1.1,1.2

[Nathan W. <fac...@us...>]

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";