Mercurial > pidgin.yaz
comparison po/stats.pl @ 7243:136daef154f6
[gaim-migrate @ 7820]
adding images of width 0 just didn't sit right with me
committer: Tailor Script <tailor@pidgin.im>
author | Nathan Walp <nwalp@pidgin.im> |
---|---|
date | Mon, 13 Oct 2003 00:10:43 +0000 |
parents | 25e78bf033be |
children | 565b5bca5e8a |
comparison
equal
deleted
inserted
replaced
7242:59ffe137176d | 7243:136daef154f6 |
---|---|
69 } | 69 } |
70 $name = ""; | 70 $name = ""; |
71 $name = $lang{$po}; | 71 $name = $lang{$po}; |
72 $name = code2language($po) unless $name ne ""; | 72 $name = code2language($po) unless $name ne ""; |
73 $name = "???" unless $name ne ""; | 73 $name = "???" unless $name ne ""; |
74 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", | 74 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>", |
75 $name, $po, $trans, $transp, $fuzz, $fuzzp, $untrans, $untransp, $gone, $gonep, $transp*2, $fuzzp*2, $untransp*2, $gonep*2; | 75 $name, $po, $trans, $transp, $fuzz, $fuzzp, $untrans, $untransp, $gone, $gonep; |
76 printf "<img src='bar_g.gif' height='15' width='%0.0f' />", $transp*2 | |
77 unless $transp*2 < 0.5; | |
78 printf "<img src='bar_b.gif' height='15' width='%0.0f' />", $fuzzp*2 | |
79 unless $fuzzp*2 < 0.5; | |
80 printf "<img src='bar_r.gif' height='15' width='%0.0f' />", $untransp*2 | |
81 unless $untransp*2 < 0.5; | |
82 printf "<img src='bar_y.gif' height='15' width='%0.0f' />", $gonep*2 | |
83 unless $gonep*2 < 0.5; | |
84 print "</tr>\n"; | |
76 } | 85 } |
77 print "</table></td></tr></table>\n"; | 86 print "</table></td></tr></table>\n"; |
78 print "Latest gaim.pot generated $now: <a href='gaim.pot'>gaim.pot</a><br />\n"; | 87 print "Latest gaim.pot generated $now: <a href='gaim.pot'>gaim.pot</a><br />\n"; |
79 print "</body>\n"; | 88 print "</body>\n"; |
80 print "</html>\n"; | 89 print "</html>\n"; |