98_weblink.pm: respect alias for link type (Forum #42467)

git-svn-id: https://svn.fhem.de/fhem/trunk@9512 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig
2015-10-18 10:24:08 +00:00
parent 5aaa1aa74e
commit 683dfbfe67

View File

@@ -72,7 +72,7 @@ weblink_FwDetail($@)
{
my ($d, $text, $nobr)= @_;
return "" if(AttrVal($d, "group", "") || AttrVal($d, "nodetaillink", ""));
my $alias= AttrVal($d, "alias", $d);
my $alias = AttrVal($d, "alias", $d);
my $ret = ($nobr ? "" : "<br>");
$ret .= "$text " if($text);
@@ -96,7 +96,8 @@ weblink_FwFn($$$$)
$ret = $link;
} elsif($wltype eq "link") {
$ret = "<a href=\"$link\" $attr>$d</a>"; # no FW_pH, open extra browser
my $alias = AttrVal($d, "alias", $d);
$ret = "<a href=\"$link\" $attr>$alias</a>"; # no FW_pH, open extra browser
} elsif($wltype eq "image") {
$ret = "<img src=\"$link\" $attr><br>" .