From a338782c2c2799c1b2cc4e2ebcf8c8974a79ef0a Mon Sep 17 00:00:00 2001
From: rudolfkoenig <rudolfkoenig@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Sun, 5 Apr 2015 06:43:12 +0000
Subject: [PATCH] 98_SVG.pm: call copyGplotFile automatically in WtiteGplotFile

git-svn-id: https://svn.fhem.de/fhem/trunk@8375 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/98_SVG.pm | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/fhem/FHEM/98_SVG.pm b/fhem/FHEM/98_SVG.pm
index a0e762a99..470de93ab 100755
--- a/fhem/FHEM/98_SVG.pm
+++ b/fhem/FHEM/98_SVG.pm
@@ -596,8 +596,11 @@ SVG_WriteGplot($)
   }
 
   my $wlName = $FW_webArgs{detail};
-  my $fName = "$FW_gplotdir/$defs{$wlName}{GPLOTFILE}.gplot";
-  return if(!$fName);
+  my $hash = $defs{$wlName};
+  if($hash->{GPLOTFILE} ne $wlName) {
+    Log 1, "WriteGplot: calling set $wlName copyGplotFile";
+    SVG_Set($hash, $wlName, "copyGplotFile");
+  }
 
   my @rows;
   push @rows, "# Created by FHEM/98_SVG.pm, ".TimeNow();
@@ -648,7 +651,7 @@ SVG_WriteGplot($)
     push @rows, $r;
   }
 
-  my $err = FileWrite($fName, @rows);
+  my $err = FileWrite("$FW_gplotdir/$hash->{GPLOTFILE}.gplot", @rows);
   $FW_RET .= "<div id='errmsg'>SVG_WriteGplot: $err</div>" if($err);
 
   return 0;