From 90ae8fa61cf6b2f96b986fd1069367d01f5e0c3c Mon Sep 17 00:00:00 2001
From: betateilchen <betateilchen@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Sat, 31 Jan 2015 20:10:14 +0000
Subject: [PATCH] contrib/InfoPanel: added target selector for a href

git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@7806 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/contrib/InfoPanel/55_InfoPanel.pm | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/fhem/contrib/InfoPanel/55_InfoPanel.pm b/fhem/contrib/InfoPanel/55_InfoPanel.pm
index 0fe454e8f..ab31c9490 100644
--- a/fhem/contrib/InfoPanel/55_InfoPanel.pm
+++ b/fhem/contrib/InfoPanel/55_InfoPanel.pm
@@ -185,11 +185,16 @@ sub btIP_readLayout($) {
 ##### Items 
 
 sub btIP_itemArea {
-  my ($id,$x1,$y1,$x2,$y2,$target,%params)= @_;
+  my ($id,$x1,$y1,$x2,$y2,$link,%params)= @_;
   $id = ($id eq '-') ? createUniqueId() : $id;
   my $width  = $x2 - $x1;
   my $height = $y2 - $y1;
-  my $output  = "<a id=\”$id\” x=\"$x1\" y=\"$y1\" width=\"$width\" height=\"$height\" xlink:href=\"$target\" >\n";
+
+  my $target = 'secret';
+     $target = '_top' if $link =~ s/^-//;
+     $target = '_blank' if $link =~ s/^\+//;
+
+  my $output  = "<a id=\”$id\” x=\"$x1\" y=\"$y1\" width=\"$width\" height=\"$height\" xlink:href=\"$link\" target=\"$target\" >\n";
      $output .= "<rect id=\”$id\” x=\"$x1\" y=\"$y1\" width=\"$width\" height=\"$height\" opacity=\"0\" />\n";
      $output .= "</a>\n";
   return $output;