FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-19 12:46:03 +00:00
Code Issues Releases Wiki Activity

Fix for older perl versions

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@3103 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2013-04-23 09:38:28 +00:00
parent 7c1d2eab9e
commit 46dec21a7a
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
fhem/FHEM/98_weblink.pm
View File

@ -9,6 +9,7 @@ use vars qw($FW_ME); # webname (default is fhem), needed by 97_GROUP
use vars qw(%FW_hiddenroom); # hash of hidden rooms, used by weblink use vars qw(%FW_hiddenroom); # hash of hidden rooms, used by weblink
use vars qw($FW_plotmode);# Global plot mode (WEB attribute), used by weblink use vars qw($FW_plotmode);# Global plot mode (WEB attribute), used by weblink
use vars qw($FW_plotsize);# Global plot size (WEB attribute), used by weblink use vars qw($FW_plotsize);# Global plot size (WEB attribute), used by weblink
use vars qw(%FW_pos); # scroll position
##################################### #####################################
sub sub
@ -53,7 +54,7 @@ FW_showWeblink($$$$)
if($buttons !~ m/HASH/) { if($buttons !~ m/HASH/) {
my %h = (); $buttons = \%h; my %h = (); $buttons = \%h;
} }
FW_pO weblink_FwFn(undef, $d, "", $buttons); FW_pO(weblink_FwFn(undef, $d, "", $buttons));
return $buttons; return $buttons;
} }
@ -67,7 +68,7 @@ weblink_FwDetail($)
my $ret = "<br>"; my $ret = "<br>";
$ret .= FW_pHPlain("detail=$d", $alias) if(!$FW_subdir); $ret .= FW_pHPlain("detail=$d", $alias) if(!$FW_subdir);
FW_pO "<br>"; $ret .= "<br>";
return $ret; return $ret;
} }