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

- bug in Twilight_Get repaired

Browse Source 
- longitude and latitude now taken from TW definition

git-svn-id: https://svn.fhem.de/fhem/trunk@3718 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
dietmar63 2013-08-16 18:26:49 +00:00
parent dff76274ec
commit aa1c74d247
1 changed files with 5 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
fhem/FHEM/59_Twilight.pm
View File

@ -37,7 +37,6 @@ use Math::Trig;
sub Twilight_calc($$$$$$$);
sub Twilight_getWeatherHorizon($);
sub Twilight_GetUpdate($);
sub Twilight_my_gmt_offset();
sub Twilight_midnight_seconds();
@ -84,9 +83,9 @@ sub Twilight_Get($@)
my ($hash, @a) = @_;
return "argument is missing" if(int(@a) != 2);
$hash->{LOCAL} = 1;
Twilight_GetUpdate($hash);
delete $hash->{LOCAL};
#$hash->{LOCAL} = 1;
#Twilight_GetUpdate($hash);
#delete $hash->{LOCAL};
my $reading= $a[1];
my $value;
@ -451,11 +450,8 @@ sub Twilight_sunpos($)
$dSeconds = 0;
############################
# If set in global, use longitude/latitude
# from global, otherwise set Frankfurt/Germany as
# default
my $dLongitude = AttrVal("global", "longitude", "8.686");
my $dLatitude = AttrVal("global", "latitude", "50.112");
my $dLongitude = $hash->{LONGITUDE};
my $dLatitude = $hash->{LATITUDE};
Log 5, "Compute sunpos for latitude $dLatitude , longitude $dLongitude";
my $pi=3.14159265358979323846;