version 1.220, 2008/12/13 19:44:52
|
version 1.221, 2008/12/13 21:10:14
|
Line 164 sub evalgraph {
|
Line 164 sub evalgraph {
|
my $val=int($value*10.+0.5)-10; |
my $val=int($value*10.+0.5)-10; |
my $output='<table border="0" cellpadding="0" cellspacing="0"><tr>'; |
my $output='<table border="0" cellpadding="0" cellspacing="0"><tr>'; |
if ($val>=20) { |
if ($val>=20) { |
$output.='<td width="20" bgcolor="#555555"> </td>'; |
$output.='<td width="20" bgcolor="#555555">'.(' ' x2).'</td>'; |
} else { |
} else { |
$output.='<td width="'.($val).'" bgcolor="#555555"> </td>'. |
$output.='<td width="'.($val).'" bgcolor="#555555"> </td>'. |
'<td width="'.(20-$val).'" bgcolor="#FF3333"> </td>'; |
'<td width="'.(20-$val).'" bgcolor="#FF3333"> </td>'; |
Line 174 sub evalgraph {
|
Line 174 sub evalgraph {
|
$output.='<td width="'.($val-20).'" bgcolor="#33FF33"> </td>'. |
$output.='<td width="'.($val-20).'" bgcolor="#33FF33"> </td>'. |
'<td width="'.(40-$val).'" bgcolor="#555555"> </td>'; |
'<td width="'.(40-$val).'" bgcolor="#555555"> </td>'; |
} else { |
} else { |
$output.='<td width="20" bgcolor="#555555"> </td>'; |
$output.='<td width="20" bgcolor="#555555">'.(' ' x2).'</td>'; |
} |
} |
$output.='<td> ('.sprintf("%5.2f",$value).') </td></tr></table>'; |
$output.='<td> ('.sprintf("%5.2f",$value).') </td></tr></table>'; |
return $output; |
return $output; |