| Line 21... |
Line 21... |
| 21 |
Else
|
21 |
Else
|
| 22 |
Call objBtnControl.Active ( NNbutton, "N" )
|
22 |
Call objBtnControl.Active ( NNbutton, "N" )
|
| 23 |
End If
|
23 |
End If
|
| 24 |
End Sub
|
24 |
End Sub
|
| 25 |
|
25 |
|
| 26 |
|
- |
|
| 27 |
Sub RenderActionButtons
|
26 |
Sub RenderActionButtons
|
| 28 |
'--Determine whether the release has an associated MASS_REF
|
27 |
'--Determine whether the release has an associated MASS_REF
|
| 29 |
Dim rsAssoc, AssocMASSREF, AssocMASSREFValue, StatesUsed
|
28 |
Dim rsAssoc, AssocMASSREF, AssocMASSREFValue, StatesUsed
|
| 30 |
If Request("rtag_id") <> "" Then
|
29 |
If Request("rtag_id") <> "" Then
|
| 31 |
Set rsAssoc = OraDatabase.DbCreateDynaset( "SELECT ASSOC_MASS_REF, PRODUCT_STATE_USED FROM RELEASE_TAGS WHERE RTAG_ID="&Request("rtag_id"), cint(0))
|
30 |
Set rsAssoc = OraDatabase.DbCreateDynaset( "SELECT ASSOC_MASS_REF, PRODUCT_STATE_USED FROM RELEASE_TAGS WHERE RTAG_ID="&Request("rtag_id"), cint(0))
|
| Line 130... |
Line 129... |
| 130 |
objBtnControl.ImageHspace = 2
|
129 |
objBtnControl.ImageHspace = 2
|
| 131 |
|
130 |
|
| 132 |
|
131 |
|
| 133 |
'--- Set button conditions ---
|
132 |
'--- Set button conditions ---
|
| 134 |
objBtnControl.IsReadonlyAction = Eval( ReleaseMode = enumDB_RELEASE_IN_CLOSED_MODE OR ReleaseMode = enumDB_RELEASE_IN_ARCHIVE_MODE )
|
133 |
objBtnControl.IsReadonlyAction = Eval( ReleaseMode = enumDB_RELEASE_IN_CLOSED_MODE OR ReleaseMode = enumDB_RELEASE_IN_ARCHIVE_MODE )
|
| - |
|
134 |
objBtnControl.setClosed = Eval( ReleaseMode = enumDB_RELEASE_IN_CLOSED_MODE OR ReleaseMode = enumDB_RELEASE_IN_ARCHIVE_MODE )
|
| 135 |
|
135 |
|
| 136 |
|
136 |
|
| 137 |
' NOTE: At this point, all buttons are Active and Visible and must now be configured
|
137 |
' NOTE: At this point, all buttons are Active and Visible and must now be configured
|
| 138 |
' as appropriate by statements that follow.
|
138 |
' as appropriate by statements that follow.
|
| 139 |
|
139 |
|
| Line 363... |
Line 363... |
| 363 |
Call objBtnControl.Active ( "btnApproveMerge", "N" )
|
363 |
Call objBtnControl.Active ( "btnApproveMerge", "N" )
|
| 364 |
Call objBtnControl.Active ( "btnRejectPackage", "N" )
|
364 |
Call objBtnControl.Active ( "btnRejectPackage", "N" )
|
| 365 |
End If
|
365 |
End If
|
| 366 |
End If
|
366 |
End If
|
| 367 |
|
367 |
|
| 368 |
|
- |
|
| 369 |
'--- Other Access Control Action Relationships ---
|
368 |
'--- Other Access Control Action Relationships ---
|
| 370 |
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" )
|
| 371 |
|
370 |
|
| 372 |
Call objBtnControl.SetRelationship ( "btnPendingIntegration", "ApproveForPendingIntegration" )
|
371 |
Call objBtnControl.SetRelationship ( "btnPendingIntegration", "ApproveForPendingIntegration" )
|
| 373 |
Call objBtnControl.SetRelationship ( "btnPendingTest", "ApproveForPendingTest" )
|
372 |
Call objBtnControl.SetRelationship ( "btnPendingTest", "ApproveForPendingTest" )
|