COMPANYNAME: {
		my $company_name = $cgi->textfield(
			-name=>'company_name',
			-default=>$tabdata->{CompanyInfo}->{company_name},
			-size=>30
		);
		$screen->AppendToSection('body',<<"EOF");
			<tr>
				<td class="fieldname">Company Name</td>
				<td class="fieldvalue">$company_name</td>
			</tr>
EOF
}