update 14 to fix issue #423

brunobuzzi · Jul 9, 2021 · e441ae0 · e441ae0
1 parent 3a4a2e2
commit e441ae0
Show file tree

Hide file tree

Showing 6 changed files with 15 additions and 5 deletions.
diff --git a/....package/OrbeonSystemRoot.class/instance/getExistingOrbeonApplicationOrCreateNewNamed..st b/....package/OrbeonSystemRoot.class/instance/getExistingOrbeonApplicationOrCreateNewNamed..st
@@ -0,0 +1,9 @@
+applications
+getExistingOrbeonApplicationOrCreateNewNamed: applicationName 
+	| application |
+
+	(applications includesKey: applicationName) ifTrue: [^applications at: applicationName].
+
+	application := OrbeonApplication newNamed: applicationName.
+
+	self registerApplication: application
diff --git a/repository/Orbeon.package/OrbeonSystemRoot.class/methodProperties.json b/repository/Orbeon.package/OrbeonSystemRoot.class/methodProperties.json
@@ -3,6 +3,7 @@
 		 },
 	"instance" : {
 		"createSystemDefaultObjects" : "brunobb 06/30/2021 14:38",
+		"getExistingOrbeonApplicationOrCreateNewNamed:" : "brunobb 07/06/2021 13:58",
 		"initialize" : "brunobb 06/30/2021 14:38",
 		"initializeCurrentSystem" : "brunobb 06/30/2021 14:38",
 		"registerApplication:" : "brunobb 06/30/2021 14:38",

diff --git a/repository/Orbeon.package/OrbeonUser.class/class/newNamed.password..st b/repository/Orbeon.package/OrbeonUser.class/class/newNamed.password..st
@@ -2,7 +2,7 @@ other
 newNamed: aString password: password
 	| user centralUser |
 
-	centralUser := ApplicationUser getExistingOrNewUserNamed: aString.
+	centralUser := self defaultApplicationUserClass getExistingOrNewUserNamed: aString.
 	centralUser password: password.
 
 	user := self new initialize.

diff --git a/repository/Orbeon.package/OrbeonUser.class/instance/migrateFrom.instVarMap..st b/repository/Orbeon.package/OrbeonUser.class/instance/migrateFrom.instVarMap..st
@@ -3,5 +3,5 @@ migrateFrom: oldUser instVarMap: aMap
 
 	super migrateFrom: oldUser instVarMap: aMap.
 
-	centralUser := ApplicationUser getExistingOrNewUserNamed: name.
+	centralUser := self defaultApplicationUserClass getExistingOrNewUserNamed: name.
 	centralUser password: password.
diff --git a/repository/Orbeon.package/OrbeonUser.class/methodProperties.json b/repository/Orbeon.package/OrbeonUser.class/methodProperties.json
@@ -10,7 +10,7 @@
 		"migrateToApplicationUser" : "BrunoBB 12/20/2015 11:44",
 		"named:" : "BrunoBB 12/20/2015 11:23",
 		"newManagerNamed:password:" : "brunobb 03/25/2020 14:46",
-		"newNamed:password:" : "BrunoBB 02/04/2016 10:11",
+		"newNamed:password:" : "brunobb 07/06/2021 12:57",
 		"transformCache" : "BrunoBB 12/20/2015 11:23" },
 	"instance" : {
 		"addRol:" : "BrunoBB 12/20/2015 11:23",
@@ -34,7 +34,7 @@
 		"managerRolName" : "BrunoBB 12/20/2015 11:23",
 		"managerRole" : "BrunoBB 12/20/2015 11:23",
 		"managerRole:" : "BrunoBB 12/20/2015 11:23",
-		"migrateFrom:instVarMap:" : "BrunoBB 12/20/2015 11:35",
+		"migrateFrom:instVarMap:" : "brunobb 07/06/2021 12:57",
 		"name" : "BrunoBB 12/20/2015 11:46",
 		"name:" : "BrunoBB 12/20/2015 11:46",
 		"password" : "BrunoBB 12/20/2015 11:47",

diff --git a/repository/Orbeon.package/monticello.meta/version b/repository/Orbeon.package/monticello.meta/version