version 1.70, 2004/04/14 20:45:14
|
version 1.71, 2004/04/14 21:22:44
|
Line 114 sub evalgraph {
|
Line 114 sub evalgraph {
|
return ''; |
return ''; |
} |
} |
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">  </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>'; |
} |
} |
$output.='<td bgcolor="#FFFF33"> </td>'; |
$output.='<td bgcolor="#FFFF33"> </td>'; |
if ($val>20) { |
if ($val>20) { |
$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">  </td>'; |
} |
} |
$output.='<td> ('.$value.') </td></tr></table>'; |
$output.='<td> ('.sprintf("%5.2f",$value).') </td></tr></table>'; |
return $output; |
return $output; |
} |
} |
|
|
Line 140 sub diffgraph {
|
Line 140 sub diffgraph {
|
my $val=int(40.0*$value+0.5); |
my $val=int(40.0*$value+0.5); |
my @colors=('#FF9933','#EEAA33','#DDBB33','#CCCC33', |
my @colors=('#FF9933','#EEAA33','#DDBB33','#CCCC33', |
'#BBDD33','#CCCC33','#DDBB33','#EEAA33'); |
'#BBDD33','#CCCC33','#DDBB33','#EEAA33'); |
my $output='<table border=0 cellpadding=0 cellspacing=0><tr>'; |
my $output='<table border="0" cellpadding="0" cellspacing="0"><tr>'; |
for (my $i=0;$i<8;$i++) { |
for (my $i=0;$i<8;$i++) { |
if ($val>$i*5) { |
if ($val>$i*5) { |
$output.='<td width=5 bgcolor="'.$colors[$i].'"> </td>'; |
$output.='<td width="5" bgcolor="'.$colors[$i].'"> </td>'; |
} else { |
} else { |
$output.='<td width=5 bgcolor="#555555"> </td>'; |
$output.='<td width="5" bgcolor="#555555"> </td>'; |
} |
} |
} |
} |
$output.='<td> ('.$value.') </td></tr></table>'; |
$output.='<td> ('.sprintf("%3.2f",$value).') </td></tr></table>'; |
return $output; |
return $output; |
} |
} |
|
|