From 4ae6551013f384ba1ce01efa4c66273c7c7e7d80 Mon Sep 17 00:00:00 2001
From: Marko Oldenburg <leongaultier@gmail.com>
Date: Tue, 28 Aug 2018 20:39:27 +0200
Subject: [PATCH] fix run fn after InternalTimer

---
 73_AutoShuttersControl.pm | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/73_AutoShuttersControl.pm b/73_AutoShuttersControl.pm
index b35ab67..1cacdca 100644
--- a/73_AutoShuttersControl.pm
+++ b/73_AutoShuttersControl.pm
@@ -581,11 +581,11 @@ sub CreateSunRiseSetShuttersTimer($$) {
     
     my %arg = ('h' => $hash, 'd' => $shuttersDev);
     my $arg = \%arg;
-    
-    RemoveInternalTimer($arg,'SunSetShuttersTimerFn');
-    RemoveInternalTimer($arg,'SunRiseShuttersTimerFn');
-    InternalTimer(computeAlignTime('24:00',$autoShuttersControlTimeSunset), 'SunSetShuttersTimerFn', $arg ) if( AttrVal($name,'autoShuttersControlEvening','off') eq 'on' );
-    InternalTimer(computeAlignTime('24:00',$autoShuttersControlTimeSunrise), 'SunRiseShuttersTimerFn',$arg ) if( AttrVal($name,'autoShutterControlMorning','off') eq 'on' );
+    ## aktueller fehler - Undefined subroutine &main::SunSetShuttersTimerFn called at fhem.pl line 3112
+    RemoveInternalTimer($arg,'AutoShuttersControl::SunSetShuttersTimerFn');
+    RemoveInternalTimer($arg,'AutoShuttersControl::SunRiseShuttersTimerFn');
+    InternalTimer(computeAlignTime('24:00',$autoShuttersControlTimeSunset), 'AutoShuttersControl::SunSetShuttersTimerFn', $arg ) if( AttrVal($name,'autoShuttersControlEvening','off') eq 'on' );
+    InternalTimer(computeAlignTime('24:00',$autoShuttersControlTimeSunrise), 'AutoShuttersControl::SunRiseShuttersTimerFn',$arg ) if( AttrVal($name,'autoShutterControlMorning','off') eq 'on' );
 }
 
 sub SunSetShuttersAfterTimerFn($) {