FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-10 03:06:37 +00:00
Code Issues Releases Wiki Activity

60_Watches: avoid JS error which appeared in seldom cases

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@23496 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
nasseeder1 2021-01-09 10:50:37 +00:00
parent c392cff4fc
commit 9e3e5a6544
2 changed files with 44 additions and 39 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
fhem/CHANGED
View File

@ -1,5 +1,6 @@
# Add changes at the top of the list. Keep it in ASCII, and 80-char wide. # Add changes at the top of the list. Keep it in ASCII, and 80-char wide.
# Do not insert empty lines here, update check depends on it. # Do not insert empty lines here, update check depends on it.
- bugfix: 60_Watches: avoid JS error which appeared in seldom cases
- feature: 98_WeekdayTimer: Add options WDT_sendDelay and WDT_eventMap - feature: 98_WeekdayTimer: Add options WDT_sendDelay and WDT_eventMap
- change: 98_WeekdayTimer: break compability to Heating_Control - change: 98_WeekdayTimer: break compability to Heating_Control
- change: 59_Twilight: not triggering at startup - change: 59_Twilight: not triggering at startup

74
fhem/FHEM/60_Watches.pm
View File

@ -3,7 +3,7 @@
######################################################################################################################### #########################################################################################################################
# 60_Watches.pm # 60_Watches.pm
# #
# (c) 2018-2020 by Heiko Maaz # (c) 2018-2021 by Heiko Maaz
# e-mail: Heiko dot Maaz at t-online dot de # e-mail: Heiko dot Maaz at t-online dot de
# #
# This script is part of fhem. # This script is part of fhem.
@ -75,6 +75,7 @@ BEGIN {
# Versions History intern # Versions History intern
my %vNotesIntern = ( my %vNotesIntern = (
"0.27.1" => "09.01.2021 remove usage of sscam_tooltip.js in sub controlPanel ,Forum: https:/topic,93454.msg1119567.html#msg1119567",
"0.27.0" => "12.08.2020 control buttons, new attr hideButtons, controlButtonSize, some more changes according PBP". "0.27.0" => "12.08.2020 control buttons, new attr hideButtons, controlButtonSize, some more changes according PBP".
"fix Random triggering of alarm or random time display at start / resume ", "fix Random triggering of alarm or random time display at start / resume ",
"0.26.0" => "01.08.2020 add attr timeAsReading -> write into reading 'currtime' if time is displayed, ". "0.26.0" => "01.08.2020 add attr timeAsReading -> write into reading 'currtime' if time is displayed, ".
@ -126,17 +127,17 @@ my %hset = ( #
countdownwatch => {set => "alarmSet alarmDel:noArg reset:noArg resume:noArg start:noArg stop:noArg countDownInit" }, countdownwatch => {set => "alarmSet alarmDel:noArg reset:noArg resume:noArg start:noArg stop:noArg countDownInit" },
watch => {set => "alarmSet alarmDel:noArg" }, watch => {set => "alarmSet alarmDel:noArg" },
text => {set => "displayTextSet displayTextDel:noArg textTicker:on,off" }, text => {set => "displayTextSet displayTextDel:noArg textTicker:on,off" },
time => {fn => "_setTime" }, time => {fn => \&_setTime },
reset => {fn => "_setReset" }, reset => {fn => \&_setReset },
textTicker => {fn => "_setTextTicker" }, textTicker => {fn => \&_setTextTicker },
displayTextDel => {fn => "_setDisplayTextDel" }, displayTextDel => {fn => \&_setDisplayTextDel },
displayTextSet => {fn => "_setDisplayTextSet" }, displayTextSet => {fn => \&_setDisplayTextSet },
stop => {fn => "_setStop" }, stop => {fn => \&_setStop },
resume => {fn => "_setResume" }, resume => {fn => \&_setResume },
countDownInit => {fn => "_setCountDownInit" }, countDownInit => {fn => \&_setCountDownInit },
alarmDel => {fn => "_setAlarmDel" }, alarmDel => {fn => \&_setAlarmDel },
alarmSet => {fn => "_setAlarmSet" }, alarmSet => {fn => \&_setAlarmSet },
start => {fn => "_setStart" }, start => {fn => \&_setStart },
); );
############################################################################## ##############################################################################
@ -265,7 +266,7 @@ return $setlist;
################################################################ ################################################################
# Setter start # Setter start
################################################################ ################################################################
sub _setStart { ## no critic "not used" sub _setStart {
my $paref = shift; my $paref = shift;
my $hash = $paref->{hash}; my $hash = $paref->{hash};
my $name = $paref->{name}; my $name = $paref->{name};
@ -287,7 +288,7 @@ return;
################################################################ ################################################################
# Setter alarmSet # Setter alarmSet
################################################################ ################################################################
sub _setAlarmSet { ## no critic "not used" sub _setAlarmSet {
my $paref = shift; my $paref = shift;
my $hash = $paref->{hash}; my $hash = $paref->{hash};
my $name = $paref->{name}; my $name = $paref->{name};
@ -311,7 +312,7 @@ return;
################################################################ ################################################################
# Setter alarmDel # Setter alarmDel
################################################################ ################################################################
sub _setAlarmDel { ## no critic "not used" sub _setAlarmDel {
my $paref = shift; my $paref = shift;
my $name = $paref->{name}; my $name = $paref->{name};
@ -324,7 +325,7 @@ return;
################################################################ ################################################################
# Setter countDownInit # Setter countDownInit
################################################################ ################################################################
sub _setCountDownInit { ## no critic "not used" sub _setCountDownInit {
my $paref = shift; my $paref = shift;
my $hash = $paref->{hash}; my $hash = $paref->{hash};
my $name = $paref->{name}; my $name = $paref->{name};
@ -340,11 +341,11 @@ sub _setCountDownInit { ## no critic "not used"
$prop2 = defined $prop2 ? $prop2 : 70; # Sekunden $prop2 = defined $prop2 ? $prop2 : 70; # Sekunden
return $msg if($prop>23 || $prop1>59 || $prop2>59); return $msg if($prop>23 || $prop1>59 || $prop2>59);
$ct = $prop*3600 + $prop1*60 + $prop2; # in Sekunden umgewandelt ! $ct = $prop*3600 + $prop1*60 + $prop2; # in Sekunden umgewandelt !
}
} elsif ($prop && !$prop1) { # Format: Sekundenangabe elsif ($prop && !$prop1) { # Format: Sekundenangabe
$ct = $prop; $ct = $prop;
}
} else { else {
return $msg; return $msg;
} }
@ -362,7 +363,7 @@ return;
################################################################ ################################################################
# Setter resume # Setter resume
################################################################ ################################################################
sub _setResume { ## no critic "not used" sub _setResume {
my $paref = shift; my $paref = shift;
my $hash = $paref->{hash}; my $hash = $paref->{hash};
my $name = $paref->{name}; my $name = $paref->{name};
@ -381,7 +382,7 @@ return;
################################################################ ################################################################
# Setter stop # Setter stop
################################################################ ################################################################
sub _setStop { ## no critic "not used" sub _setStop {
my $paref = shift; my $paref = shift;
my $hash = $paref->{hash}; my $hash = $paref->{hash};
@ -393,7 +394,7 @@ return;
################################################################ ################################################################
# Setter displayTextSet # Setter displayTextSet
################################################################ ################################################################
sub _setDisplayTextSet { ## no critic "not used" sub _setDisplayTextSet {
my $paref = shift; my $paref = shift;
my $hash = $paref->{hash}; my $hash = $paref->{hash};
my $aref = $paref->{aref}; my $aref = $paref->{aref};
@ -412,7 +413,7 @@ return;
################################################################ ################################################################
# Setter displayTextDel # Setter displayTextDel
################################################################ ################################################################
sub _setDisplayTextDel { ## no critic "not used" sub _setDisplayTextDel {
my $paref = shift; my $paref = shift;
my $name = $paref->{name}; my $name = $paref->{name};
@ -424,14 +425,15 @@ return;
################################################################ ################################################################
# Setter textTicker # Setter textTicker
################################################################ ################################################################
sub _setTextTicker { ## no critic "not used" sub _setTextTicker {
my $paref = shift; my $paref = shift;
my $hash = $paref->{hash}; my $hash = $paref->{hash};
my $prop = $paref->{prop}; my $prop = $paref->{prop};
if($prop eq "on") { if($prop eq "on") {
readingsSingleUpdate($hash, "displayTextTicker", "on", 1); readingsSingleUpdate($hash, "displayTextTicker", "on", 1);
} else { }
else {
readingsSingleUpdate($hash, "displayTextTicker", "off", 1); readingsSingleUpdate($hash, "displayTextTicker", "off", 1);
} }
@ -441,7 +443,7 @@ return;
################################################################ ################################################################
# Setter reset # Setter reset
################################################################ ################################################################
sub _setReset { ## no critic "not used" sub _setReset {
my $paref = shift; my $paref = shift;
my $hash = $paref->{hash}; my $hash = $paref->{hash};
my $name = $paref->{name}; my $name = $paref->{name};
@ -455,7 +457,7 @@ return;
################################################################ ################################################################
# Setter time # Setter time
################################################################ ################################################################
sub _setTime { ## no critic "not used" sub _setTime {
my $paref = shift; my $paref = shift;
my $hash = $paref->{hash}; my $hash = $paref->{hash};
my $opt = $paref->{opt}; my $opt = $paref->{opt};
@ -529,7 +531,8 @@ sub Attr { ## no critic 'complexity'
if($do ne "text") { if($do ne "text") {
delReadings ($name); delReadings ($name);
} else { }
else {
delReadings ($name,undef,"^display.*"); delReadings ($name,undef,"^display.*");
} }
@ -565,10 +568,12 @@ sub FWebFn {
if(IsDisabled($d)) { if(IsDisabled($d)) {
if(AttrVal($d,"hideDisplayName",0)) { if(AttrVal($d,"hideDisplayName",0)) {
$ret .= qq{Watch <a href="/fhem?detail=$d">$d</a> is disabled}; $ret .= qq{Watch <a href="/fhem?detail=$d">$d</a> is disabled};
} else { }
else {
$ret .= "<html>Watch is disabled</html>"; $ret .= "<html>Watch is disabled</html>";
} }
} else { }
else {
$ret .= modernWatch ($d) if($hash->{MODEL} =~ /modern/ix); $ret .= modernWatch ($d) if($hash->{MODEL} =~ /modern/ix);
$ret .= stationWatch($d) if($hash->{MODEL} =~ /station/ix); $ret .= stationWatch($d) if($hash->{MODEL} =~ /station/ix);
$ret .= digitalWatch($d) if($hash->{MODEL} =~ /digital/ix); $ret .= digitalWatch($d) if($hash->{MODEL} =~ /digital/ix);
@ -590,10 +595,8 @@ sub controlPanel {
my $name = shift; my $name = shift;
my $pbs = AttrVal($name,"controlButtonSize", 100); # Größe der Druckbuttons in % my $pbs = AttrVal($name,"controlButtonSize", 100); # Größe der Druckbuttons in %
my $iconpath = "www/images"; my $iconpath = "www/images";
my $ttjs = "/fhem/pgm2/sscam_tooltip.js";
my $ret = ""; my $ret = "";
$ret .= "<script type=\"text/javascript\" src=\"$ttjs\"></script>";
$ret .= "<style>TD.controlv1 { padding: 3px 3px; } </style>"; $ret .= "<style>TD.controlv1 { padding: 3px 3px; } </style>";
$ret .= "<style>TD.controlv2 { padding: 8px 8px; } </style>"; $ret .= "<style>TD.controlv2 { padding: 8px 8px; } </style>";
$ret .= "<style>.defsize { font-size:16px; } </style>"; $ret .= "<style>.defsize { font-size:16px; } </style>";
@ -611,12 +614,13 @@ sub controlPanel {
if ($img =~ m/\.svg/x) { # Verwendung für SVG's if ($img =~ m/\.svg/x) { # Verwendung für SVG's
$img = FW_makeImage($img, $cmd, "rc-button"); $img = FW_makeImage($img, $cmd, "rc-button");
} else { # $FW_ME = URL-Pfad unter dem der FHEMWEB-Server via HTTP erreichbar ist, z.B. /fhem }
else { # $FW_ME = URL-Pfad unter dem der FHEMWEB-Server via HTTP erreichbar ist, z.B. /fhem
$img = "<img src=\"$FW_ME/$iconpath/$img\" height=\"$pbs%\" width=\"$pbs%\">"; $img = "<img src=\"$FW_ME/$iconpath/$img\" height=\"$pbs%\" width=\"$pbs%\">";
} }
my $cmd1 = "FW_cmd('$FW_ME$FW_subdir?XHR=1&cmd=set $name $cmd')"; # $FW_subdir = Sub-path in URL, used by FLOORPLAN/weblink my $cmd1 = "FW_cmd('$FW_ME$FW_subdir?XHR=1&cmd=set $name $cmd')"; # $FW_subdir = Sub-path in URL, used by FLOORPLAN/weblink
$ret .= "<a onClick=\"$cmd1\" onmouseover=\"Tip('$cmd')\" onmouseout=\"UnTip()\">$img</a>"; $ret .= "<a onClick=\"$cmd1\" title=\"$cmd\">$img</a>";
$ret .= "</td>"; $ret .= "</td>";
} }