Highlight opened VN/producer in relation graphs

The warnbg and warnborder colors from the skins are used for
highlighting.

2 files changed, 2 insertions, 0 deletions

diff --git a/lib/VNDB/Handler/Producers.pm b/lib/VNDB/Handler/Producers.pm
index d3f570ab..339fe8e0 100644
--- a/lib/VNDB/Handler/Producers.pm
+++ b/lib/VNDB/Handler/Producers.pm
@@ -26,6 +26,7 @@ sub rg {
   my $title = mt '_prodrg_title', $p->{name};
   return if $self->htmlRGHeader($title, 'p', $p);
 
+  $p->{svg} =~ s/id="node_p$pid"/id="graph_current"/;
   $p->{svg} =~ s/\$___(_prodrel_[a-z]+)____\$/mt $1/eg;
   $p->{svg} =~ s/\$(_lang_[a-z]+)_\$/mt $1/eg;
   $p->{svg} =~ s/\$(_ptype_[a-z]+)_\$/mt $1/eg;
diff --git a/lib/VNDB/Handler/VNPage.pm b/lib/VNDB/Handler/VNPage.pm
index 6b1c6697..ff690c6b 100644
--- a/lib/VNDB/Handler/VNPage.pm
+++ b/lib/VNDB/Handler/VNPage.pm
@@ -29,6 +29,7 @@ sub rg {
   my $title = mt '_vnrg_title', $v->{title};
   return if $self->htmlRGHeader($title, 'v', $v);
 
+  $v->{svg} =~ s/id="node_v$vid"/id="graph_current"/;
   $v->{svg} =~ s/\$___(_vnrel_[a-z]+)____\$/mt $1/eg;
 
   div class => 'mainbox';