Public/fhem-mirror
1
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-05-04 22:19:38 +00:00
Code Issues Packages Projects Releases Wiki Activity

98_weblink: fix webname for cmdList (Forum #65163)

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@13143 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2017-01-18 16:20:05 +00:00
parent 52bbb0dc41
commit 07f3d8df1c
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
fhem/FHEM/98_weblink.pm
View File

@ -5,6 +5,7 @@ package main;
use strict; use strict;
use warnings; use warnings;
use vars qw($FW_subdir); # Sub-path in URL for extensions, e.g. 95_FLOORPLAN 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; use IO::File;
##################################### #####################################
@ -114,15 +115,15 @@ weblink_FwFn($$$$)
my @lines = split(" ", $link); my @lines = split(" ", $link);
my $row = 1; my $row = 1;
$ret = "<table>"; $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>"; . AttrVal($d, "alias", $d)."</a></div></td></tr>";
$ret .= "<tr><td><table class=\"block wide\">"; $ret .= "<tr><td><table class=\"block wide\">";
foreach my $line (@lines) { foreach my $line (@lines) {
my @args = split(":", $line, 3); my @args = split(":", $line, 3);
$ret .= "<tr class='".(($row++&1)?"odd":"even")."'>"; $ret .= "<tr class='".(($row++&1)?"odd":"even")."'>";
$ret .= "<td><a href='/fhem?cmd=$args[2]'><div class='col1'>". $ret .= "<td><a href='$FW_ME?cmd=$args[2]'><div class='col1'>".
"<img src='/fhem/icons/$args[0]' width='19' height='19' ". "<img src='$FW_ME/icons/$args[0]' width='19' height='19' ".
"align='center' alt='$args[0]' title='$args[0]'>". "align='center' alt='$args[0]' title='$args[0]'>".
"$args[1]</div></a></td></td>"; "$args[1]</div></a></td></td>";
$ret .= "</tr>"; $ret .= "</tr>";