From 3e782a15969677ecbbe63fb7a4da96b34df1f76f Mon Sep 17 00:00:00 2001 From: rudolfkoenig Date: Sun, 20 Sep 2015 14:47:15 +0000 Subject: [PATCH] 98_weblink.pm: add nodetaillink attribute (Forum #41138) git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@9282 2b470e98-0d58-463d-a4d8-8e2adae1ed80 --- fhem/FHEM/98_weblink.pm | 47 +++++++++++++++++++---------------------- 1 file changed, 22 insertions(+), 25 deletions(-) diff --git a/fhem/FHEM/98_weblink.pm b/fhem/FHEM/98_weblink.pm index 826770d71..a1f122ec7 100755 --- a/fhem/FHEM/98_weblink.pm +++ b/fhem/FHEM/98_weblink.pm @@ -14,7 +14,7 @@ weblink_Initialize($) my ($hash) = @_; $hash->{DefFn} = "weblink_Define"; - $hash->{AttrList} = "htmlattr"; + $hash->{AttrList} = "htmlattr nodetaillink:1,0"; $hash->{FW_summaryFn} = "weblink_FwFn"; $hash->{FW_detailFn} = "weblink_FwFn"; $hash->{FW_atPageEnd} = 1; @@ -71,7 +71,7 @@ sub weblink_FwDetail($@) { my ($d, $text, $nobr)= @_; - return "" if(AttrVal($d, "group", "")); + return "" if(AttrVal($d, "group", "") || AttrVal($d, "nodetaillink", "")); my $alias= AttrVal($d, "alias", $d); my $ret = ($nobr ? "" : "
"); @@ -111,18 +111,21 @@ weblink_FwFn($$$$) my @lines = split(" ", $link); my $row = 1; $ret = ""; - $ret .= ""; + $ret .= ""; $ret .= ""; $ret .= "
"; foreach my $line (@lines) { my @args = split(":", $line, 3); - $ret .= ""; - $ret .= ""; + $ret .= ""; + $ret .= ""; $ret .= ""; } $ret .= "
\"$args[0]\" $args[1]
". + "$args[0]". + "$args[1]

"; - } return $ret; @@ -146,18 +149,24 @@ weblink_FwFn($$$$) defined links. Examples:
Notes: @@ -169,18 +178,6 @@ weblink_FwFn($$$$) Attributes -