update 03 to fix issue #1137

repository/BpmWebGemStoneAdministration.package/WABpmBackupDatabase.class/instance/getCurrentCollection.st

@@ -0,0 +1,4 @@
+other
+getCurrentCollection
+
+	^#()

repository/BpmWebGemStoneAdministration.package/WABpmBackupDatabase.class/methodProperties.json

@@ -0,0 +1,5 @@
+{
+	"class" : {
+		 },
+	"instance" : {
+		"getCurrentCollection" : "brunobb 05/06/2020 16:30" } }

repository/BpmWebGemStoneAdministration.package/WABpmBackupDatabase.class/properties.json

@@ -0,0 +1,14 @@
+{
+	"category" : "BpmWebGemStoneAdministration",
+	"classinstvars" : [
+		 ],
+	"classvars" : [
+		 ],
+	"commentStamp" : "",
+	"instvars" : [
+		 ],
+	"name" : "WABpmBackupDatabase",
+	"pools" : [
+		 ],
+	"super" : "SewafLateralListComposite",
+	"type" : "normal" }

repository/BpmWebGemStoneAdministration.package/WABpmGemStoneAdministrationLogin.class/instance/checkAccessToApplicationFor..st

@@ -0,0 +1,8 @@
+other
+checkAccessToApplicationFor: aBpmUser
+	"Answer wheter or not the user <aBpmUser> has access to the Backoffice application.
+	1) <aBpmUser> is backoffice user in the selected environment --> true or:
+	2) <aBpmUser> is registered in the the selected environment and belong to 'admins' environment with a backoffice role --> true"
+
+	^(aBpmUser isBackofficeUserIn: self session bpmEnvironment) 
+		or: [(self defaultEnvironmentClass getAdminsEnvironment includesUserNamed: aBpmUser username) and: [(aBpmUser isBackofficeUserIn: self defaultEnvironmentClass getAdminsEnvironment)]]

repository/BpmWebGemStoneAdministration.package/WABpmGemStoneAdministrationLogin.class/instance/showPortalFor..st

@@ -0,0 +1,4 @@
+other
+showPortalFor: aBpmUser
+
+	self show: (WABpmGemStoneAdministrationPortal on: aBpmUser)

repository/BpmWebGemStoneAdministration.package/WABpmGemStoneAdministrationLogin.class/methodProperties.json

@@ -2,4 +2,5 @@
 	"class" : {
 		 },
 	"instance" : {
-		 } }
+		"checkAccessToApplicationFor:" : "brunobb 05/06/2020 16:16",
+		"showPortalFor:" : "brunobb 05/06/2020 16:15" } }

repository/BpmWebGemStoneAdministration.package/WABpmGemStoneAdministrationPortal.class/instance/applicationIcon.st

@@ -0,0 +1,2 @@
+other
+applicationIcon

repository/BpmWebGemStoneAdministration.package/WABpmGemStoneAdministrationPortal.class/instance/applicationName.st

@@ -0,0 +1,4 @@
+other
+applicationName
+
+	^'GemStone/S Administration'

repository/BpmWebGemStoneAdministration.package/WABpmGemStoneAdministrationPortal.class/instance/initializeNavigation.st

