From b9f58dcacd2d6d0cd3a88b165828eba96a5f2f43 Mon Sep 17 00:00:00 2001
From: hexenmeister <hexenmeister@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
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@6600 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/42_SYSMON.pm | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/fhem/FHEM/42_SYSMON.pm b/fhem/FHEM/42_SYSMON.pm
index 3c7a2fb07..7bf189370 100644
--- a/fhem/FHEM/42_SYSMON.pm
+++ b/fhem/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);
 }