sub awardstart {
  @awards = ();
}


sub awardrow($$$$) {
  my ($award2, $level2, $when2, $first2) = @_;
  my ($img2, $name2, $desc2);
  my ($award1, $level1, $when1, $first1);
  my ($img1, $name1, $desc1);
  my $type;

  if ($#awards == -1) {
    push(@awards, $award2, $level2, $when2, $first2);
  } else {
    ($award1, $level1, $when1, $first1) = @awards;
    @awards = ();

    $type = substr($award1, 0, 1);
    if ($type eq "1") {
      $img1 = "img/award_$award1" . "_$level1" . "_small.jpg";
      $name1 = $awardname{$award1}[$level1];
      $desc1 = $awarddesc{$award1}[$level1];
    } elsif ($type eq "2") {
      $img1 = "img/award_$award1" . "_small.jpg";
      $name1 = "$level1 x $awardname{$award1}";
      $desc1 = $awarddesc{$award1};
    } else {
      $img1 = "img/award_$award1" . "_small.jpg";
      $name1 = $awardname{$award1};
      $desc1 = $awarddesc{$award1};
    }

    $type = substr($award2, 0, 1);
    if ($type eq "1") {
      $img2 = "img/award_$award2" . "_$level2" . "_small.jpg";
      $name2 = $awardname{$award2}[$level2];
      $desc2 = $awarddesc{$award2}[$level2];
    } elsif ($type eq "2") {
      $img2 = "img/award_$award2" . "_small.jpg";
      $name2 = "$level2 x $awardname{$award2}";
      $desc2 = $awarddesc{$award2};
    } else {
      $img2 = "img/award_$award2" . "_small.jpg";
      $name2 = $awardname{$award2};
      $desc2 = $awarddesc{$award2};
    }

    $class = $rowclass[$tableline++ % 2];
    print "    <tr class=\"$class\">";
    print "<td rowspan=\"2\"><img src=\"$img1\" alt=\"$name1\" /></td>";
    print "<td>$name1</td>";
    if ($award2 > 0) {
      print "<td rowspan=\"2\"><img src=\"$img2\" alt=\"$name2\" /></td>";
    } else {
      print "<td rowspan=\"2\">&nbsp;</td>";
    }
    print "<td>$name2</td></tr>\n";
    print "    <tr class=\"$class\">";
    print "<td>$desc1</td>";
    print "<td>$desc2</td></tr>\n";
  }
}

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