@@ -0,0 +1,13 @@
+other
+initializeNavigation
+	| subMenu1 subMenu2 subMenu3 subMenu4 |
+
+	navigation := SewafPortalMenu new iconLibrary: SEWAFIconLibrary.
+	subMenu1 := (SewafSubMenuItem label: 'Manage GemStone/S DB' icon: #openManageGemStone)
+		addItem: (SewafCommandItem label: 'Backup Database' command: #openBackupDatabase);
+		addItem: (SewafCommandItem label: 'Start Garbage Collection' command: #openStartGarbageCollection);
+		addItem: (SewafCommandItem label: 'List Running Gems' command: #openListRunningGems);
+		addItem: (SewafCommandItem label: 'Repository Statistics' command: #openRepositoryStatistics);
+		yourself.
+
+	navigation addItem: subMenu1.

repository/BpmWebGemStoneAdministration.package/WABpmGemStoneAdministrationPortal.class/instance/logout.st

@@ -0,0 +1,6 @@
+other
+logout
+
+	self session logout.	
+	self session unregister.
+	self requestContext redirectTo: (self getGemStoneServerConfiguration gemstoneIP, '/bpmflow')

repository/BpmWebGemStoneAdministration.package/WABpmGemStoneAdministrationPortal.class/instance/openBackupDatabase.st

@@ -0,0 +1,8 @@
+other
+openBackupDatabase
+
+	(arena isKindOf: WABpmBackupDatabase)
+	ifTrue: [^arena].
+
+	^(WABpmBackupDatabase parent: self)
+		yourself

repository/BpmWebGemStoneAdministration.package/WABpmGemStoneAdministrationPortal.class/instance/openListRunningGems.st

@@ -0,0 +1,8 @@
+other
+openListRunningGems
+
+	(arena isKindOf: WABpmBackupDatabase)
+	ifTrue: [^arena].
+
+	^(WABpmBackupDatabase parent: self)
+		yourself

repository/BpmWebGemStoneAdministration.package/WABpmGemStoneAdministrationPortal.class/instance/openManageGemStone.st

@@ -0,0 +1,8 @@
+other
+openManageGemStone
+
+	(arena isKindOf: WABpmBackupDatabase)
+	ifTrue: [^arena].
+
+	^(WABpmBackupDatabase parent: self)
+		yourself

repository/BpmWebGemStoneAdministration.package/WABpmGemStoneAdministrationPortal.class/instance/openRepositoryStatistics.st

@@ -0,0 +1,8 @@
+other
+openRepositoryStatistics
+
+	(arena isKindOf: WABpmBackupDatabase)
+	ifTrue: [^arena].
+
+	^(WABpmBackupDatabase parent: self)
+		yourself

repository/BpmWebGemStoneAdministration.package/WABpmGemStoneAdministrationPortal.class/instance/openStartGarbageCollection.st

@@ -0,0 +1,8 @@
+other
+openStartGarbageCollection
+
+	(arena isKindOf: WABpmBackupDatabase)
+	ifTrue: [^arena].
+
+	^(WABpmBackupDatabase parent: self)
+		yourself

repository/BpmWebGemStoneAdministration.package/WABpmGemStoneAdministrationPortal.class/instance/renderSwitchPortalIconsOn..st

@@ -0,0 +1,2 @@
+other
+renderSwitchPortalIconsOn: html

repository/BpmWebGemStoneAdministration.package/WABpmGemStoneAdministrationPortal.class/instance/updateRoot..st

@@ -0,0 +1,12 @@
+other
+updateRoot: anHtmlRoot
+
+    super updateRoot: anHtmlRoot.
+
+    SEWAFCssLibrary default updateRoot: anHtmlRoot.
+
+	anHtmlRoot stylesheet url: (SEWAFCssLibrary / layout getBpmCssFileName).
+"
+'http://192.168.29.142:8787/files/SEWAFCssLibrary/main.css'
+"
+	anHtmlRoot javascript contents: SEWAFJavaScriptLibrary default jsExpandCollapseFunctions.

repository/BpmWebGemStoneAdministration.package/WABpmGemStoneAdministrationPortal.class/instance/versionName.st

@@ -0,0 +1,4 @@
+other
+versionName
+
+	^'2020 q1 v3.6.6'

repository/BpmWebGemStoneAdministration.package/WABpmGemStoneAdministrationPortal.class/methodProperties.json

@@ -0,0 +1,16 @@
+{
+	"class" : {
+		 },
+	"instance" : {
+		"applicationIcon" : "brunobb 05/06/2020 16:18",
+		"applicationName" : "brunobb 05/06/2020 16:19",
+		"initializeNavigation" : "brunobb 05/06/2020 16:23",
+		"logout" : "brunobb 05/06/2020 16:29",
+		"openBackupDatabase" : "brunobb 05/06/2020 16:28",
+		"openListRunningGems" : "brunobb 05/06/2020 16:28",
+		"openManageGemStone" : "brunobb 05/06/2020 16:28",
+		"openRepositoryStatistics" : "brunobb 05/06/2020 16:28",
+		"openStartGarbageCollection" : "brunobb 05/06/2020 16:29",
+		"renderSwitchPortalIconsOn:" : "brunobb 05/06/2020 16:24",
+		"updateRoot:" : "brunobb 05/06/2020 16:25",
+		"versionName" : "brunobb 05/06/2020 16:25" } }

repository/BpmWebGemStoneAdministration.package/WABpmGemStoneAdministrationPortal.class/properties.json

@@ -0,0 +1,14 @@
+{
+	"category" : "BpmWebGemStoneAdministration",
+	"classinstvars" : [
+		 ],
+	"classvars" : [
+		 ],
+	"commentStamp" : "",
+	"instvars" : [
+		 ],
+	"name" : "WABpmGemStoneAdministrationPortal",
+	"pools" : [
+		 ],
+	"super" : "SEWAFApplicationPortal",
+	"type" : "normal" }

repository/BpmWebGemStoneAdministration.package/monticello.meta/version

@@ -1 +1 @@
-(name 'BpmWebGemStoneAdministration-brunobb.1' message '' id '57c8e082-ed8f-4cc6-8352-457f60c248d8' date '05/06/2020' time '15:27:17' author 'brunobb' ancestors () stepChildren ())
+(name 'BpmWebGemStoneAdministration-brunobb.2' message '' id '6c705e4b-29ea-4c9e-b738-cba197a9bfed' date '05/06/2020' time '16:33:17' author 'brunobb' ancestors ((name 'BpmWebGemStoneAdministration-brunobb.1' message '' id '57c8e082-ed8f-4cc6-8352-457f60c248d8' date '05/06/2020' time '15:27:17' author 'brunobb' ancestors () stepChildren ())) stepChildren ())