sub awardstart {
  @awards = ();
}


sub awardrow($$$$) {
  my ($award, $level, $when, $first) = @_;
  my ($img, $name, $desc);
  my $type;
  my $bgs = $awardimg{$award}[0];
  my $img = $awardimg{$award}[$level];
  my $name = $awardname{$award}[$level];


    $type = substr($award1, 0, 1);
    if ($level < 1){
      print "<td rowspan=\"0\"><img src=\"$bgs\" alt=\"$name\" /></td>";
    } elsif ($level == 1) {
        print "<td rowspan=\"0\"><img src=\"$img\" alt=\"$name\" /><p>$name</td>";
    } elsif ($level == 2) {
        print "<td rowspan=\"0\"><img src=\"$img\" alt=\"$name\" /><p>$name</td>";
    } else {
        print "<td rowspan=\"0\"><img src=\"$img\" alt=\"$name\" /><p>$name</td>";

   
  }
  }

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