| Line 86... |
Line 86... |
| 86 |
|
86 |
|
| 87 |
End If
|
87 |
End If
|
| 88 |
|
88 |
|
| 89 |
ElseIf objAccessControl.IsActive("EditCriticalInfoForLockedPackage") Then
|
89 |
ElseIf objAccessControl.IsActive("EditCriticalInfoForLockedPackage") Then
|
| 90 |
' For Packages in Release
|
90 |
' For Packages in Release
|
| 91 |
aTabBtnsDef = Array("btnNewVersion", "btnVersionHistory", "btnRemovePackage", "width=20", _
|
91 |
aTabBtnsDef = Array("btnNewVersion", "btnVersionHistory", "btnDestroyWip" ,"btnRemovePackage", "width=20", _
|
| 92 |
"btnAddDaemonInstTestBuildPackage", "btnMakePending", "btnApprovePackage", "btnApproveMerge", "btnMakeRelease", "btnRejectPackage", "btnRejectAutobuildPackage", "btnMakeUnrelease", "width=20", _
|
92 |
"btnAddDaemonInstTestBuildPackage", "btnMakePending", "btnApprovePackage", "btnApproveMerge", "btnMakeRelease", "btnRejectPackage", "btnRejectAutobuildPackage", "btnMakeUnrelease", "width=20", _
|
| 93 |
"btnMoveToView", "btnMoveWIPToRelease", "btnReversionPackage","btnLockPackage","btnUnLockPackage", "width=20", "btnStickyNotes", "btnDeprecation", "btnUnDeprecation", "btnAddDaemonInstRipplePackage" )
|
93 |
"btnMoveToView", "btnMoveWIPToRelease", "btnReversionPackage","btnLockPackage","btnUnLockPackage", "width=20", "btnStickyNotes", "btnDeprecation", "btnUnDeprecation", "btnAddDaemonInstRipplePackage" )
|
| 94 |
Else
|
94 |
Else
|
| 95 |
' For Packages in Release
|
95 |
' For Packages in Release
|
| 96 |
aTabBtnsDef = Array("btnNewVersion", "btnVersionHistory", "btnRemovePackage", "width=20", _
|
96 |
aTabBtnsDef = Array("btnNewVersion", "btnVersionHistory", "btnDestroyWip","btnRemovePackage", "width=20", _
|
| 97 |
"btnAddDaemonInstTestBuildPackage", "btnMakePending", "btnApprovePackage", "btnApproveMerge", "btnMakeRelease", "btnRejectPackage", "btnRejectAutobuildPackage", "width=20", _
|
97 |
"btnAddDaemonInstTestBuildPackage", "btnMakePending", "btnApprovePackage", "btnApproveMerge", "btnMakeRelease", "btnRejectPackage", "btnRejectAutobuildPackage", "width=20", _
|
| 98 |
"btnMoveToView", "btnMoveWIPToRelease", "btnReversionPackage", "width=20", "btnStickyNotes", "btnDeprecation", "btnUnDeprecation", "btnAddDaemonInstRipplePackage")
|
98 |
"btnMoveToView", "btnMoveWIPToRelease", "btnReversionPackage", "width=20", "btnStickyNotes", "btnDeprecation", "btnUnDeprecation", "btnAddDaemonInstRipplePackage")
|
| 99 |
End If
|
99 |
End If
|
| 100 |
Else
|
100 |
Else
|
| 101 |
' Non-Editable Packages in Release
|
101 |
' Non-Editable Packages in Release
|
| Line 129... |
Line 129... |
| 129 |
objBtnControl.ImageHspace = 2
|
129 |
objBtnControl.ImageHspace = 2
|
| 130 |
|
130 |
|
| 131 |
|
131 |
|
| 132 |
'--- Set button conditions ---
|
132 |
'--- Set button conditions ---
|
| 133 |
objBtnControl.IsReadonlyAction = Eval( ReleaseMode = enumDB_RELEASE_IN_CLOSED_MODE OR ReleaseMode = enumDB_RELEASE_IN_ARCHIVE_MODE )
|
133 |
objBtnControl.IsReadonlyAction = Eval( ReleaseMode = enumDB_RELEASE_IN_CLOSED_MODE OR ReleaseMode = enumDB_RELEASE_IN_ARCHIVE_MODE )
|
| 134 |
objBtnControl.setClosed = Eval( ReleaseMode = enumDB_RELEASE_IN_CLOSED_MODE OR ReleaseMode = enumDB_RELEASE_IN_ARCHIVE_MODE )
|
134 |
objBtnControl.setClosed = Eval( ReleaseMode = enumDB_RELEASE_IN_CLOSED_MODE OR ReleaseMode = enumDB_RELEASE_IN_ARCHIVE_MODE )
|
| 135 |
|
135 |
|
| 136 |
|
136 |
|
| 137 |
' NOTE: At this point, all buttons are Active and Visible and must now be configured
|
137 |
' NOTE: At this point, all buttons are Active and Visible and must now be configured
|
| 138 |
' as appropriate by statements that follow.
|
138 |
' as appropriate by statements that follow.
|
| 139 |
|
139 |
|
| Line 163... |
Line 163... |
| 163 |
Call objBtnControl.Active ( "btnAddDaemonInstTestBuildPackage", "N" )
|
163 |
Call objBtnControl.Active ( "btnAddDaemonInstTestBuildPackage", "N" )
|
| 164 |
Call objBtnControl.Visible ( "btnAddDaemonInstTestBuildPackage", "N" )
|
164 |
Call objBtnControl.Visible ( "btnAddDaemonInstTestBuildPackage", "N" )
|
| 165 |
Call objBtnControl.Active ( "btnMoveWIPToRelease", "N" )
|
165 |
Call objBtnControl.Active ( "btnMoveWIPToRelease", "N" )
|
| 166 |
Call objBtnControl.Visible ( "btnMoveWIPToRelease", "N" )
|
166 |
Call objBtnControl.Visible ( "btnMoveWIPToRelease", "N" )
|
| 167 |
|
167 |
|
| - |
|
168 |
Call objBtnControl.Active ( "btnDestroyWip", "N" )
|
| - |
|
169 |
Call objBtnControl.Visible ( "btnDestroyWip", "N" )
|
| 168 |
|
170 |
|
| 169 |
|
- |
|
| 170 |
|
- |
|
| 171 |
If objAccessControl.IsDataActive ("PROJECTS", DB_PROJ_ID, "EditProjects") Then
|
171 |
If (pkgInfoHash.Item("can_edit_in_project") = "1") Then
|
| 172 |
'-- Change button setting on conditions ---
|
172 |
'-- Change button setting on conditions ---
|
| 173 |
If ( pkgInfoHash.Item ("build_type") = "A" ) Then
|
173 |
If ( pkgInfoHash.Item ("build_type") = "A" ) Then
|
| 174 |
' For automatic build
|
174 |
' For automatic build
|
| 175 |
Call objBtnControl.Visible ( "btnMakePending", "Y" )
|
175 |
Call objBtnControl.Visible ( "btnMakePending", "Y" )
|
| 176 |
|
176 |
|
| Line 183... |
Line 183... |
| 183 |
' For Manual Build
|
183 |
' For Manual Build
|
| 184 |
If ( ReleaseMode = enumDB_RELEASE_IN_CCB_MODE ) And Not objAccessControl.IsVisible("ApproveForManualBuild") Then
|
184 |
If ( ReleaseMode = enumDB_RELEASE_IN_CCB_MODE ) And Not objAccessControl.IsVisible("ApproveForManualBuild") Then
|
| 185 |
Call objBtnControl.Visible ( "btnMakeRelease", "N" )
|
185 |
Call objBtnControl.Visible ( "btnMakeRelease", "N" )
|
| 186 |
Else
|
186 |
Else
|
| 187 |
Call objBtnControl.Visible ( "btnMakeRelease", "Y" )
|
187 |
Call objBtnControl.Visible ( "btnMakeRelease", "Y" )
|
| - |
|
188 |
Call objBtnControl.Visible ( "btnMakeUnrelease", "N" )
|
| 188 |
End If
|
189 |
End If
|
| 189 |
|
190 |
|
| 190 |
If (pkgInfoHash.Item("is_patch")) <> "" Then
|
191 |
If (pkgInfoHash.Item("is_patch")) <> "" Then
|
| 191 |
If objAccessControl.IsVisible ("ReleasePatch") Then
|
192 |
If objAccessControl.IsVisible ("ReleasePatch") Then
|
| 192 |
Call objBtnControl.Visible ( "btnMakeRelease", "Y" )
|
193 |
Call objBtnControl.Visible ( "btnMakeRelease", "Y" )
|
| Line 312... |
Line 313... |
| 312 |
Call objBtnControl.Active ( "btnMakePending", "Y" )
|
313 |
Call objBtnControl.Active ( "btnMakePending", "Y" )
|
| 313 |
|
314 |
|
| 314 |
Call objBtnControl.Visible ( "btnApprovePackage", "N" )
|
315 |
Call objBtnControl.Visible ( "btnApprovePackage", "N" )
|
| 315 |
Call objBtnControl.Visible ( "btnRejectPackage", "N" )
|
316 |
Call objBtnControl.Visible ( "btnRejectPackage", "N" )
|
| 316 |
|
317 |
|
| - |
|
318 |
Call objBtnControl.Visible ( "btnMoveWIPToRelease", "Y" )
|
| 317 |
If objAccessControl.IsDataActive ("PROJECTS", DB_PROJ_ID, "EditProjects") Then
|
319 |
Call objBtnControl.Visible ( "btnAddDaemonInstTestBuildPackage", "Y" )
|
| - |
|
320 |
If (pkgInfoHash.Item("can_edit_in_project") = "1") Then
|
| 318 |
Call objBtnControl.Active ( "btnAddDaemonInstTestBuildPackage", "Y" )
|
321 |
Call objBtnControl.Active ( "btnAddDaemonInstTestBuildPackage", "Y" )
|
| 319 |
Call objBtnControl.Visible ( "btnAddDaemonInstTestBuildPackage", "Y" )
|
- |
|
| 320 |
|
- |
|
| 321 |
Call objBtnControl.Active ( "btnMoveWIPToRelease", "Y" )
|
322 |
Call objBtnControl.Active ( "btnMoveWIPToRelease", "Y" )
|
| 322 |
Call objBtnControl.Visible ( "btnMoveWIPToRelease", "Y" )
|
- |
|
| 323 |
End If
|
323 |
End If
|
| - |
|
324 |
|
| - |
|
325 |
Call objBtnControl.Visible ( "btnDestroyWip", "Y" )
|
| - |
|
326 |
If (objAccessControl.UserLogedIn) Then
|
| - |
|
327 |
If ( (objAccessControl.UserName = pkgInfoHash.Item("creator")) OR (objAccessControl.IsActive("DestroyPackageFromRelease")) ) Then
|
| - |
|
328 |
Call objBtnControl.Active ( "btnDestroyWip", "Y" )
|
| - |
|
329 |
End If
|
| - |
|
330 |
End If
|
| - |
|
331 |
|
| 324 |
End If
|
332 |
End If
|
| 325 |
|
333 |
|
| 326 |
|
334 |
|
| 327 |
If IsNull(pkgInfoHash.Item ("is_obsolete")) Then
|
335 |
If IsNull(pkgInfoHash.Item ("is_obsolete")) Then
|
| 328 |
Call objBtnControl.Visible ( "btnObsoletePatch", "Y" )
|
336 |
Call objBtnControl.Visible ( "btnObsoletePatch", "Y" )
|
| Line 363... |
Line 371... |
| 363 |
Call objBtnControl.Active ( "btnApproveMerge", "N" )
|
371 |
Call objBtnControl.Active ( "btnApproveMerge", "N" )
|
| 364 |
Call objBtnControl.Active ( "btnRejectPackage", "N" )
|
372 |
Call objBtnControl.Active ( "btnRejectPackage", "N" )
|
| 365 |
End If
|
373 |
End If
|
| 366 |
End If
|
374 |
End If
|
| 367 |
|
375 |
|
| - |
|
376 |
'--- Disable if the user is not logged in
|
| - |
|
377 |
If (NOT objAccessControl.UserLogedIn) Then
|
| - |
|
378 |
Call objBtnControl.Active ( "btnRemovePackage", "N" )
|
| - |
|
379 |
Call objBtnControl.Active ( "btnMakeRelease", "N" )
|
| - |
|
380 |
Call objBtnControl.Active ( "btnMoveToView", "N" )
|
| - |
|
381 |
Call objBtnControl.Active ( "btnReversionPackage", "N" )
|
| - |
|
382 |
Call objBtnControl.Active ( "btnMoveWIPToRelease", "N" )
|
| - |
|
383 |
Call objBtnControl.Active ( "btnAddDaemonInstTestBuildPackage", "N" )
|
| - |
|
384 |
Call objBtnControl.Active ( "btnMakeUnrelease", "N" )
|
| - |
|
385 |
End If
|
| - |
|
386 |
|
| - |
|
387 |
|
| 368 |
'--- Other Access Control Action Relationships ---
|
388 |
'--- Other Access Control Action Relationships ---
|
| 369 |
If ( ReleaseMode = enumDB_RELEASE_IN_CCB_MODE ) Then Call objBtnControl.SetRelationship ( "btnMakeRelease", "ApprovePackageReleaseForRestrictiveMode" )
|
389 |
If ( ReleaseMode = enumDB_RELEASE_IN_CCB_MODE ) Then Call objBtnControl.SetRelationship ( "btnMakeRelease", "ApprovePackageReleaseForRestrictiveMode" )
|
| 370 |
|
390 |
|
| 371 |
Call objBtnControl.SetRelationship ( "btnPendingIntegration", "ApproveForPendingIntegration" )
|
391 |
Call objBtnControl.SetRelationship ( "btnPendingIntegration", "ApproveForPendingIntegration" )
|
| 372 |
Call objBtnControl.SetRelationship ( "btnPendingTest", "ApproveForPendingTest" )
|
392 |
Call objBtnControl.SetRelationship ( "btnPendingTest", "ApproveForPendingTest" )
|