Are you using auto-generate? If not you can do something simple such as (under html_record in html.pl):
|; if ($rec{'email'} ne "") {print qq|<img src="./pic.jpg">|;} print qq|
of course you could get really fancy and do something like:
|; if ($rec{'email'} ne "") {
if ($rec{'email'} =~ /yahoo.com/) {print qq|<img src="./yahoo-logo.gif">|;}
elsif ($rec{'email'} =~ /hotmail.com/) {print qq|<img src="./hotmail-logo.gif">|;}
elsif ($rec{'email'} =~ /aol.com/) {print qq|<img src="./aol-logo.gif">|;}
else {print qq|<img src="./generic-email-logo.gif">|;}
} print qq|
Try it and see what happens. Note that there is no "e" in the else/if statement (elsif).
Good Luck!
Ps: If you're using auto-generate then we'll have to punt.
|; if ($rec{'email'} ne "") {print qq|<img src="./pic.jpg">|;} print qq|
of course you could get really fancy and do something like:
|; if ($rec{'email'} ne "") {
if ($rec{'email'} =~ /yahoo.com/) {print qq|<img src="./yahoo-logo.gif">|;}
elsif ($rec{'email'} =~ /hotmail.com/) {print qq|<img src="./hotmail-logo.gif">|;}
elsif ($rec{'email'} =~ /aol.com/) {print qq|<img src="./aol-logo.gif">|;}
else {print qq|<img src="./generic-email-logo.gif">|;}
} print qq|
Try it and see what happens. Note that there is no "e" in the else/if statement (elsif).
Good Luck!
Ps: If you're using auto-generate then we'll have to punt.