Subversion Repositories DevTools

Rev

Rev 119 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 119 Rev 131
Line 30... Line 30...
30
			If pkgInfoHash.Item("is_deployable") = "Y" AND pkgInfoHash.Item("dlocked") = "Y" AND StatesUsed = "Y" Then
30
			If pkgInfoHash.Item("is_deployable") = "Y" AND pkgInfoHash.Item("dlocked") = "Y" AND StatesUsed = "Y" Then
31
				If pkgInfoHash.Item("product_state") = 1 Then
31
				If pkgInfoHash.Item("product_state") = 1 Then
32
 
32
 
33
				'Response.Write("Pressed")
33
				'Response.Write("Pressed")
34
					' For Products that have been approved for Pending Integration
34
					' For Products that have been approved for Pending Integration
35
					aTabBtnsDef = Array("btnNewVersion", "btnVersionHistory", "btnArchivedVersionHistory", "btnPendingTest", "btnRejectProduct", "width=20", _
35
               aTabBtnsDef = Array("btnNewVersion", "btnVersionHistory", "btnPendingTest", "btnRejectProduct", "width=20", _
36
							        "width=20", "btnMoveToView", "btnStickyNotes")
36
							        "width=20", "btnMoveToView", "btnStickyNotes")
37
 
37
 
38
				ElseIf pkgInfoHash.Item("product_state") = 2 Then
38
				ElseIf pkgInfoHash.Item("product_state") = 2 Then
39
					' For Products that have been approved for Pending Test
39
					' For Products that have been approved for Pending Test
40
					aTabBtnsDef = Array("btnNewVersion", "btnVersionHistory", "btnArchivedVersionHistory", "btnPendingIntegration", "btnPendingDeployment","btnRejectProduct", "width=20", _
40
               aTabBtnsDef = Array("btnNewVersion", "btnVersionHistory", "btnPendingIntegration", "btnPendingDeployment","btnRejectProduct", "width=20", _
41
							        "width=20", "btnMoveToView", "btnStickyNotes")
41
							        "width=20", "btnMoveToView", "btnStickyNotes")
42
 
42
 
43
				ElseIf pkgInfoHash.Item("product_state") = 3 or pkgInfoHash.Item("product_state") = 4 Then
43
				ElseIf pkgInfoHash.Item("product_state") = 3 or pkgInfoHash.Item("product_state") = 4 Then
44
			'		'For Products that have been approved for Pending Deployment
44
			'		'For Products that have been approved for Pending Deployment
45
					aTabBtnsDef = Array("btnNewVersion", "btnVersionHistory", "btnArchivedVersionHistory", "btnRemovePackage", "width=20", "btnRejectPackage", "width=20", _
45
               aTabBtnsDef = Array("btnNewVersion", "btnVersionHistory", "btnRemovePackage", "width=20", "btnRejectPackage", "width=20", _
46
							        "btnMoveToView", "btnReversionPackage", "width=20", "btnMoveToView", "btnStickyNotes")
46
							        "btnMoveToView", "btnReversionPackage", "width=20", "btnMoveToView", "btnStickyNotes")
47
 
47
 
48
				ElseIf pkgInfoHash.Item("product_state") = 5 Then
48
				ElseIf pkgInfoHash.Item("product_state") = 5 Then
49
			'		'For Products that have been approved for Pending Integration and Deployment
49
			'		'For Products that have been approved for Pending Integration and Deployment
50
					aTabBtnsDef = Array("btnNewVersion", "btnVersionHistory", "btnArchivedVersionHistory", "btnPendingDeployment", "width=20", _
50
               aTabBtnsDef = Array("btnNewVersion", "btnVersionHistory", "btnPendingDeployment", "width=20", _
51
							        "width=20", "btnMoveToView", "btnStickyNotes")
51
							        "width=20", "btnMoveToView", "btnStickyNotes")
52
 
52
 
53
				ElseIf IsNull(pkgInfoHash.Item("product_state")) Then
53
				ElseIf IsNull(pkgInfoHash.Item("product_state")) Then
54
					If objAccessControl.IsVisible("ApprovePendingIntegrateAndDeploy") Then
54
					If objAccessControl.IsVisible("ApprovePendingIntegrateAndDeploy") Then
55
						'For Products that have have not yet been approved for Pending Integration
55
						'For Products that have have not yet been approved for Pending Integration
56
						aTabBtnsDef = Array("btnNewVersion", "btnVersionHistory", "btnArchivedVersionHistory", "btnPendingIntegration", "btnPendingIntegrateAndDeploy", "btnRejectProduct", "width=20", "btnRemovePackage", _
56
                  aTabBtnsDef = Array("btnNewVersion", "btnVersionHistory", "btnPendingIntegration", "btnPendingIntegrateAndDeploy", "btnRejectProduct", "width=20", "btnRemovePackage", _
57
								        "btnMoveToView", "btnStickyNotes", "btnDeprecation", "btnUnDeprecation")
57
								        "btnMoveToView", "btnStickyNotes", "btnDeprecation", "btnUnDeprecation")
58
					Else
58
					Else
59
						'For Products that have have not yet been approved for Pending Integration
59
						'For Products that have have not yet been approved for Pending Integration
60
						aTabBtnsDef = Array("btnNewVersion", "btnVersionHistory", "btnArchivedVersionHistory", "btnPendingIntegration","btnRemovePackage", "width=20", "btnRejectProduct", "width=20", _
60
                  aTabBtnsDef = Array("btnNewVersion", "btnVersionHistory", "btnPendingIntegration","btnRemovePackage", "width=20", "btnRejectProduct", "width=20", _
61
								        "width=20", "btnMoveToView", "btnStickyNotes")
61
								        "width=20", "btnMoveToView", "btnStickyNotes")
