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
This commit is contained in:
hexenmeister 2014-09-23 00:07:11 +00:00
parent 2d350622af
commit fae351e0fc

View File

@ -30,7 +30,7 @@ package main;
use strict; use strict;
use warnings; use warnings;
my $VERSION = "1.8.1"; my $VERSION = "1.8.2";
use constant { use constant {
PERL_VERSION => "perl_version", PERL_VERSION => "perl_version",
@ -1843,6 +1843,7 @@ sub SYSMON_ShowValuesHTMLTitled ($;$@)
{ {
my ($name, $title, @data) = @_; 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); return SYSMON_ShowValuesFmt($name, $title, 1, @data);
} }
@ -1869,6 +1870,7 @@ sub SYSMON_ShowValuesTextTitled ($;$@)
{ {
my ($name, $title, @data) = @_; 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); return SYSMON_ShowValuesFmt($name, $title, 0, @data);
} }