@@ -1105,6 +1105,7 @@ New connection established: require auth key, login and start client loop.</Desc
1105
1105
<Class name =" %WebTerminal.Installer" >
1106
1106
<Description >
1107
1107
Importing this class will install Cache WEB Terminal properly.</Description >
1108
+ <CompileAfter >Engine,Router,StaticContent</CompileAfter >
1108
1109
<Super >%Projection.AbstractProjection</Super >
1109
1110
<TimeCreated >63890,71053.144208</TimeCreated >
1110
1111
@@ -1147,6 +1148,35 @@ This method is invoked when a class is compiled.</Description>
1147
1148
w !, "WEB application ""/terminal"" already exists, so it is ready to use."
1148
1149
}
1149
1150
}
1151
+ w !, "Mapping %WebTerminal package to %All namespace..."
1152
+ set status = ##Class(Config.Namespaces).Get("%All")
1153
+ if ($$$ISERR(status)) { // no namespace %All
1154
+ w !, "Creating %All namespace..."
1155
+ set Properties("Globals") = "CACHETEMP"
1156
+ set Properties("Library") = "CACHELIB"
1157
+ set Properties("Routines") = "CACHETEMP"
1158
+ set Properties("SysGlobals") = "CACHESYS"
1159
+ set Properties("SysRoutines") = "CACHESYS"
1160
+ set Properties("TempGlobals") = "CACHETEMP"
1161
+ set status = ##Class(Config.Namespaces).Create("%All", .Properties)
1162
+ if ($$$ISERR(status)) {
1163
+ do $SYSTEM.Status.DisplayError(status)
1164
+ quit status
1165
+ } else {
1166
+ w !, "%All namespace created."
1167
+ }
1168
+ }
1169
+ set Properties("Database") = "CACHETEMP"
1170
+ set status=##Class(Config.MapPackages).Create("%All", "%WebTerminal", .Properties)
1171
+ if ($$$ISERR(status)) {
1172
+ do $SYSTEM.Status.DisplayError(status)
1173
+ }
1174
+ set Properties("Database") = "CACHELIB"
1175
+ set status=##Class(Config.MapPackages).Create("%SYS", "%WebTerminal", .Properties)
1176
+ if ($$$ISERR(status)) {
1177
+ do $SYSTEM.Status.DisplayError(status)
1178
+ }
1179
+ w !, "%WebTerminal package successfully mapped into %All namespace."
1150
1180
zn:ns'="%SYS" ns
1151
1181
quit $$$OK
1152
1182
]]> </Implementation >
0 commit comments