Public/fhem-mirror
1
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-05-04 22:19:38 +00:00
Code Issues Packages Projects Releases Wiki Activity

10_RESIDENTS.pm: human readable notation for name readings

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@10099 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
jpawlowski 2015-12-05 14:25:51 +00:00
parent f59200753b
commit 858d229210
1 changed files with 33 additions and 33 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

66
fhem/FHEM/10_RESIDENTS.pm
View File

@ -742,7 +742,7 @@ sub RESIDENTS_UpdateReadings (@) {
if ( $residentsDevs_home ne "-" ); if ( $residentsDevs_home ne "-" );
$residentsDevs_home = $roommate $residentsDevs_home = $roommate
if ( $residentsDevs_home eq "-" ); if ( $residentsDevs_home eq "-" );
$residents_home .= "," . $roommateName $residents_home .= ", " . $roommateName
if ( $roommateName ne "" && $residents_home ne "-" ); if ( $roommateName ne "" && $residents_home ne "-" );
$residents_home = $roommateName $residents_home = $roommateName
if ( $roommateName ne "" && $residents_home eq "-" ); if ( $roommateName ne "" && $residents_home eq "-" );
@ -757,11 +757,11 @@ sub RESIDENTS_UpdateReadings (@) {
if ( $residentsDevs_totalPresentOwner ne "-" ); if ( $residentsDevs_totalPresentOwner ne "-" );
$residentsDevs_totalPresentOwner = $roommate $residentsDevs_totalPresentOwner = $roommate
if ( $residentsDevs_totalPresentOwner eq "-" ); if ( $residentsDevs_totalPresentOwner eq "-" );
$residents_totalPresent .= "," . $roommateName $residents_totalPresent .= ", " . $roommateName
if ( $roommateName ne "" && $residents_totalPresent ne "-" ); if ( $roommateName ne "" && $residents_totalPresent ne "-" );
$residents_totalPresent = $roommateName $residents_totalPresent = $roommateName
if ( $roommateName ne "" && $residents_totalPresent eq "-" ); if ( $roommateName ne "" && $residents_totalPresent eq "-" );
$residents_totalPresentOwner .= "," . $roommateName $residents_totalPresentOwner .= ", " . $roommateName
if ( $roommateName ne "" && $residents_totalPresentOwner ne "-" ); if ( $roommateName ne "" && $residents_totalPresentOwner ne "-" );
$residents_totalPresentOwner = $roommateName $residents_totalPresentOwner = $roommateName
if ( $roommateName ne "" && $residents_totalPresentOwner eq "-" ); if ( $roommateName ne "" && $residents_totalPresentOwner eq "-" );
@ -773,7 +773,7 @@ sub RESIDENTS_UpdateReadings (@) {
if ( $residentsDevs_gotosleep ne "-" ); if ( $residentsDevs_gotosleep ne "-" );
$residentsDevs_gotosleep = $roommate $residentsDevs_gotosleep = $roommate
if ( $residentsDevs_gotosleep eq "-" ); if ( $residentsDevs_gotosleep eq "-" );
$residents_gotosleep .= "," . $roommateName $residents_gotosleep .= ", " . $roommateName
if ( $roommateName ne "" && $residents_gotosleep ne "-" ); if ( $roommateName ne "" && $residents_gotosleep ne "-" );
$residents_gotosleep = $roommateName $residents_gotosleep = $roommateName
if ( $roommateName ne "" && $residents_gotosleep eq "-" ); if ( $roommateName ne "" && $residents_gotosleep eq "-" );
@ -788,11 +788,11 @@ sub RESIDENTS_UpdateReadings (@) {
if ( $residentsDevs_totalPresentOwner ne "-" ); if ( $residentsDevs_totalPresentOwner ne "-" );
$residentsDevs_totalPresentOwner = $roommate $residentsDevs_totalPresentOwner = $roommate
if ( $residentsDevs_totalPresentOwner eq "-" ); if ( $residentsDevs_totalPresentOwner eq "-" );
$residents_totalPresent .= "," . $roommateName $residents_totalPresent .= ", " . $roommateName
if ( $roommateName ne "" && $residents_totalPresent ne "-" ); if ( $roommateName ne "" && $residents_totalPresent ne "-" );
$residents_totalPresent = $roommateName $residents_totalPresent = $roommateName
if ( $roommateName ne "" && $residents_totalPresent eq "-" ); if ( $roommateName ne "" && $residents_totalPresent eq "-" );
$residents_totalPresentOwner .= "," . $roommateName $residents_totalPresentOwner .= ", " . $roommateName
if ( $roommateName ne "" && $residents_totalPresentOwner ne "-" ); if ( $roommateName ne "" && $residents_totalPresentOwner ne "-" );
$residents_totalPresentOwner = $roommateName $residents_totalPresentOwner = $roommateName
if ( $roommateName ne "" && $residents_totalPresentOwner eq "-" ); if ( $roommateName ne "" && $residents_totalPresentOwner eq "-" );
@ -804,7 +804,7 @@ sub RESIDENTS_UpdateReadings (@) {
if ( $residentsDevs_asleep ne "-" ); if ( $residentsDevs_asleep ne "-" );
$residentsDevs_asleep = $roommate $residentsDevs_asleep = $roommate
if ( $residentsDevs_asleep eq "-" ); if ( $residentsDevs_asleep eq "-" );
$residents_asleep .= "," . $roommateName $residents_asleep .= ", " . $roommateName
if ( $roommateName ne "" && $residents_asleep ne "-" ); if ( $roommateName ne "" && $residents_asleep ne "-" );
$residents_asleep = $roommateName $residents_asleep = $roommateName
if ( $roommateName ne "" && $residents_asleep eq "-" ); if ( $roommateName ne "" && $residents_asleep eq "-" );
@ -819,11 +819,11 @@ sub RESIDENTS_UpdateReadings (@) {
if ( $residentsDevs_totalPresentOwner ne "-" ); if ( $residentsDevs_totalPresentOwner ne "-" );
$residentsDevs_totalPresentOwner = $roommate $residentsDevs_totalPresentOwner = $roommate
if ( $residentsDevs_totalPresentOwner eq "-" ); if ( $residentsDevs_totalPresentOwner eq "-" );
$residents_totalPresent .= "," . $roommateName $residents_totalPresent .= ", " . $roommateName
if ( $roommateName ne "" && $residents_totalPresent ne "-" ); if ( $roommateName ne "" && $residents_totalPresent ne "-" );
$residents_totalPresent = $roommateName $residents_totalPresent = $roommateName
if ( $roommateName ne "" && $residents_totalPresent eq "-" ); if ( $roommateName ne "" && $residents_totalPresent eq "-" );
$residents_totalPresentOwner .= "," . $roommateName $residents_totalPresentOwner .= ", " . $roommateName
if ( $roommateName ne "" && $residents_totalPresentOwner ne "-" ); if ( $roommateName ne "" && $residents_totalPresentOwner ne "-" );
$residents_totalPresentOwner = $roommateName $residents_totalPresentOwner = $roommateName
if ( $roommateName ne "" && $residents_totalPresentOwner eq "-" ); if ( $roommateName ne "" && $residents_totalPresentOwner eq "-" );
@ -835,7 +835,7 @@ sub RESIDENTS_UpdateReadings (@) {
if ( $residentsDevs_awoken ne "-" ); if ( $residentsDevs_awoken ne "-" );
$residentsDevs_awoken = $roommate $residentsDevs_awoken = $roommate
if ( $residentsDevs_awoken eq "-" ); if ( $residentsDevs_awoken eq "-" );
$residents_awoken .= "," . $roommateName $residents_awoken .= ", " . $roommateName
if ( $roommateName ne "" && $residents_awoken ne "-" ); if ( $roommateName ne "" && $residents_awoken ne "-" );
$residents_awoken = $roommateName $residents_awoken = $roommateName
if ( $roommateName ne "" && $residents_awoken eq "-" ); if ( $roommateName ne "" && $residents_awoken eq "-" );
@ -850,11 +850,11 @@ sub RESIDENTS_UpdateReadings (@) {
if ( $residentsDevs_totalPresentOwner ne "-" ); if ( $residentsDevs_totalPresentOwner ne "-" );
$residentsDevs_totalPresentOwner = $roommate $residentsDevs_totalPresentOwner = $roommate
if ( $residentsDevs_totalPresentOwner eq "-" ); if ( $residentsDevs_totalPresentOwner eq "-" );
$residents_totalPresent .= "," . $roommateName $residents_totalPresent .= ", " . $roommateName
if ( $roommateName ne "" && $residents_totalPresent ne "-" ); if ( $roommateName ne "" && $residents_totalPresent ne "-" );
$residents_totalPresent = $roommateName $residents_totalPresent = $roommateName
if ( $roommateName ne "" && $residents_totalPresent eq "-" ); if ( $roommateName ne "" && $residents_totalPresent eq "-" );
$residents_totalPresentOwner .= "," . $roommateName $residents_totalPresentOwner .= ", " . $roommateName
if ( $roommateName ne "" && $residents_totalPresentOwner ne "-" ); if ( $roommateName ne "" && $residents_totalPresentOwner ne "-" );
$residents_totalPresentOwner = $roommateName $residents_totalPresentOwner = $roommateName
if ( $roommateName ne "" && $residents_totalPresentOwner eq "-" ); if ( $roommateName ne "" && $residents_totalPresentOwner eq "-" );
@ -866,7 +866,7 @@ sub RESIDENTS_UpdateReadings (@) {
if ( $residentsDevs_absent ne "-" ); if ( $residentsDevs_absent ne "-" );
$residentsDevs_absent = $roommate $residentsDevs_absent = $roommate
if ( $residentsDevs_absent eq "-" ); if ( $residentsDevs_absent eq "-" );
$residents_absent .= "," . $roommateName $residents_absent .= ", " . $roommateName
if ( $roommateName ne "" && $residents_absent ne "-" ); if ( $roommateName ne "" && $residents_absent ne "-" );
$residents_absent = $roommateName $residents_absent = $roommateName
if ( $roommateName ne "" && $residents_absent eq "-" ); if ( $roommateName ne "" && $residents_absent eq "-" );
@ -881,11 +881,11 @@ sub RESIDENTS_UpdateReadings (@) {
if ( $residentsDevs_totalAbsentOwner ne "-" ); if ( $residentsDevs_totalAbsentOwner ne "-" );
$residentsDevs_totalAbsentOwner = $roommate $residentsDevs_totalAbsentOwner = $roommate
if ( $residentsDevs_totalAbsentOwner eq "-" ); if ( $residentsDevs_totalAbsentOwner eq "-" );
$residents_totalAbsent .= "," . $roommateName $residents_totalAbsent .= ", " . $roommateName
if ( $roommateName ne "" && $residents_totalAbsent ne "-" ); if ( $roommateName ne "" && $residents_totalAbsent ne "-" );
$residents_totalAbsent = $roommateName $residents_totalAbsent = $roommateName
if ( $roommateName ne "" && $residents_totalAbsent eq "-" ); if ( $roommateName ne "" && $residents_totalAbsent eq "-" );
$residents_totalAbsentOwner .= "," . $roommateName $residents_totalAbsentOwner .= ", " . $roommateName
if ( $roommateName ne "" && $residents_totalAbsentOwner ne "-" ); if ( $roommateName ne "" && $residents_totalAbsentOwner ne "-" );
$residents_totalAbsentOwner = $roommateName $residents_totalAbsentOwner = $roommateName
if ( $roommateName ne "" && $residents_totalAbsentOwner eq "-" ); if ( $roommateName ne "" && $residents_totalAbsentOwner eq "-" );
@ -897,7 +897,7 @@ sub RESIDENTS_UpdateReadings (@) {
if ( $residentsDevs_gone ne "-" ); if ( $residentsDevs_gone ne "-" );
$residentsDevs_gone = $roommate $residentsDevs_gone = $roommate
if ( $residentsDevs_gone eq "-" ); if ( $residentsDevs_gone eq "-" );
$residents_gone .= "," . $roommateName $residents_gone .= ", " . $roommateName
if ( $roommateName ne "" && $residents_gone ne "-" ); if ( $roommateName ne "" && $residents_gone ne "-" );
$residents_gone = $roommateName $residents_gone = $roommateName
if ( $roommateName ne "" && $residents_gone eq "-" ); if ( $roommateName ne "" && $residents_gone eq "-" );
@ -912,11 +912,11 @@ sub RESIDENTS_UpdateReadings (@) {
if ( $residentsDevs_totalAbsentOwner ne "-" ); if ( $residentsDevs_totalAbsentOwner ne "-" );
$residentsDevs_totalAbsentOwner = $roommate $residentsDevs_totalAbsentOwner = $roommate
if ( $residentsDevs_totalAbsentOwner eq "-" ); if ( $residentsDevs_totalAbsentOwner eq "-" );
$residents_totalAbsent .= "," . $roommateName $residents_totalAbsent .= ", " . $roommateName
if ( $roommateName ne "" && $residents_totalAbsent ne "-" ); if ( $roommateName ne "" && $residents_totalAbsent ne "-" );
$residents_totalAbsent = $roommateName $residents_totalAbsent = $roommateName
if ( $roommateName ne "" && $residents_totalAbsent eq "-" ); if ( $roommateName ne "" && $residents_totalAbsent eq "-" );
$residents_totalAbsentOwner .= "," . $roommateName $residents_totalAbsentOwner .= ", " . $roommateName
if ( $roommateName ne "" && $residents_totalAbsentOwner ne "-" ); if ( $roommateName ne "" && $residents_totalAbsentOwner ne "-" );
$residents_totalAbsentOwner = $roommateName $residents_totalAbsentOwner = $roommateName
if ( $roommateName ne "" && $residents_totalAbsentOwner eq "-" ); if ( $roommateName ne "" && $residents_totalAbsentOwner eq "-" );
@ -931,7 +931,7 @@ sub RESIDENTS_UpdateReadings (@) {
if ( $residentsDevs_wakeup ne "-" ); if ( $residentsDevs_wakeup ne "-" );
$residentsDevs_wakeup = $roommate $residentsDevs_wakeup = $roommate
if ( $residentsDevs_wakeup eq "-" ); if ( $residentsDevs_wakeup eq "-" );
$residents_wakeup .= "," . $roommateName $residents_wakeup .= ", " . $roommateName
if ( $roommateName ne "" && $residents_wakeup ne "-" ); if ( $roommateName ne "" && $residents_wakeup ne "-" );
$residents_wakeup = $roommateName $residents_wakeup = $roommateName
if ( $roommateName ne "" && $residents_wakeup eq "-" ); if ( $roommateName ne "" && $residents_wakeup eq "-" );
@ -944,7 +944,7 @@ sub RESIDENTS_UpdateReadings (@) {
$residents_wayhome .= "," . $roommate $residents_wayhome .= "," . $roommate
if ( $residents_wayhome ne "-" ); if ( $residents_wayhome ne "-" );
$residents_wayhome = $roommate if ( $residents_wayhome eq "-" ); $residents_wayhome = $roommate if ( $residents_wayhome eq "-" );
$residents_wayhome .= "," . $roommateName $residents_wayhome .= ", " . $roommateName
if ( $roommateName ne "" && $residents_wayhome ne "-" ); if ( $roommateName ne "" && $residents_wayhome ne "-" );
$residents_wayhome = $roommateName $residents_wayhome = $roommateName
if ( $roommateName ne "" && $residents_wayhome eq "-" ); if ( $roommateName ne "" && $residents_wayhome eq "-" );
@ -972,7 +972,7 @@ sub RESIDENTS_UpdateReadings (@) {
if ( $residentsDevs_totalPresentGuest ne "-" ); if ( $residentsDevs_totalPresentGuest ne "-" );
$residentsDevs_totalPresentGuest = $guest $residentsDevs_totalPresentGuest = $guest
if ( $residentsDevs_totalPresentGuest eq "-" ); if ( $residentsDevs_totalPresentGuest eq "-" );
$residents_totalPresentGuest .= "," . $guestName $residents_totalPresentGuest .= ", " . $guestName
if ( $guestName ne "" if ( $guestName ne ""
&& $residents_totalPresentGuest ne "-" ); && $residents_totalPresentGuest ne "-" );
$residents_totalPresentGuest = $guestName $residents_totalPresentGuest = $guestName
@ -983,7 +983,7 @@ sub RESIDENTS_UpdateReadings (@) {
if ( $residentsDevs_totalPresent ne "-" ); if ( $residentsDevs_totalPresent ne "-" );
$residentsDevs_totalPresent = $guest $residentsDevs_totalPresent = $guest
if ( $residentsDevs_totalPresent eq "-" ); if ( $residentsDevs_totalPresent eq "-" );
$residents_totalPresent .= "," . $guestName $residents_totalPresent .= ", " . $guestName
if ( $guestName ne "" if ( $guestName ne ""
&& $residents_totalPresent ne "-" ); && $residents_totalPresent ne "-" );
$residents_totalPresent = $guestName $residents_totalPresent = $guestName
@ -1002,7 +1002,7 @@ sub RESIDENTS_UpdateReadings (@) {
if ( $residentsDevs_totalPresentGuest ne "-" ); if ( $residentsDevs_totalPresentGuest ne "-" );
$residentsDevs_totalPresentGuest = $guest $residentsDevs_totalPresentGuest = $guest
if ( $residentsDevs_totalPresentGuest eq "-" ); if ( $residentsDevs_totalPresentGuest eq "-" );
$residents_totalPresentGuest .= "," . $guestName $residents_totalPresentGuest .= ", " . $guestName
if ( $guestName ne "" if ( $guestName ne ""
&& $residents_totalPresentGuest ne "-" ); && $residents_totalPresentGuest ne "-" );
$residents_totalPresentGuest = $guestName $residents_totalPresentGuest = $guestName
@ -1013,7 +1013,7 @@ sub RESIDENTS_UpdateReadings (@) {
if ( $residentsDevs_totalPresent ne "-" ); if ( $residentsDevs_totalPresent ne "-" );
$residentsDevs_totalPresent = $guest $residentsDevs_totalPresent = $guest
if ( $residentsDevs_totalPresent eq "-" ); if ( $residentsDevs_totalPresent eq "-" );
$residents_totalPresent .= "," . $guestName $residents_totalPresent .= ", " . $guestName
if ( $guestName ne "" if ( $guestName ne ""
&& $residents_totalPresent ne "-" ); && $residents_totalPresent ne "-" );
$residents_totalPresent = $guestName $residents_totalPresent = $guestName
@ -1032,7 +1032,7 @@ sub RESIDENTS_UpdateReadings (@) {
if ( $residentsDevs_totalPresentGuest ne "-" ); if ( $residentsDevs_totalPresentGuest ne "-" );
$residentsDevs_totalPresentGuest = $guest $residentsDevs_totalPresentGuest = $guest
if ( $residentsDevs_totalPresentGuest eq "-" ); if ( $residentsDevs_totalPresentGuest eq "-" );
$residents_totalPresentGuest .= "," . $guestName $residents_totalPresentGuest .= ", " . $guestName
if ( $guestName ne "" if ( $guestName ne ""
&& $residents_totalPresentGuest ne "-" ); && $residents_totalPresentGuest ne "-" );
$residents_totalPresentGuest = $guestName $residents_totalPresentGuest = $guestName
@ -1043,7 +1043,7 @@ sub RESIDENTS_UpdateReadings (@) {
if ( $residentsDevs_totalPresent ne "-" ); if ( $residentsDevs_totalPresent ne "-" );
$residentsDevs_totalPresent = $guest $residentsDevs_totalPresent = $guest
if ( $residentsDevs_totalPresent eq "-" ); if ( $residentsDevs_totalPresent eq "-" );
$residents_totalPresent .= "," . $guestName $residents_totalPresent .= ", " . $guestName
if ( $guestName ne "" if ( $guestName ne ""
&& $residents_totalPresent ne "-" ); && $residents_totalPresent ne "-" );
$residents_totalPresent = $guestName $residents_totalPresent = $guestName
@ -1062,7 +1062,7 @@ sub RESIDENTS_UpdateReadings (@) {
if ( $residentsDevs_totalPresentGuest ne "-" ); if ( $residentsDevs_totalPresentGuest ne "-" );
$residentsDevs_totalPresentGuest = $guest $residentsDevs_totalPresentGuest = $guest
if ( $residentsDevs_totalPresentGuest eq "-" ); if ( $residentsDevs_totalPresentGuest eq "-" );
$residents_totalPresentGuest .= "," . $guestName $residents_totalPresentGuest .= ", " . $guestName
if ( $guestName ne "" if ( $guestName ne ""
&& $residents_totalPresentGuest ne "-" ); && $residents_totalPresentGuest ne "-" );
$residents_totalPresentGuest = $guestName $residents_totalPresentGuest = $guestName
@ -1073,7 +1073,7 @@ sub RESIDENTS_UpdateReadings (@) {
if ( $residentsDevs_totalPresent ne "-" ); if ( $residentsDevs_totalPresent ne "-" );
$residentsDevs_totalPresent = $guest $residentsDevs_totalPresent = $guest
if ( $residentsDevs_totalPresent eq "-" ); if ( $residentsDevs_totalPresent eq "-" );
$residents_totalPresent .= "," . $guestName $residents_totalPresent .= ", " . $guestName
if ( $guestName ne "" if ( $guestName ne ""
&& $residents_totalPresent ne "-" ); && $residents_totalPresent ne "-" );
$residents_totalPresent = $guestName $residents_totalPresent = $guestName
@ -1092,7 +1092,7 @@ sub RESIDENTS_UpdateReadings (@) {
if ( $residentsDevs_totalAbsentGuest ne "-" ); if ( $residentsDevs_totalAbsentGuest ne "-" );
$residentsDevs_totalAbsentGuest = $guest $residentsDevs_totalAbsentGuest = $guest
if ( $residentsDevs_totalAbsentGuest eq "-" ); if ( $residentsDevs_totalAbsentGuest eq "-" );
$residents_totalAbsentGuest .= "," . $guestName $residents_totalAbsentGuest .= ", " . $guestName
if ( $guestName ne "" if ( $guestName ne ""
&& $residents_totalAbsentGuest ne "-" ); && $residents_totalAbsentGuest ne "-" );
$residents_totalAbsentGuest = $guestName $residents_totalAbsentGuest = $guestName
@ -1103,7 +1103,7 @@ sub RESIDENTS_UpdateReadings (@) {
if ( $residentsDevs_totalAbsent ne "-" ); if ( $residentsDevs_totalAbsent ne "-" );
$residentsDevs_totalAbsent = $guest $residentsDevs_totalAbsent = $guest
if ( $residentsDevs_totalAbsent eq "-" ); if ( $residentsDevs_totalAbsent eq "-" );
$residents_totalAbsent .= "," . $guestName $residents_totalAbsent .= ", " . $guestName
if ( $guestName ne "" if ( $guestName ne ""
&& $residents_totalAbsent ne "-" ); && $residents_totalAbsent ne "-" );
$residents_totalAbsent = $guestName $residents_totalAbsent = $guestName
@ -1120,7 +1120,7 @@ sub RESIDENTS_UpdateReadings (@) {
if ( $residentsDevs_wakeup ne "-" ); if ( $residentsDevs_wakeup ne "-" );
$residentsDevs_wakeup = $guest $residentsDevs_wakeup = $guest
if ( $residentsDevs_wakeup eq "-" ); if ( $residentsDevs_wakeup eq "-" );
$residents_wakeup .= "," . $guestName $residents_wakeup .= ", " . $guestName
if ( $guestName ne "" && $residents_wakeup ne "-" ); if ( $guestName ne "" && $residents_wakeup ne "-" );
$residents_wakeup = $guestName $residents_wakeup = $guestName
if ( $guestName ne "" && $residents_wakeup eq "-" ); if ( $guestName ne "" && $residents_wakeup eq "-" );
@ -1133,7 +1133,7 @@ sub RESIDENTS_UpdateReadings (@) {
$residents_wayhome .= "," . $guest $residents_wayhome .= "," . $guest
if ( $residents_wayhome ne "-" ); if ( $residents_wayhome ne "-" );
$residents_wayhome = $guest if ( $residents_wayhome eq "-" ); $residents_wayhome = $guest if ( $residents_wayhome eq "-" );
$residents_wayhome .= "," . $guestName $residents_wayhome .= ", " . $guestName
if ( $guestName ne "" && $residents_wayhome ne "-" ); if ( $guestName ne "" && $residents_wayhome ne "-" );
$residents_wayhome = $guestName $residents_wayhome = $guestName
if ( $guestName ne "" && $residents_wayhome eq "-" ); if ( $guestName ne "" && $residents_wayhome eq "-" );
@ -1142,7 +1142,7 @@ sub RESIDENTS_UpdateReadings (@) {
if ( $residentsDevs_totalAbsent ne "-" ); if ( $residentsDevs_totalAbsent ne "-" );
$residentsDevs_totalAbsent = $guest $residentsDevs_totalAbsent = $guest
if ( $residentsDevs_totalAbsent eq "-" ); if ( $residentsDevs_totalAbsent eq "-" );
$residents_totalAbsent .= "," . $guestName $residents_totalAbsent .= ", " . $guestName
if ( $guestName ne "" if ( $guestName ne ""
&& $residents_totalAbsent ne "-" ); && $residents_totalAbsent ne "-" );
$residents_totalAbsent = $guestName $residents_totalAbsent = $guestName