From 683dfbfe6711cb400d93eae6665dbe659724d259 Mon Sep 17 00:00:00 2001
From: rudolfkoenig <rudolfkoenig@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Sun, 18 Oct 2015 10:24:08 +0000
Subject: [PATCH] 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
---
 fhem/FHEM/98_weblink.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/fhem/FHEM/98_weblink.pm b/fhem/FHEM/98_weblink.pm
index a1f122ec7..987947a1c 100755
--- a/fhem/FHEM/98_weblink.pm
+++ b/fhem/FHEM/98_weblink.pm
@@ -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>" .