diff --git a/Installer.cls b/Installer.cls index 0f80aa9..64041d6 100644 --- a/Installer.cls +++ b/Installer.cls @@ -43,13 +43,14 @@ XData setup ClassMethod AddSSLConfiguration() { + Set sc = $$$OK Set host = "zpmregistry" New $NAMESPACE Set $NAMESPACE = "%SYS" If '##class(Security.SSLConfigs).Exists(host) { - Do ##class(Security.SSLConfigs).Create(host) + Set sc = ##class(Security.SSLConfigs).Create(host) } - Return host + Return sc } ClassMethod setup(ByRef pVars, pLogLevel As %Integer = 3, pInstaller As %Installer.Installer, pLogger As %Installer.AbstractLogger) As %Status [ CodeMode = objectgenerator, Internal ] diff --git a/src/cls/ZPM/Utils.cls b/src/cls/ZPM/Utils.cls index 73ff875..c8096fb 100644 --- a/src/cls/ZPM/Utils.cls +++ b/src/cls/ZPM/Utils.cls @@ -111,13 +111,14 @@ ClassMethod SQLsetup() As %Status ClassMethod AddSSLConfiguration() As %Status { + Set sc = $$$OK Set host = ..#SSLCONFIGNAME New $NAMESPACE Set $NAMESPACE = "%SYS" If '##class(Security.SSLConfigs).Exists(host) { - Do ##class(Security.SSLConfigs).Create(host) + Set sc = ##class(Security.SSLConfigs).Create(host) } - Return host + Return sc } }