if ($type eq 'f') {     
        if ($ref->{'pic'}) {
                print $q->Tr([
                        $q->td({-bgcolor=>$cellcolor},[$q->a({href=>"$ref->{'pic'}"},$ref->{'name'}),$ref->{'phone'},$ref->{'fax'},$ref->{'loc'},
                        $q->a({href=>"mailto:$ref->{'email'}"},$ref->{'email'}) ])
                ]);
        } else {
                print $q->Tr([
                        $q->td({-bgcolor=>$cellcolor},["<LI>".$ref->{'name'},$ref->{'phone'},$ref->{'fax'},$ref->{'loc'},
                        $q->a({href=>"mailto:$ref->{'email'}"},$ref->{'email'}) ])
                ]);
        }
} elsif ($type eq 'c') {                
        if ($ref->{'pic'}) {
                print $q->Tr([
                        $q->td({-bgcolor=>$cellcolor},[$q->a({href=>"$ref->{'pic'}"},$ref->{'name'}),$ref->{'phone'},$ref->{'fax'},$ref->{'loc'},
                        $ref->{'con'}])
                ]);
        } else {
                print $q->Tr([
                        $q->td({-bgcolor=>$cellcolor},["<LI>".$ref->{'name'},$ref->{'phone'},$ref->{'fax'},$ref->{'loc'},
                        $ref->{'con'}])
                ]);
        }
} else {
        if ($ref->{'pic'}) {
                print $q->Tr([
                        $q->td({-bgcolor=>$cellcolor},["<IMG SRC=\"/images/thumb_$ref->{'pic'}\">&nbsp &nbsp".$q->a({href=>"/images/$ref->{'pic'}"},$ref->{'name'}),$ref->{'phone'},$ref->{'cell'},$ref->{'loc'},
                        $q->a({href=>"mailto:$ref->{'email'}"},$ref->{'email'}) ])
                ]);
        } else {
                print $q->Tr([
                        $q->td({-bgcolor=>$cellcolor},['<LI>&nbsp &nbsp '.$ref->{'name'},$ref->{'phone'},$ref->{'cell'},$ref->{'loc'},
                        $q->a({href=>"mailto:$ref->{'email'}"},$ref->{'email'}) ])
                ]);
        }
}