Subversion Repositories DevTools

Rev

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

Rev 4670 Rev 4671
Line 200... Line 200...
200
 
200
 
201
         Call objBtnControl.Visible ( "btnMakePending", "Y" )
201
         Call objBtnControl.Visible ( "btnMakePending", "Y" )
202
 
202
 
203
         If ( ( pkgInfoHash.Item ("dlocked") = "N" ) OR ( pkgInfoHash.Item ("dlocked") = "R" ) ) _
203
         If ( ( pkgInfoHash.Item ("dlocked") = "N" ) OR ( pkgInfoHash.Item ("dlocked") = "R" ) ) _
204
            AND ( IsNull(pkgInfoHash.Item("is_patch")) ) Then
204
            AND ( IsNull(pkgInfoHash.Item("is_patch")) ) Then
205
            Call objBtnControl.Active ( "btnMakeRelease", "N" )
205
            Call objBtnControl.Active  ( "btnMakeRelease", "N" )
206
            Call objBtnControl.Visible ( "btnMakeRelease", "N" )
206
            Call objBtnControl.Visible ( "btnMakeRelease", "N" )
207
         End If
207
         End If
208
 
208
 
209
         Call objBtnControl.Visible ( "btnRejectPackage", "Y" )
209
         Call objBtnControl.Visible ( "btnRejectPackage", "Y" )
210
 
210
 
Line 380... Line 380...
380
    Call objBtnControl.Active ( "btnMoveToView", "N" )
380
    Call objBtnControl.Active ( "btnMoveToView", "N" )
381
    Call objBtnControl.Active ( "btnReversionPackage", "N" )
381
    Call objBtnControl.Active ( "btnReversionPackage", "N" )
382
    Call objBtnControl.Active ( "btnMoveWIPToRelease", "N" )
382
    Call objBtnControl.Active ( "btnMoveWIPToRelease", "N" )
383
    Call objBtnControl.Active ( "btnAddDaemonInstTestBuildPackage", "N" )
383
    Call objBtnControl.Active ( "btnAddDaemonInstTestBuildPackage", "N" )
384
    Call objBtnControl.Active ( "btnMakeUnrelease", "N" )
384
    Call objBtnControl.Active ( "btnMakeUnrelease", "N" )
-
 
385
    Call objBtnControl.Active ( "btnMakePending", "N" )
-
 
386
    Call objBtnControl.Active ( "btnNewVersion", "N" )
385
End If
387
End If
386
 
388
 
387
 
389
 
388
'--- Other Access Control Action Relationships ---
390
'--- Other Access Control Action Relationships ---
389
If ( ReleaseMode = enumDB_RELEASE_IN_CCB_MODE )  Then Call objBtnControl.SetRelationship ( "btnMakeRelease", "ApprovePackageReleaseForRestrictiveMode" )
391
If ( ReleaseMode = enumDB_RELEASE_IN_CCB_MODE )  Then Call objBtnControl.SetRelationship ( "btnMakeRelease", "ApprovePackageReleaseForRestrictiveMode" )