sub html_record {
# --------------------------------------------------------
my (%rec) = @_;		# Load any defaults to put in the VALUE field.
	
$total = 0;
$total = $rec{'BatterRuns'} + $rec{'HighestScore'};

$baverage1 = 0;
$baverage1 = $rec{'Innings'} - $rec{'NotOut'};
	
$baverage = 0;
$baverage =  $rec{'BatterRuns'} / $baverage1;    

# Gives 236 correct results until it hits a blank bowler field 
# who has not batted ie: NULL</b>
    
($db_auto_generate and print &build_html_record(%rec) and return);
  
   
print qq|
   
<TABLE WIDTH="450" CELLPADDING=0 CELLSPACING=0 BORDER=1 BGCOLOR="#FFFFCC">
<TR><TD ALIGN="Right" VALIGN="TOP"><$font_color>Batting Average:</FONT></TD><TD>&nbsp;<$font>$baverage</Font></TD></TR>

</TABLE>
|;

}