| Line 404... |
Line 404... |
| 404 |
Call objBtnControl.Active ( "btnRejectAutobuildPackage", "N")
|
404 |
Call objBtnControl.Active ( "btnRejectAutobuildPackage", "N")
|
| 405 |
Call objBtnControl.Active ( "btnMakeUnrelease", "N")
|
405 |
Call objBtnControl.Active ( "btnMakeUnrelease", "N")
|
| 406 |
Call objBtnControl.Active ( "btnMoveToView", "N")
|
406 |
Call objBtnControl.Active ( "btnMoveToView", "N")
|
| 407 |
Call objBtnControl.Active ( "btnMoveWIPToRelease", "N")
|
407 |
Call objBtnControl.Active ( "btnMoveWIPToRelease", "N")
|
| 408 |
Call objBtnControl.Active ( "btnReversionPackage", "N")
|
408 |
Call objBtnControl.Active ( "btnReversionPackage", "N")
|
| 409 |
Call objBtnControl.Active ( "btnLockPackage", "N")
|
- |
|
| 410 |
Call objBtnControl.Active ( "btnUnLockPackage", "N")
|
- |
|
| 411 |
Call objBtnControl.Active ( "btnDeprecation", "N")
|
409 |
Call objBtnControl.Active ( "btnDeprecation", "N")
|
| 412 |
Call objBtnControl.Active ( "btnUnDeprecation", "N")
|
410 |
Call objBtnControl.Active ( "btnUnDeprecation", "N")
|
| 413 |
Call objBtnControl.Active ( "btnAddDaemonInstRipplePackage", "N")
|
411 |
Call objBtnControl.Active ( "btnAddDaemonInstRipplePackage", "N")
|
| 414 |
End If
|
412 |
End If
|
| 415 |
|
413 |
|
| Line 424... |
Line 422... |
| 424 |
|
422 |
|
| 425 |
'---------------------------------------------------------------------------
|
423 |
'---------------------------------------------------------------------------
|
| 426 |
' Unlock Package
|
424 |
' Unlock Package
|
| 427 |
' Note: Unlocking of a Package or Patch is intended for the administrators
|
425 |
' Note: Unlocking of a Package or Patch is intended for the administrators
|
| 428 |
|
426 |
|
| 429 |
Dim bucan_unlock
|
- |
|
| 430 |
bucan_unlock = pkgInfoHash("is_released") AND canActionControlInProject("EditCriticalInfoForLockedPackage")
|
- |
|
| 431 |
|
- |
|
| 432 |
Call objBtnControl.Visible ( "btnUnLockPackage", "N" )
|
427 |
Call objBtnControl.Visible ( "btnUnLockPackage", "N" )
|
| 433 |
Call objBtnControl.Visible ( "btnLockPackage", "N" )
|
428 |
Call objBtnControl.Visible ( "btnLockPackage", "N" )
|
| 434 |
Call objBtnControl.Active ( "btnLockPackage", "N" )
|
429 |
Call objBtnControl.Active ( "btnLockPackage", "N" )
|
| 435 |
Call objBtnControl.Active ( "btnUnLockPackage", "N" )
|
430 |
Call objBtnControl.Active ( "btnUnLockPackage", "N" )
|
| - |
|
431 |
|
| - |
|
432 |
If (pkgInfoHash.Item("can_edit_in_project") = "1") Then
|
| 436 |
|
433 |
Dim bucan_unlock
|
| - |
|
434 |
bucan_unlock = pkgInfoHash("is_released") AND canActionControlInProject("EditCriticalInfoForLockedPackage")
|
| - |
|
435 |
|
| 437 |
If bucan_unlock Then
|
436 |
If bucan_unlock Then
|
| 438 |
If (pkgInfoHash.Item ("dlocked") = "Y") Then
|
437 |
If (pkgInfoHash.Item ("dlocked") = "Y") Then
|
| 439 |
' Unlock patch or package.
|
438 |
' Unlock patch or package.
|
| - |
|
439 |
Call objBtnControl.Visible ( "btnUnLockPackage", "Y" )
|
| - |
|
440 |
Call objBtnControl.Active ( "btnUnLockPackage", "Y" )
|
| - |
|
441 |
ElseIf (pkgInfoHash.Item ("dlocked") = "N") Then
|
| - |
|
442 |
' lock patch or package.
|
| - |
|
443 |
Call objBtnControl.Visible ( "btnLockPackage", "Y" )
|
| - |
|
444 |
Call objBtnControl.Active ( "btnLockPackage", "Y" )
|
| - |
|
445 |
End If
|
| - |
|
446 |
End if
|
| - |
|
447 |
Else
|
| 440 |
Call objBtnControl.Visible ( "btnUnLockPackage", "Y" )
|
448 |
Call objBtnControl.Visible ( "btnUnLockPackage", "Y" )
|
| 441 |
Call objBtnControl.Active ( "btnUnLockPackage", "Y" )
|
- |
|
| 442 |
ElseIf (pkgInfoHash.Item ("dlocked") = "N") Then
|
- |
|
| 443 |
' lock patch or package.
|
- |
|
| 444 |
Call objBtnControl.Visible ( "btnLockPackage", "Y" )
|
- |
|
| 445 |
Call objBtnControl.Active ( "btnLockPackage", "Y" )
|
- |
|
| 446 |
End If
|
- |
|
| 447 |
End if
|
449 |
End if
|
| 448 |
|
450 |
|
| 449 |
'---------------------------------------------------------------------------
|
451 |
'---------------------------------------------------------------------------
|
| 450 |
' -- Render Buttons
|
452 |
' -- Render Buttons
|
| 451 |
Call objBtnControl.Render ( aTabBtnsDef, objAccessControl )
|
453 |
Call objBtnControl.Render ( aTabBtnsDef, objAccessControl )
|