57_CALVIEW: - replace unwanted backslash before a comma sign

git-svn-id: https://svn.fhem.de/fhem/trunk@9021 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
chris1284
2015-08-05 08:51:32 +00:00
parent 35970b9f1e
commit e5a832d602

View File

@@ -1,4 +1,4 @@
# $Id: 57_CALVIEW.pm 7014 2015-07-14 08:10:00Z chris1284 $
# $Id: 57_CALVIEW.pm 7014 2015-08-05 10:50:00Z chris1284 $
###########################
# CALVIEW
#
@@ -92,6 +92,9 @@ sub CALVIEW_GetUpdate($){
my @tempend=split(/\s+/,$item->[2]);
my ($D,$M,$Y)=split(/\./,$tempstart[0]);
my @bts=str2time($M."/".$D."/".$Y." ".$tempstart[1]);
#replace the "\," with ","
$item->[1] =~ s/\\,/,/g;
$item->[4] =~ s/\\,/,/g;
push @termineNew,{
bdate => $tempstart[0],
btime => $tempstart[1],