@@ -81,7 +81,12 @@ ClassMethod CreateProjection(cls As %String, ByRef params) As %Status
81
81
set cspProperties (" Description" ) = " An application representing the open socket for /terminal application."
82
82
set cspProperties (" DispatchClass" ) = " "
83
83
set role = ..GetDBRole (dbdir )
84
- set cspProperties (" MatchRoles" )=" :%DB_CACHESYS" _ $case ($get (role )'=" " , 1 : " :" _role , :" " )
84
+ if ($system .Version .GetISCProduct () >= 4 ) {
85
+ set cspProperties (" MatchRoles" )=" :%DB_IRISSYS" _ $case ($get (role )'=" " , 1 : " :" _role , :" " )
86
+ } else {
87
+ set cspProperties (" MatchRoles" )=" :%DB_CACHESYS" _ $case ($get (role )'=" " , 1 : " :" _role , :" " )
88
+ }
89
+
85
90
set st = ..RegisterWebApplication (" /terminalsocket" , .cspProperties )
86
91
do :($$$ISERR(st )) ##class (WebTerminal.Analytics ).ReportInstallStatus (st )
87
92
return :$$$ISERR(st ) st
@@ -178,12 +183,23 @@ ClassMethod CreateAllNamespace() As %Status
178
183
set ns = " %All"
179
184
set st = $$$OK
180
185
if ('##Class (Config.Namespaces ).Exists (ns )) {
181
- set Properties (" Globals" ) = " CACHETEMP"
182
- set Properties (" Library" ) = " CACHELIB"
183
- set Properties (" Routines" ) = " CACHETEMP"
184
- set Properties (" SysGlobals" ) = " CACHESYS"
185
- set Properties (" SysRoutines" ) = " CACHESYS"
186
- set Properties (" TempGlobals" ) = " CACHETEMP"
186
+
187
+ if ($system .Version .GetISCProduct () >= 4 ) {
188
+ set Properties (" Globals" ) = " IRISTEMP"
189
+ set Properties (" Library" ) = " IRISLIB"
190
+ set Properties (" Routines" ) = " IRISTEMP"
191
+ set Properties (" SysGlobals" ) = " IRISSYS"
192
+ set Properties (" SysRoutines" ) = " IRISSYS"
193
+ set Properties (" TempGlobals" ) = " IRISTEMP"
194
+ } else {
195
+ set Properties (" Globals" ) = " CACHETEMP"
196
+ set Properties (" Library" ) = " CACHELIB"
197
+ set Properties (" Routines" ) = " CACHETEMP"
198
+ set Properties (" SysGlobals" ) = " CACHESYS"
199
+ set Properties (" SysRoutines" ) = " CACHESYS"
200
+ set Properties (" TempGlobals" ) = " CACHETEMP"
201
+ }
202
+
187
203
set st = ##Class (Config.Namespaces ).Create (ns , .Properties )
188
204
if ($$$ISERR(st )) {
189
205
do $System .Status .DisplayError (st )
0 commit comments