loncom/interface/lonmeta.pm - diff

Return to lonmeta.pm CVS log

Up to [LON-CAPA] / loncom / interface

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;