From fae351e0fc8caa6c72b2fd49de952d900735197c Mon Sep 17 00:00:00 2001 From: hexenmeister Date: Tue, 23 Sep 2014 00:07:11 +0000 Subject: [PATCH] a little improvement: use device name if no alias defines (for text/html output methods) git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@6600 2b470e98-0d58-463d-a4d8-8e2adae1ed80 --- FHEM/42_SYSMON.pm | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/FHEM/42_SYSMON.pm b/FHEM/42_SYSMON.pm index 3c7a2fb07..7bf189370 100644 --- a/FHEM/42_SYSMON.pm +++ b/FHEM/42_SYSMON.pm @@ -30,7 +30,7 @@ package main; use strict; use warnings; -my $VERSION = "1.8.1"; +my $VERSION = "1.8.2"; use constant { PERL_VERSION => "perl_version", @@ -1842,7 +1842,8 @@ sub SYSMON_ShowValuesHTML ($;@) sub SYSMON_ShowValuesHTMLTitled ($;$@) { my ($name, $title, @data) = @_; - $title = $attr{$name}{'alias'} unless $title; + $title = $attr{$name}{'alias'} unless $title; + $title = $name unless $title; return SYSMON_ShowValuesFmt($name, $title, 1, @data); } @@ -1868,7 +1869,8 @@ sub SYSMON_ShowValuesText ($;@) sub SYSMON_ShowValuesTextTitled ($;$@) { my ($name, $title, @data) = @_; - $title = $attr{$name}{'alias'} unless $title; + $title = $attr{$name}{'alias'} unless $title; + $title = $name unless $title; return SYSMON_ShowValuesFmt($name, $title, 0, @data); }