my @tds = ();
if ($ref->{'pic'}) {
push @tds, $q->a({href=>"$ref->{'pic'}"},$ref->{'name'});
} else {
push @tds, "
".$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)]);