From 23a9dbf18c0e7f9f1bc9f913f97b573bbe2919d0 Mon Sep 17 00:00:00 2001
From: betateilchen <>
Date: Sat, 7 Feb 2015 10:22:29 +0000
Subject: [PATCH] 55_InfoPanel.pm: updated
added perl special for bgcolor and bgdir
commandref updated
git-svn-id: https://svn.fhem.de/fhem/trunk@7901 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
fhem/FHEM/55_InfoPanel.pm | 11 ++++++++---
1 file changed, 8 insertions(+), 3 deletions(-)
diff --git a/fhem/FHEM/55_InfoPanel.pm b/fhem/FHEM/55_InfoPanel.pm
index 29146f9ab..af8780de5 100644
--- a/fhem/FHEM/55_InfoPanel.pm
+++ b/fhem/FHEM/55_InfoPanel.pm
@@ -609,7 +609,7 @@ sub btIP_returnSVG($) {
}
my ($width,$height)= split(/x/, AttrVal($name,"size","800x600"));
- my $bgcolor = AttrVal($name,'bgcolor','000000');
+ my $bgcolor = AnalyzePerlCommand(undef,AttrVal($name,'bgcolor','000000'));
my $output = "";
our $svg = "";
@@ -625,7 +625,7 @@ sub btIP_returnSVG($) {
# set the background
# check if background directory is set
my $reason= "?"; # remember reason for undefined image
- my $bgdir= AttrVal($name,"bgdir",undef);
+ my $bgdir= AnalyzePerlCommand(undef,AttrVal($name,"bgdir",undef));
if(defined($bgdir)){
my $bgnr; # item number
if(defined($defs{$name}{fhem}) && defined($defs{$name}{fhem}{bgnr})) {
@@ -1209,6 +1209,8 @@ Please read <perl special> } use quotes for absolute values!
@@ -1220,8 +1222,11 @@ Please read
- Layout definition
+ Layout definition
+
{ <perl special> }
+ area <id> <x1> <y1> <x2> <y2> <{link}>