sub awardstart {
  @awards = ();
}


sub awardrow($$$$$) {
  my ($award, $level, $when, $first, $awardbgs) = @_;
  my ($img, $bgs, $name, $desc);
  my $bgs = $awardbgs{$award}[0];
  my $image = $level;
  my $name = $aname{$award};
    if ($level <1){ $image=0;} 
    elsif ($level == 1) {$image=1;} 
    elsif ($level == 2) {$image=2;} 
    else {$image=3;}
   
print<<ende 
    <tr>
        <td width="45"><img src="awards/antitankcombat_$image.png" ><p>$name</td>
        <td width="45"><img src="awards/airdefense_$image.png" ><p>$name</td>
        <td width="45"><img src="awards/helecopter_$image.png" ><p>$name</td>
        <td width="45"></td>
        <td width="45"></td>
        <td width="45"></td>
        <td width="45"></td>
        <td width="45"></td>
        <td width="45"></td>
        <td width="45"></td>

</tr>

ende

}

sub awardend {
  if ($#awards != -1) {
    awardrow(0,0,0,0,0);
  }
}