Installer won't reset web application when updating

Author: nikitaeverywhere

import.bat

@@ -5,8 +5,8 @@
 :: Latest NodeJS & Caché 2016.1+ IS REQUIRED TO PROCEED
 @echo off
 
-:: CHANGE THIS PATH TO YOUR CACHÉ INSTALLATION PATH ON WINDOWS
-set CACHE_DIR=C:\Program Files\InterSystems\Cache20162
+:: CHANGE THIS PATH TO YOUR CACHÉ INSTALLATION PATH ON WINDOWS (folder that contains bin, CSP, mgr and other folders)
+set CACHE_DIR=C:\Program Files\InterSystems\Ensemble
 :: NAMESPACE TO IMPORT PACKAGE TO
 set NAMESPACE=SAMPLES
 

package.json

@@ -2,7 +2,7 @@
   "name": "cache-visual-editor",
   "printableName": "Cache Visual Editor",
   "packageName": "VisualEditor",
-  "version": "0.9.8",
+  "version": "0.9.9",
   "description": "Visual class editor for InterSystems Caché",
   "main": "index.js",
   "keywords": [

source/cache/Installer.cls

@@ -33,14 +33,14 @@ ClassMethod RegisterWebApplication(name As %String, spec) As %Status
             $$$log("WEB application """_name_""" is created.")
         } else {
             $$$log("Unable to create WEB-application """_name_"""!")
-            set st = $$$ERROR()
+            set st = $$$ERROR($$$GeneralError, "Unable to create WEB-application """_name_""".")
         }
     } else {
         $$$log("WEB-application """_name_""" already exists, checking it's DispatchClass...")
         do ##class(Security.Applications).Get(name, .props)
         if (props("DispatchClass") '= ..#DispatchClass) && (name = ..#RESTAppName) {
             $$$log("WARNING! WEB application """_name_""" exists but does not refer to " _ ..#DispatchClass _ ". Please, set correct dispatch class for this " _ "application or create the WEB-application manually.")
-            set st = $$$ERROR()
+            set st = $$$ERROR($$$GeneralError, "Dispatch class of web application """_name_""" does not refer to " _ ..#DispatchClass)
         } else {
             $$$log("WEB application """_name_""" already exists, so it should be ready to use.")
         }
@@ -94,15 +94,17 @@ ClassMethod CreateProjection() As %Status
 }
 
 /// This method is invoked when a class is 'uncompiled'.
-ClassMethod RemoveProjection() As %Status
+ClassMethod RemoveProjection(cls As %String, ByRef params, recompile As %Boolean) As %Status
 {
     do ..Init()
     #define log(%s) set installLog = installLog _ $case(installLog = "", 1: "", :$C(10)) _ %s write !, %s
     #define testError(%e) if ($$$ISERR(%e)) { set errorOccurred = 1 }
 
     $$$log("Uninstalling <!-- @echo package.printableName --> from " _ $Namespace)
 
-    do ..DeleteWebApplication(..#RESTAppName)
+    if ('recompile) {
+        do ..DeleteWebApplication(..#RESTAppName)
+    }
 
     $$$log("Uninstalling is complete!")
 

source/cache/REST/Router.cls

@@ -1,6 +1,6 @@
 /// [ <!-- @echo package.printableName --> v<!-- @echo package.version --> ]
 /// This is a REST WEB application entry point for <!-- @echo package.printableName --> WEB application.
-Class VisualEditor.REST.Router Extends VisualEditor.REST.Content [ CompileAfter = VisualEditor.REST.StaticContent ] {
+Class VisualEditor.REST.Router Extends VisualEditor.REST.Content [ CompileAfter = VisualEditor.REST.StaticLibJS ] {
 
 XData UrlMap
 {