| Line 178... |
Line 178... |
| 178 |
Call objBtnControl.Active ( "btnApprovePackage", "N" )
|
178 |
Call objBtnControl.Active ( "btnApprovePackage", "N" )
|
| 179 |
|
179 |
|
| 180 |
Call objBtnControl.Visible ( "btnMakeUnrelease", "N" )
|
180 |
Call objBtnControl.Visible ( "btnMakeUnrelease", "N" )
|
| 181 |
Call objBtnControl.Visible ( "btnRejectPackage", "Y" )
|
181 |
Call objBtnControl.Visible ( "btnRejectPackage", "Y" )
|
| 182 |
Else
|
182 |
Else
|
| - |
|
183 |
' For Manual Build
|
| 183 |
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
|
| 184 |
Call objBtnControl.Visible ( "btnMakeRelease", "N" )
|
185 |
Call objBtnControl.Visible ( "btnMakeRelease", "N" )
|
| 185 |
Else
|
186 |
Else
|
| 186 |
Call objBtnControl.Visible ( "btnMakeRelease", "Y" )
|
187 |
Call objBtnControl.Visible ( "btnMakeRelease", "Y" )
|
| 187 |
End If
|
188 |
End If
|
| Line 376... |
Line 377... |
| 376 |
|
377 |
|
| 377 |
'---------------------------------------------------------------------------
|
378 |
'---------------------------------------------------------------------------
|
| 378 |
' Unlock Package
|
379 |
' Unlock Package
|
| 379 |
' Note: Unlocking of a Package or Patch is intended for the administrators
|
380 |
' Note: Unlocking of a Package or Patch is intended for the administrators
|
| 380 |
|
381 |
|
| 381 |
Dim bucan_unlock
|
382 |
Dim bucan_unlock
|
| - |
|
383 |
bucan_unlock = pkgInfoHash("is_released") AND objAccessControl.IsActive("EditCriticalInfoForLockedPackage")
|
| 382 |
|
384 |
|
| 383 |
bucan_unlock = pkgInfoHash("is_released") AND objAccessControl.IsActive("EditCriticalInfoForLockedPackage")
|
- |
|
| 384 |
|
- |
|
| 385 |
Call objBtnControl.Visible ( "btnUnLockPackage", "N" )
|
385 |
Call objBtnControl.Visible ( "btnUnLockPackage", "N" )
|
| 386 |
Call objBtnControl.Visible ( "btnLockPackage", "N" )
|
386 |
Call objBtnControl.Visible ( "btnLockPackage", "N" )
|
| 387 |
Call objBtnControl.Active ( "btnLockPackage", "N" )
|
387 |
Call objBtnControl.Active ( "btnLockPackage", "N" )
|
| 388 |
Call objBtnControl.Active ( "btnUnLockPackage", "N" )
|
388 |
Call objBtnControl.Active ( "btnUnLockPackage", "N" )
|
| 389 |
|
389 |
|
| 390 |
If bucan_unlock Then
|
390 |
If bucan_unlock Then
|
| 391 |
If (pkgInfoHash.Item ("dlocked") = "Y") Then
|
391 |
If (pkgInfoHash.Item ("dlocked") = "Y") Then
|
| 392 |
' Unlock patch or package.
|
392 |
' Unlock patch or package.
|
| 393 |
Call objBtnControl.Visible ( "btnUnLockPackage", "Y" )
|
393 |
Call objBtnControl.Visible ( "btnUnLockPackage", "Y" )
|
| 394 |
Call objBtnControl.Active ( "btnUnLockPackage", "Y" )
|
394 |
Call objBtnControl.Active ( "btnUnLockPackage", "Y" )
|
| 395 |
ElseIf (pkgInfoHash.Item ("dlocked") = "N") Then
|
395 |
ElseIf (pkgInfoHash.Item ("dlocked") = "N") Then
|
| 396 |
' lock patch or package.
|
396 |
' lock patch or package.
|
| 397 |
Call objBtnControl.Visible ( "btnLockPackage", "Y" )
|
397 |
Call objBtnControl.Visible ( "btnLockPackage", "Y" )
|
| 398 |
Call objBtnControl.Active ( "btnLockPackage", "Y" )
|
398 |
Call objBtnControl.Active ( "btnLockPackage", "Y" )
|
| 399 |
End If
|
399 |
End If
|
| 400 |
End if
|
400 |
End if
|
| - |
|
401 |
|
| 401 |
'---------------------------------------------------------------------------
|
402 |
'---------------------------------------------------------------------------
|
| 402 |
' -- Render Buttons
|
403 |
' -- Render Buttons
|
| 403 |
Call objBtnControl.Render ( aTabBtnsDef, objAccessControl )
|
404 |
Call objBtnControl.Render ( aTabBtnsDef, objAccessControl )
|
| 404 |
End Sub
|
405 |
End Sub
|
| 405 |
|
406 |
|