sub printHTMLCellLeft {
	my ($file) = shift ;
	my ($value) = shift ;
	if (!defined $value) $value = " ";
	print $file "<td align=\"left\">" . $value . "</td>\n" ;
}