Subversion Repositories DevTools

Rev

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

Rev 5061 Rev 5080
Line 387... Line 387...
387
    Call objBtnControl.Active ( "btnMakeUnrelease", "N" )
387
    Call objBtnControl.Active ( "btnMakeUnrelease", "N" )
388
    Call objBtnControl.Active ( "btnMakePending", "N" )
388
    Call objBtnControl.Active ( "btnMakePending", "N" )
389
    Call objBtnControl.Active ( "btnNewVersion", "N" )
389
    Call objBtnControl.Active ( "btnNewVersion", "N" )
390
End If
390
End If
391
 
391
 
-
 
392
'-- Disable if the Package is imported as a part of an SDK
-
 
393
'   Or as part of a linked Release
-
 
394
If (pkgInfoHash.Item("can_edit_in_project") <> "1") Then
-
 
395
    Call objBtnControl.Active ( "btnNewVersion", "N" )
-
 
396
    Call objBtnControl.Active ( "btnDestroyWip" , "N")
-
 
397
    Call objBtnControl.Active ( "btnRemovePackage",  "N")
-
 
398
    Call objBtnControl.Active ( "btnAddDaemonInstTestBuildPackage",  "N")
-
 
399
    Call objBtnControl.Active ( "btnMakePending",  "N")
-
 
400
    Call objBtnControl.Active ( "btnApprovePackage",  "N")
-
 
401
    Call objBtnControl.Active ( "btnApproveMerge",  "N")
-
 
402
    Call objBtnControl.Active ( "btnMakeRelease",  "N")
-
 
403
    Call objBtnControl.Active ( "btnRejectPackage",  "N")
-
 
404
    Call objBtnControl.Active ( "btnRejectAutobuildPackage",  "N")
-
 
405
    Call objBtnControl.Active ( "btnMakeUnrelease", "N")
-
 
406
    Call objBtnControl.Active ( "btnMoveToView",  "N")
-
 
407
    Call objBtnControl.Active ( "btnMoveWIPToRelease",  "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")
-
 
412
    Call objBtnControl.Active ( "btnUnDeprecation",  "N")
-
 
413
    Call objBtnControl.Active ( "btnAddDaemonInstRipplePackage", "N")
-
 
414
End If
392
 
415
 
393
'--- Other Access Control Action Relationships ---
416
'--- Other Access Control Action Relationships ---
394
If ( ReleaseMode = enumDB_RELEASE_IN_CCB_MODE )  Then Call objBtnControl.SetRelationship ( "btnMakeRelease", "ApprovePackageReleaseForRestrictiveMode" )
417
If ( ReleaseMode = enumDB_RELEASE_IN_CCB_MODE )  Then Call objBtnControl.SetRelationship ( "btnMakeRelease", "ApprovePackageReleaseForRestrictiveMode" )
395
 
418
 
396
Call objBtnControl.SetRelationship ( "btnPendingIntegration", "ApproveForPendingIntegration" )
419
Call objBtnControl.SetRelationship ( "btnPendingIntegration", "ApproveForPendingIntegration" )