Installer Bugfix

objectscript · Apr 17, 2017 · 0c6d1d5 · 0c6d1d5
1 parent 8f754e8
commit 0c6d1d5
Showing 1 changed file with 9 additions and 3 deletions.
diff --git a/cls/kutac/monitor/utils/Installer.cls.xml b/cls/kutac/monitor/utils/Installer.cls.xml
@@ -127,6 +127,7 @@ do ##class(kutac.monitor.utils.Installer).setup(.pVars)</Description>
         
         set tApplication = ##class(Security.Applications).%OpenId("/csp/"_$ZCONVERT(namespace, "L"),,.tSC)
         if $$$ISERR(tSC) {
+	        do $system.Status.DisplayError(tSC)
             quit
         }
         
@@ -135,6 +136,8 @@ do ##class(kutac.monitor.utils.Installer).setup(.pVars)</Description>
     } catch e {
         set tSC = e.AsStatus()
     }
+    
+    do $system.Status.DisplayError(tSC)
     quit tSC
 ]]></Implementation>
 </Method>
@@ -517,15 +520,18 @@ do ##class(kutac.monitor.utils.Installer).setup(.pVars)</Description>
 	do ..WriteLog("Starting Monitor")
 	set st3 = ..RunningMonitor()
 	
-	&sql(select Name from %SYS.Task where Name = 'Rebuild SYSMON Cubes')
+	&sql(select id into :TaskID from %SYS.Task where Name = 'Rebuild SYSMON Cubes')
 	Do tInstaller.PopNS()
 	
 	Do tInstaller.PushNS(Namespace)
-		if +SQLCODE 
-	{
+	if +SQLCODE {
 		do ..WriteLog("Creating Task")
 		Do ##class(kutac.monitor.task.Builder).Setup()
+	} else {
+		do ##class(%SYS.Task).Resume(TaskID)
+		do ##class(%SYS.Task).RunNow(TaskID)
 	}
+	
 	Do tInstaller.PopNS()
 		
 	set st = $$$ADDSC(st2, st3)