|
1 | 1 | <?xml version="1.0" encoding="UTF-8"?>
|
2 |
| -<Export generator="Cache" version="25" zv="Cache for Windows (x86-64) 2015.3 (Build 215U)" ts="2015-12-15 14:55:07"> |
| 2 | +<Export generator="Cache" version="25" zv="Cache for Windows (x86-64) 2015.1.1 (Build 505U)" ts="2015-12-20 14:44:54"> |
3 | 3 | <Class name="WebTerminal.Installer">
|
4 | 4 | <Description>
|
5 | 5 | Importing this class will install Cache WEB Terminal properly.</Description>
|
6 |
| -<CompileAfter>Engine,Router,StaticContent</CompileAfter> |
7 | 6 | <Super>%Projection.AbstractProjection</Super>
|
8 |
| -<TimeChanged>63898,2021.685611</TimeChanged> |
| 7 | +<TimeChanged>63906,53063.112672</TimeChanged> |
9 | 8 | <TimeCreated>63890,71053.144208</TimeCreated>
|
| 9 | +<DependsOn>Common,Engine,Router,StaticContent</DependsOn> |
10 | 10 |
|
11 | 11 | <Parameter name="DispatchClass">
|
12 | 12 | <Default>WebTerminal.Router</Default>
|
@@ -58,19 +58,17 @@ This method is invoked when a class is compiled.</Description>
|
58 | 58 | set Properties("TempGlobals") = "CACHETEMP"
|
59 | 59 | set status = ##Class(Config.Namespaces).Create("%All", .Properties)
|
60 | 60 | if ($$$ISERR(status)) {
|
61 |
| - do $System.Status.DisplayError(status) |
| 61 | + do $SYSTEM.Status.DisplayError(status) |
62 | 62 | quit status
|
63 | 63 | } else {
|
64 | 64 | w !, "%All namespace is created."
|
65 | 65 | }
|
66 | 66 | }
|
67 | 67 | w !, "Mapping %WebTerminal package into all namespaces:"
|
68 | 68 | set mapTo = $LISTBUILD("%All", "SAMPLES", "DOCBOOK")
|
69 |
| - do ##Class(Config.Namespaces).Get("USER", .InstallNSProps) |
70 |
| - set Properties("Database") = $get(InstallNSProps("Routines")) |
| 69 | + set Properties("Database") = "CACHETEMP" |
71 | 70 | set ptr = 0
|
72 | 71 | while $LISTNEXT(mapTo, ptr, value) {
|
73 |
| - continue:(ns = value) |
74 | 72 | w " ", value
|
75 | 73 | set status = ##Class(Config.MapPackages).Create(value, "WebTerminal", .Properties)
|
76 | 74 | if ($$$ISERR(status)) {
|
@@ -109,7 +107,6 @@ This method is invoked when a class is 'uncompiled'.</Description>
|
109 | 107 | set mapTo = $LISTBUILD("%All", "SAMPLES", "DOCBOOK")
|
110 | 108 | set ptr = 0
|
111 | 109 | while $LISTNEXT(mapTo, ptr, value) {
|
112 |
| - continue:(ns = value) |
113 | 110 | w " ", value
|
114 | 111 | set status = ##Class(Config.MapPackages).Delete(value, "WebTerminal")
|
115 | 112 | if ($$$ISERR(status)) {
|
|
0 commit comments