From 202124167de913ece73707bd4e4470bb0a9ddf95 Mon Sep 17 00:00:00 2001
From: betateilchen <betateilchen@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Wed, 4 Feb 2015 21:56:44 +0000
Subject: [PATCH] changed: _UnDef in modules

55_GDS.pm
55_Infopanel.pm

git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@7875 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/55_GDS.pm                    |  2 +-
 fhem/contrib/InfoPanel/55_InfoPanel.pm | 15 +--------------
 2 files changed, 2 insertions(+), 15 deletions(-)

diff --git a/fhem/FHEM/55_GDS.pm b/fhem/FHEM/55_GDS.pm
index 812caa01b..8dfc529f8 100644
--- a/fhem/FHEM/55_GDS.pm
+++ b/fhem/FHEM/55_GDS.pm
@@ -132,7 +132,7 @@ sub GDS_Undef($$) {
 	my $name = $hash->{NAME};
 	RemoveInternalTimer($hash);
     my $url = '/gds';
-    $data{FWEXT}{$url} = undef if int(devspec2array('TYPE=GDS')) == 1;
+    delete $data{FWEXT}{$url} if int(devspec2array('TYPE=GDS')) == 1;
 	return undef;
 }
 
diff --git a/fhem/contrib/InfoPanel/55_InfoPanel.pm b/fhem/contrib/InfoPanel/55_InfoPanel.pm
index cc26e6332..855e0510e 100644
--- a/fhem/contrib/InfoPanel/55_InfoPanel.pm
+++ b/fhem/contrib/InfoPanel/55_InfoPanel.pm
@@ -114,7 +114,7 @@ sub btIP_Undef($$) {
 	my ($hash, $arg) = @_;
     # check if last device
     my $url = '/btip';
-    $data{FWEXT}{$url} = undef if int(devspec2array('TYPE=InfoPanel')) == 1;
+    delete $data{FWEXT}{$url} if int(devspec2array('TYPE=InfoPanel')) == 1;
 	return undef;
 }
 
@@ -324,19 +324,6 @@ sub btIP_itemImg {
   return $output;
 }
 
-# # embed link to plot
-# #
-#     my $url;
-#     $url  = "$FW_ME/SVG_showLog?dev=". $plotName[0].
-#           "&amp;logdev=".            InternalVal($plotName[0], "LOGDEVICE", "").
-#           "&amp;gplotfile=".         InternalVal($plotName[0], "GPLOTFILE", "").
-#           "&amp;logfile=".           InternalVal($plotName[0], "LOGFILE", "CURRENT").
-#           "&amp;plotsize=".          "$newWidth,$newHeight";
-#      $url .= "&amp;pos=".            ($plotName[1]) ? $plotName[1] : 'day';
-#      $url .= "&amp;zoom=".           ($plotName[2]) ? $plotName[2] : undef;
-# 
-#     $output = "<image id=\"$id\" x=\"$x\" y=\"$y\" width=\"".$width."px\" height=\"".$height."px\" \nxlink:href=\"$url\" />\n";
-
 sub _btIP_imgData {
   my ($arg,$scale) = @_;
   my $info     = image_info(\$arg);