From bb0b2bcde0e67be13dd86a375f409682b4d73149 Mon Sep 17 00:00:00 2001
From: rudolfkoenig <rudolfkoenig@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Mon, 4 Dec 2017 20:00:29 +0000
Subject: [PATCH] 98_SVG.pm: add link to .gplot file 01_FHEMWEB.pm: make
 addlinks faster

git-svn-id: https://svn.fhem.de/fhem/trunk@15553 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/01_FHEMWEB.pm | 17 +++++------------
 fhem/FHEM/98_SVG.pm     | 11 +++++++++--
 2 files changed, 14 insertions(+), 14 deletions(-)

diff --git a/fhem/FHEM/01_FHEMWEB.pm b/fhem/FHEM/01_FHEMWEB.pm
index b24ebd9fc..0ddb87512 100644
--- a/fhem/FHEM/01_FHEMWEB.pm
+++ b/fhem/FHEM/01_FHEMWEB.pm
@@ -1100,18 +1100,11 @@ FW_addContent(;$)
 sub
 FW_addLinks($)
 {
-  return undef if(!defined($_[0]));
-  my @lines = split( /\n/, $_[0]); # Adding links
-  my $ret = "";
-  foreach my $line (@lines) {
-    $ret .= "\n" if( $ret );
-    foreach my $word ( split( / /, $line ) ) {
-      $word = "<a href=\"$FW_ME$FW_subdir?detail=$word\">$word</a>"
-            if( $defs{$word} );
-      $ret .= "$word ";
-    }
-  }
-  return $ret;
+  my ($txt) = @_;
+  return undef if(!defined($txt));
+  $txt =~ s,\s([a-z0-9._]+)\s,
+            $defs{$1} ? "<a href='$FW_ME$FW_subdir?detail=$1'>$1</a>" : $1,gei;
+  return $txt;
 }
 
 
diff --git a/fhem/FHEM/98_SVG.pm b/fhem/FHEM/98_SVG.pm
index ce76e4dc5..d4ca7028f 100644
--- a/fhem/FHEM/98_SVG.pm
+++ b/fhem/FHEM/98_SVG.pm
@@ -27,6 +27,7 @@ use vars qw(%FW_webArgs); # all arguments specified in the GET
 use vars qw($FW_formmethod);
 use vars qw($FW_userAgent);
 use vars qw($FW_hiddenroom);
+use vars qw($FW_CSRF);
 
 my $SVG_RET;        # Returned data (SVG)
 sub SVG_calcOffsets($$);
@@ -364,7 +365,8 @@ SVG_PEdit($$$$)
 
   return "" if( $pe eq 'never' );
 
-  my $gp = "$FW_gplotdir/$defs{$d}{GPLOTFILE}.gplot";
+  my $gpf = $defs{$d}{GPLOTFILE};
+  my $gp = "$FW_gplotdir/$gpf.gplot";
   my $pm = AttrVal($d,"plotmode",$FW_plotmode);
 
   my ($err, $cfg, $plot, $srcDesc) = SVG_readgplotfile($d, $gp, $pm);
@@ -561,10 +563,15 @@ SVG_PEdit($$$$)
     e.preventDefault();
 EOF
     $ret .= 
-    "FW_cmd('$sl', function(arg){" .<<'EOF';
+    "FW_cmd('$sl', function(arg){" .<<"EOF";
       FW_okDialog(arg);
     });
   });
+  setTimeout(function(){
+    \$("table.internals div[informid=$gpf-GPLOTFILE]").each(function(){
+      \$(this).html(
+        "<a href='$FW_ME?cmd=style edit $gpf.gplot&fwcsrf=$FW_CSRF'>$gpf</a>");
+    }) }, 10);
 </script>
 EOF
   return $ret;