62
					End If
62
					End If
63
				Else
63
				Else
64
					' For Packages Not In Release(Bug Fix From Deployment Manager)
64
					' For Packages Not In Release(Bug Fix From Deployment Manager)
65
					aTabBtnsDef = Array("btnNewVersion", "btnVersionHistory", "btnArchivedVersionHistory", "btnRemovePackage", "width=20", "btnMakePending", "btnApprovePackage", "btnMakeRelease", "btnRejectPackage", "width=20", _
65
               aTabBtnsDef = Array("btnNewVersion", "btnVersionHistory", "btnRemovePackage", "width=20", "btnMakePending", "btnApprovePackage", "btnMakeRelease", "btnRejectPackage", "width=20", _
66
						        	"btnMoveToView", "btnReversionPackage", "width=20", "btnMoveToView", "btnStickyNotes", "btnDeprecation", "btnUnDeprecation")
66
						        	"btnMoveToView", "btnReversionPackage", "width=20", "btnMoveToView", "btnStickyNotes", "btnDeprecation", "btnUnDeprecation")
67
 
67
 
68
				End If
68
				End If
69
 
69
 
70
			ElseIf objAccessControl.IsActive("EditCriticalInfoForLockedPackage") Then
70
			ElseIf objAccessControl.IsActive("EditCriticalInfoForLockedPackage") Then
71
				' For Packages in Release
71
				' For Packages in Release
72
				aTabBtnsDef = Array("btnNewVersion", "btnVersionHistory", "btnArchivedVersionHistory", "btnRemovePackage", "width=20", "btnMakePending", "btnApprovePackage", "btnApproveMerge", "btnMakeRelease", "btnRejectPackage", "btnMakeUnrelease", "width=20", _
72
            aTabBtnsDef = Array("btnNewVersion", "btnVersionHistory", "btnRemovePackage", "width=20", "btnMakePending", "btnApprovePackage", "btnApproveMerge", "btnMakeRelease", "btnRejectPackage", "btnMakeUnrelease", "width=20", _
73
					        	"btnMoveToView", "btnReversionPackage", "width=20", "btnStickyNotes", "btnDeprecation", "btnUnDeprecation")
73
					        	"btnMoveToView", "btnReversionPackage", "width=20", "btnStickyNotes", "btnDeprecation", "btnUnDeprecation")
74
			Else
74
			Else
75
				' For Packages in Release
75
				' For Packages in Release
76
				aTabBtnsDef = Array("btnNewVersion", "btnVersionHistory", "btnArchivedVersionHistory", "btnRemovePackage", "width=20", "btnMakePending", "btnApprovePackage", "btnApproveMerge", "btnMakeRelease", "btnRejectPackage", "width=20", _
76
            aTabBtnsDef = Array("btnNewVersion", "btnVersionHistory", "btnRemovePackage", "width=20", "btnMakePending", "btnApprovePackage", "btnApproveMerge", "btnMakeRelease", "btnRejectPackage", "width=20", _
77
					        	"btnMoveToView", "btnReversionPackage", "width=20", "btnStickyNotes", "btnDeprecation", "btnUnDeprecation")
77
					        	"btnMoveToView", "btnReversionPackage", "width=20", "btnStickyNotes", "btnDeprecation", "btnUnDeprecation")
78
			End If
78
			End If
79
		Else
79
		Else
80
			' Non-Editable Packages in Release
80
			' Non-Editable Packages in Release
81
			If AssocMASSREF Then
81
			If AssocMASSREF Then
82
				aTabBtnsDef = Array( "btnNewVersion-MASSREF", "btnVersionHistory", "btnArchivedVersionHistory", "btnStickyNotes", "btnDeprecation", "btnUnDeprecation")
82
            aTabBtnsDef = Array( "btnNewVersion-MASSREF", "btnVersionHistory", "btnStickyNotes", "btnDeprecation", "btnUnDeprecation")
83
			Else
83
			Else
84
				aTabBtnsDef = Array( "btnVersionHistory", "btnArchivedVersionHistory", "btnStickyNotes", "btnDeprecation", "btnUnDeprecation")
84
            aTabBtnsDef = Array( "btnVersionHistory", "btnStickyNotes", "btnDeprecation", "btnUnDeprecation")
85
			End If
85
			End If
86
		End If
86
		End If
87
 
87
 
88
	Else
88
	Else
89
		' For standalone Packages (Not view in project release)
89
		' For standalone Packages (Not view in project release)
90
		aTabBtnsDef = Array("btnVersionHistory", "btnArchivedVersionHistory", "btnReversionPackage", "width=20", "btnStickyNotes")
90
      aTabBtnsDef = Array("btnVersionHistory", "btnReversionPackage", "width=20", "btnStickyNotes")
91
	End If
91
	End If
92
 
92
 
93
Else
93
Else
94
	' For Patches
94
	' For Patches
95
	'aTabBtnsDef = Array("btnMakePending", "btnApprovePackage", "btnMakeRelease", "btnMakeUnrelease", "btnRejectPackage", "width=20", _
95
	'aTabBtnsDef = Array("btnMakePending", "btnApprovePackage", "btnMakeRelease", "btnMakeUnrelease", "btnRejectPackage", "width=20", _