diff --git a/fhem/FHEM/55_InfoPanel.pm b/fhem/FHEM/55_InfoPanel.pm
index bfa17da8e..5c75fff89 100644
--- a/fhem/FHEM/55_InfoPanel.pm
+++ b/fhem/FHEM/55_InfoPanel.pm
@@ -57,7 +57,7 @@
# with \n in text
#
##############################################
-# $Id$
+# $Id: 55_InfoPanel.pm 9301 2015-09-25 12:25:49Z betateilchen $
package main;
use strict;
@@ -1366,14 +1366,17 @@ sub btIP_splitRequest {
# HTML Stuff
#
+# my $viewport= "";
+
sub btIP_returnHTML {
my ($name) = @_;
my $refresh = AttrVal($name, 'refresh', 60);
$refresh = ($refresh && $refresh < 59) ? 60 : $refresh;
my $title = AttrVal($name, 'title', $name);
+ my $viewport= "";
my $gen = 'generated="'.(time()-1).'"';
- my $code = btIP_HTMLHead($name,$title,$refresh);
+ my $code = btIP_HTMLHead($name,$title,$viewport,$refresh);
$code .= "\n".
@@ -1386,16 +1389,16 @@ sub btIP_returnHTML {
}
sub btIP_HTMLHead {
- my ($name,$title,$refresh) = @_;
+ my ($name,$title,$viewport,$refresh) = @_;
my $doctype = ' '."\n".
''."\n";
my $xmlns = "";
- my $r = (defined($refresh) && $refresh) ? "\n" : "";
+ my $r = (defined($refresh) && $refresh) ? "" : "";
my $scripts = btIP_getScript($name);
- my $meta = "\n";
- my $code = "$doctype\n\n\n$title\n$meta$r$scripts\n";
+ my $meta = "";
+ my $code = "$doctype\n\n\n$title\n$meta\n$r\n$viewport\n$scripts\n";
return $code;
}