From 07f3d8df1cc0d036415d2a4d822029112ee6a746 Mon Sep 17 00:00:00 2001
From: rudolfkoenig <>
Date: Wed, 18 Jan 2017 16:20:05 +0000
Subject: [PATCH] 98_weblink: fix webname for cmdList (Forum #65163)

git-svn-id: https://svn.fhem.de/fhem/trunk@13143 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/98_weblink.pm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/fhem/FHEM/98_weblink.pm b/fhem/FHEM/98_weblink.pm
index 761722bf7..229bee0a6 100755
--- a/fhem/FHEM/98_weblink.pm
+++ b/fhem/FHEM/98_weblink.pm
@@ -5,6 +5,7 @@ package main;
 use strict;
 use warnings;
 use vars qw($FW_subdir);  # Sub-path in URL for extensions, e.g. 95_FLOORPLAN
+use vars qw($FW_ME);      # webname (default is fhem), used by 97_GROUP/weblink
 use IO::File;
 
 #####################################
@@ -114,15 +115,15 @@ weblink_FwFn($$$$)
     my @lines = split(" ", $link);
     my $row = 1;
     $ret = "<table>";
-    $ret .= "<tr><td><div class='devType'><a href='/fhem?detail=$d'>"
+    $ret .= "<tr><td><div class='devType'><a href='$FW_ME?detail=$d'>"
                 . AttrVal($d, "alias", $d)."</a></div></td></tr>";
     $ret .= "<tr><td><table class=\"block wide\">";
     foreach my $line (@lines) {
       my @args = split(":", $line, 3);
 
       $ret .= "<tr class='".(($row++&1)?"odd":"even")."'>";
-      $ret .= "<td><a href='/fhem?cmd=$args[2]'><div class='col1'>".
-                "<img src='/fhem/icons/$args[0]' width='19' height='19' ".
+      $ret .= "<td><a href='$FW_ME?cmd=$args[2]'><div class='col1'>".
+                "<img src='$FW_ME/icons/$args[0]' width='19' height='19' ".
                 "align='center' alt='$args[0]' title='$args[0]'>".
                 "$args[1]</div></a></td></td>";
       $ret .= "</tr>";