From 805b5d95a0e93d5a43e41511424dc09ba0ca64e6 Mon Sep 17 00:00:00 2001
From: nasseeder1 <nasseeder1@users.noreply.github.com>
Date: Mon, 25 Mar 2019 22:41:54 +0000
Subject: [PATCH] 76_SMAPortal: contrib 1.5.2

git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@19033 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 contrib/DS_Starter/76_SMAPortal.pm | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

diff --git a/contrib/DS_Starter/76_SMAPortal.pm b/contrib/DS_Starter/76_SMAPortal.pm
index fd162d9ff..9b92e759f 100644
--- a/contrib/DS_Starter/76_SMAPortal.pm
+++ b/contrib/DS_Starter/76_SMAPortal.pm
@@ -1053,6 +1053,7 @@ sub extractConsumerData($$) {
                $key    =~ /^(\d+)_.*$/;
                my $lfn = $1; 
                my $cn  = $consumers{"${lfn}_ConsumerName"};            # Verbrauchername
+               $cn     = substUmlauts($cn);                            # evtl. Umlaute im Verbrauchernamen ersetzen
                my $pos = $consumers{"${lfn}_PlannedOpTimeStart"};      # geplanter Start
                my $poe = $consumers{"${lfn}_PlannedOpTimeEnd"};        # geplantes Ende
                my $rb  = "L3_${cn}_PlannedOpTimeBegin"; 
@@ -1255,6 +1256,23 @@ sub UTC2LocalString($$) {
   }
 }
 
+###############################################################################
+#              Umlaute für Readingerstellung ersetzen 
+###############################################################################
+sub substUmlauts ($) { 
+  my ($txt) = @_;
+
+  $txt =~ s/ß/ss/g;
+  $txt =~ s/ä/ae/g;
+  $txt =~ s/ö/oe/g;
+  $txt =~ s/ü/ue/g;
+  $txt =~ s/Ä/Ae/g;
+  $txt =~ s/Ö/Oe/g;
+  $txt =~ s/Ü/Ue/g;     
+  
+return($txt);
+}
+
 1;
 
 =pod