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 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);
}