my @tds = ();
if ($ref->{'pic'}) {
	push @tds, $q->a({href=>"$ref->{'pic'}"},$ref->{'name'});
} else {
	push @tds, "<LI>".$ref->{'name'};
}

push @tds, $ref->{'phone'};

if ($type eq 'f' || $type eq 'c') {
	push @tds, $ref->{'fax'};
} else {
	push @tds, $ref->{'cell'};
}

push @tds, $ref->{'loc'};

if ($type eq 'c') {
	push @tds, $ref->{'con'};
} else {
	push @tds, $q->a({href=>"mailto:$ref->{'email'}"},$ref->{'email'});
}

print $q->Tr([$q->td({-bgcolor=>$cellcolor},\@tds)]);