print $q->Tr({-bgcolor=>"#".$bgcolor.$bgcolor.$bgcolor,"align=\"left\""},
   [$q->th({-colspan=>8,"class=\"typeheader\""},$cointype)]);