| Line 89... |
Line 89... |
| 89 |
|
89 |
|
| 90 |
ElseIf objAccessControl.IsActive("EditCriticalInfoForLockedPackage") Then
|
90 |
ElseIf objAccessControl.IsActive("EditCriticalInfoForLockedPackage") Then
|
| 91 |
' For Packages in Release
|
91 |
' For Packages in Release
|
| 92 |
aTabBtnsDef = Array("btnNewVersion", "btnVersionHistory", "btnRemovePackage", "width=20", _
|
92 |
aTabBtnsDef = Array("btnNewVersion", "btnVersionHistory", "btnRemovePackage", "width=20", _
|
| 93 |
"btnAddDaemonInstTestBuildPackage", "btnMakePending", "btnApprovePackage", "btnApproveMerge", "btnMakeRelease", "btnRejectPackage", "btnRejectAutobuildPackage", "btnMakeUnrelease", "width=20", _
|
93 |
"btnAddDaemonInstTestBuildPackage", "btnMakePending", "btnApprovePackage", "btnApproveMerge", "btnMakeRelease", "btnRejectPackage", "btnRejectAutobuildPackage", "btnMakeUnrelease", "width=20", _
|
| 94 |
"btnMoveToView", "btnMoveWIPToRelease", "btnReversionPackage", "width=20", "btnStickyNotes", "btnDeprecation", "btnUnDeprecation", "btnAddDaemonInstRipplePackage" )
|
94 |
"btnMoveToView", "btnMoveWIPToRelease", "btnReversionPackage","btnLockPackage","btnUnLockPackage", "width=20", "btnStickyNotes", "btnDeprecation", "btnUnDeprecation", "btnAddDaemonInstRipplePackage" )
|
| 95 |
Else
|
95 |
Else
|
| 96 |
' For Packages in Release
|
96 |
' For Packages in Release
|
| 97 |
aTabBtnsDef = Array("btnNewVersion", "btnVersionHistory", "btnRemovePackage", "width=20", _
|
97 |
aTabBtnsDef = Array("btnNewVersion", "btnVersionHistory", "btnRemovePackage", "width=20", _
|
| 98 |
"btnAddDaemonInstTestBuildPackage", "btnMakePending", "btnApprovePackage", "btnApproveMerge", "btnMakeRelease", "btnRejectPackage", "btnRejectAutobuildPackage", "width=20", _
|
98 |
"btnAddDaemonInstTestBuildPackage", "btnMakePending", "btnApprovePackage", "btnApproveMerge", "btnMakeRelease", "btnRejectPackage", "btnRejectAutobuildPackage", "width=20", _
|
| 99 |
"btnMoveToView", "btnMoveWIPToRelease", "btnReversionPackage", "width=20", "btnStickyNotes", "btnDeprecation", "btnUnDeprecation", "btnAddDaemonInstRipplePackage")
|
99 |
"btnMoveToView", "btnMoveWIPToRelease", "btnReversionPackage", "width=20", "btnStickyNotes", "btnDeprecation", "btnUnDeprecation", "btnAddDaemonInstRipplePackage")
|
| Line 334... |
Line 334... |
| 334 |
End If
|
334 |
End If
|
| 335 |
|
335 |
|
| 336 |
'--- Access Control Action Relationships ---
|
336 |
'--- Access Control Action Relationships ---
|
| 337 |
|
337 |
|
| 338 |
|
338 |
|
| 339 |
|
- |
|
| 340 |
|
- |
|
| 341 |
|
- |
|
| 342 |
' DEVI-45275 - Merges now occur via the Pending tab. Merge candidates are marked with a (planned) operation
|
339 |
' DEVI-45275 - Merges now occur via the Pending tab. Merge candidates are marked with a (planned) operation
|
| 343 |
' of "A" for add, or "S" for subtract. If the package version is one of these (within the context of the
|
340 |
' of "A" for add, or "S" for subtract. If the package version is one of these (within the context of the
|
| 344 |
' release ofcoarse), manipulate the MakeRelease button (of which there are now 3 types) accordingly.
|
341 |
' release ofcoarse), manipulate the MakeRelease button (of which there are now 3 types) accordingly.
|
| 345 |
If ( pkgInfoHash.Item ("planned_operation") = "A" OR pkgInfoHash.Item ("planned_operation") = "S") Then
|
342 |
If ( pkgInfoHash.Item ("planned_operation") = "A" OR pkgInfoHash.Item ("planned_operation") = "S") Then
|
| 346 |
|
343 |
|
| Line 369... |
Line 366... |
| 369 |
|
366 |
|
| 370 |
|
367 |
|
| 371 |
'--- Other Access Control Action Relationships ---
|
368 |
'--- Other Access Control Action Relationships ---
|
| 372 |
If ( ReleaseMode = enumDB_RELEASE_IN_CCB_MODE ) Then Call objBtnControl.SetRelationship ( "btnMakeRelease", "ApprovePackageReleaseForRestrictiveMode" )
|
369 |
If ( ReleaseMode = enumDB_RELEASE_IN_CCB_MODE ) Then Call objBtnControl.SetRelationship ( "btnMakeRelease", "ApprovePackageReleaseForRestrictiveMode" )
|
| 373 |
|
370 |
|
| 374 |
|
- |
|
| 375 |
Call objBtnControl.SetRelationship ( "btnPendingIntegration", "ApproveForPendingIntegration" )
|
371 |
Call objBtnControl.SetRelationship ( "btnPendingIntegration", "ApproveForPendingIntegration" )
|
| 376 |
Call objBtnControl.SetRelationship ( "btnPendingTest", "ApproveForPendingTest" )
|
372 |
Call objBtnControl.SetRelationship ( "btnPendingTest", "ApproveForPendingTest" )
|
| 377 |
Call objBtnControl.SetRelationship ( "btnPendingDeployment", "ApproveForPendingDeployment" )
|
373 |
Call objBtnControl.SetRelationship ( "btnPendingDeployment", "ApproveForPendingDeployment" )
|
| 378 |
Call objBtnControl.SetRelationship ( "btnRejectProduct", "RejectProduct" )
|
374 |
Call objBtnControl.SetRelationship ( "btnRejectProduct", "RejectProduct" )
|
| 379 |
Call objBtnControl.SetRelationship ( "btnPendingIntegrateAndDeploy", "ApprovePendingIntegrateAndDeploy" )
|
375 |
Call objBtnControl.SetRelationship ( "btnPendingIntegrateAndDeploy", "ApprovePendingIntegrateAndDeploy" )
|
| 380 |
|
376 |
|
| - |
|
377 |
'---------------------------------------------------------------------------
|
| - |
|
378 |
' Unlock Package
|
| - |
|
379 |
' Note: Unlocking of a Package or Patch is intended for the administrators
|
| 381 |
|
380 |
|
| - |
|
381 |
Dim bucan_unlock
|
| - |
|
382 |
|
| - |
|
383 |
bucan_unlock = pkgInfoHash("is_released") AND objAccessControl.IsActive("EditCriticalInfoForLockedPackage")
|
| - |
|
384 |
|
| - |
|
385 |
Call objBtnControl.Visible ( "btnUnLockPackage", "N" )
|
| - |
|
386 |
Call objBtnControl.Visible ( "btnLockPackage", "N" )
|
| - |
|
387 |
Call objBtnControl.Active ( "btnLockPackage", "N" )
|
| - |
|
388 |
Call objBtnControl.Active ( "btnUnLockPackage", "N" )
|
| - |
|
389 |
|
| - |
|
390 |
If bucan_unlock Then
|
| - |
|
391 |
If (pkgInfoHash.Item ("dlocked") = "Y") Then
|
| - |
|
392 |
' Unlock patch or package.
|
| - |
|
393 |
Call objBtnControl.Visible ( "btnUnLockPackage", "Y" )
|
| - |
|
394 |
Call objBtnControl.Active ( "btnUnLockPackage", "Y" )
|
| - |
|
395 |
ElseIf (pkgInfoHash.Item ("dlocked") = "N") Then
|
| - |
|
396 |
' lock patch or package.
|
| - |
|
397 |
Call objBtnControl.Visible ( "btnLockPackage", "Y" )
|
| - |
|
398 |
Call objBtnControl.Active ( "btnLockPackage", "Y" )
|
| - |
|
399 |
End If
|
| - |
|
400 |
End if
|
| - |
|
401 |
'---------------------------------------------------------------------------
|
| 382 |
|
402 |
|
| 383 |
' -- Render Buttons
|
403 |
' -- Render Buttons
|
| 384 |
Call objBtnControl.Render ( aTabBtnsDef, objAccessControl )
|
404 |
Call objBtnControl.Render ( aTabBtnsDef, objAccessControl )
|
| 385 |
%>
|
405 |
%>
|