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
+