Subversion Repositories DevTools

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
119 ghuddy 1 
<%
2 
'=====================================================
133 ghuddy 3 
'            Package Action Buttons
119 ghuddy 4 
'=====================================================
5 
%>
6 
 
7 
<%
143 ghuddy 8 
Sub ActivateButtonAccordingToReleaseModeAndPermissions( NNbutton, NNpermission)
147 ghuddy 9 
   If objAccessControl.IsDataActive ("PROJECTS", DB_PROJ_ID, "EditProjects") Then
10 
      If ( ReleaseMode = enumDB_RELEASE_IN_RESTRICTIVE_MODE) OR ( ReleaseMode = enumDB_RELEASE_IN_CCB_MODE ) Then
11 
         If objAccessControl.IsActive(NNpermission) Then
12 
            Call objBtnControl.Active ( NNbutton, "Y" )
13 
         Else
14 
            Call objBtnControl.Active ( NNbutton, "N" )
15 
         End If
16 
      ElseIf ( ReleaseMode = enumDB_RELEASE_IN_OPEN_MODE ) Then
143 ghuddy 17 
         Call objBtnControl.Active ( NNbutton, "Y" )
18 
      Else
19 
         Call objBtnControl.Active ( NNbutton, "N" )
20 
      End If
21 
   Else
22 
      Call objBtnControl.Active ( NNbutton, "N" )
23 
   End If
24 
End Sub
25 
 
26 
 
27 
 
119 ghuddy 28 
'--Determine whether the release has an associated MASS_REF
29 
Dim rsAssoc, AssocMASSREF, AssocMASSREFValue, StatesUsed
30 
If Request("rtag_id") <> "" Then
133 ghuddy 31 
   Set rsAssoc = OraDatabase.DbCreateDynaset( "SELECT ASSOC_MASS_REF, PRODUCT_STATE_USED FROM RELEASE_TAGS WHERE RTAG_ID="&Request("rtag_id"), cint(0))
32 
   AssocMASSREFValue = rsAssoc("ASSOC_MASS_REF")
33 
   StatesUsed = rsAssoc("PRODUCT_STATE_USED")
34 
      If NOT IsNull(rsAssoc("ASSOC_MASS_REF")) Then
35 
         AssocMASSREF = True
36 
      Else
37 
         AssocMASSREF = False
38 
      End If
39 
   rsAssoc.Close()
40 
   Set rsAssoc = nothing
119 ghuddy 41 
End If
42 
 
43 
'-- Define Action buttons on this tab
44 
If IsNull(pkgInfoHash.Item("is_patch")) Then
133 ghuddy 45 
   If Request("rtag_id") <> "" Then
46 
      If (pkgInfoHash.Item("can_edit_in_project") = "1" OR  _
47 
         objAccessControl.IsVisible("AlterReleaseContentsInRestrictiveMode")) OR (pkgInfoHash.Item("v_ext") = ".mas" AND pkgInfoHash.Item("v_ext") = ".cr" OR NOT AssocMASSREF OR NOT IsNull(pkgInfoHash.Item("v_ext"))  ) _
119 ghuddy 48 
 
133 ghuddy 49 
      Then
50 
         If pkgInfoHash.Item("is_deployable") = "Y" AND pkgInfoHash.Item("dlocked") = "Y" AND StatesUsed = "Y" Then
51 
            If pkgInfoHash.Item("product_state") = 1 Then
119 ghuddy 52 
 
133 ghuddy 53 
            'Response.Write("Pressed")
54 
               ' For Products that have been approved for Pending Integration
131 ghuddy 55 
               aTabBtnsDef = Array("btnNewVersion", "btnVersionHistory", "btnPendingTest", "btnRejectProduct", "width=20", _
133 ghuddy 56 
                             "width=20", "btnMoveToView", "btnStickyNotes")
119 ghuddy 57 
 
133 ghuddy 58 
            ElseIf pkgInfoHash.Item("product_state") = 2 Then
59 
               ' For Products that have been approved for Pending Test
131 ghuddy 60 
               aTabBtnsDef = Array("btnNewVersion", "btnVersionHistory", "btnPendingIntegration", "btnPendingDeployment","btnRejectProduct", "width=20", _
133 ghuddy 61 
                             "width=20", "btnMoveToView", "btnStickyNotes")
119 ghuddy 62 
 
133 ghuddy 63 
            ElseIf pkgInfoHash.Item("product_state") = 3 or pkgInfoHash.Item("product_state") = 4 Then
64 
         '      'For Products that have been approved for Pending Deployment
131 ghuddy 65 
               aTabBtnsDef = Array("btnNewVersion", "btnVersionHistory", "btnRemovePackage", "width=20", "btnRejectPackage", "width=20", _
133 ghuddy 66 
                             "btnMoveToView", "btnReversionPackage", "width=20", "btnMoveToView", "btnStickyNotes")
119 ghuddy 67 
 
133 ghuddy 68 
            ElseIf pkgInfoHash.Item("product_state") = 5 Then
69 
         '      'For Products that have been approved for Pending Integration and Deployment
131 ghuddy 70 
               aTabBtnsDef = Array("btnNewVersion", "btnVersionHistory", "btnPendingDeployment", "width=20", _
133 ghuddy 71 
                             "width=20", "btnMoveToView", "btnStickyNotes")
119 ghuddy 72 
 
133 ghuddy 73 
            ElseIf IsNull(pkgInfoHash.Item("product_state")) Then
74 
               If objAccessControl.IsVisible("ApprovePendingIntegrateAndDeploy") Then
75 
                  'For Products that have have not yet been approved for Pending Integration
131 ghuddy 76 
                  aTabBtnsDef = Array("btnNewVersion", "btnVersionHistory", "btnPendingIntegration", "btnPendingIntegrateAndDeploy", "btnRejectProduct", "width=20", "btnRemovePackage", _
133 ghuddy 77 
                                "btnMoveToView", "btnStickyNotes", "btnDeprecation", "btnUnDeprecation")
78 
               Else
79 
                  'For Products that have have not yet been approved for Pending Integration
131 ghuddy 80 
                  aTabBtnsDef = Array("btnNewVersion", "btnVersionHistory", "btnPendingIntegration","btnRemovePackage", "width=20", "btnRejectProduct", "width=20", _
133 ghuddy 81 
                                "width=20", "btnMoveToView", "btnStickyNotes")
82 
               End If
83 
            Else
84 
               ' For Packages Not In Release(Bug Fix From Deployment Manager)
131 ghuddy 85 
               aTabBtnsDef = Array("btnNewVersion", "btnVersionHistory", "btnRemovePackage", "width=20", "btnMakePending", "btnApprovePackage", "btnMakeRelease", "btnRejectPackage", "width=20", _
133 ghuddy 86 
                             "btnMoveToView", "btnReversionPackage", "width=20", "btnMoveToView", "btnStickyNotes", "btnDeprecation", "btnUnDeprecation")
119 ghuddy 87 
 
133 ghuddy 88 
            End If
119 ghuddy 89 
 
133 ghuddy 90 
         ElseIf objAccessControl.IsActive("EditCriticalInfoForLockedPackage") Then
91 
            ' For Packages in Release
143 ghuddy 92 
            aTabBtnsDef = Array("btnNewVersion", "btnVersionHistory", "btnRemovePackage", "width=20", "btnMakePending", "btnApprovePackage", "btnApproveMerge", "btnMakeRelease", "btnRejectPackage", "btnRejectAutobuildPackage", "btnMakeUnrelease", "width=20", _
147 ghuddy 93 
                          "btnMoveToView", "btnReversionPackage", "width=20", "btnStickyNotes", "btnDeprecation", "btnUnDeprecation", "btnAddDaemonInstRipplePackage" )
133 ghuddy 94 
         Else
95 
            ' For Packages in Release
143 ghuddy 96 
            aTabBtnsDef = Array("btnNewVersion", "btnVersionHistory", "btnRemovePackage", "width=20", "btnMakePending", "btnApprovePackage", "btnApproveMerge", "btnMakeRelease", "btnRejectPackage", "btnRejectAutobuildPackage", "width=20", _
147 ghuddy 97 
                          "btnMoveToView", "btnReversionPackage", "width=20", "btnStickyNotes", "btnDeprecation", "btnUnDeprecation", "btnAddDaemonInstRipplePackage")
133 ghuddy 98 
         End If
99 
      Else
100 
         ' Non-Editable Packages in Release
101 
         If AssocMASSREF Then
131 ghuddy 102 
            aTabBtnsDef = Array( "btnNewVersion-MASSREF", "btnVersionHistory", "btnStickyNotes", "btnDeprecation", "btnUnDeprecation")
133 ghuddy 103 
         Else
131 ghuddy 104 
            aTabBtnsDef = Array( "btnVersionHistory", "btnStickyNotes", "btnDeprecation", "btnUnDeprecation")
133 ghuddy 105 
         End If
106 
      End If
119 ghuddy 107 
 
133 ghuddy 108 
   Else
109 
      ' For standalone Packages (Not view in project release)
131 ghuddy 110 
      aTabBtnsDef = Array("btnVersionHistory", "btnReversionPackage", "width=20", "btnStickyNotes")
133 ghuddy 111 
   End If
119 ghuddy 112 
 
113 
Else
133 ghuddy 114 
   ' For Patches
115 
   'aTabBtnsDef = Array("btnMakePending", "btnApprovePackage", "btnMakeRelease", "btnMakeUnrelease", "btnRejectPackage", "width=20", _
116 
   '                 "btnReversionPackage", "width=20", "btnObsoletePatch", "btnUnobsoletePatch", "width=20","btnStickyNotes")
117 
   aTabBtnsDef = Array("btnMakeRelease", "btnMakeUnrelease", "width=20", _
118 
                    "btnReversionPackage", "width=20", "btnObsoletePatch", "btnUnobsoletePatch", "width=20","btnStickyNotes")
119 ghuddy 119 
 
120 
 
121 
End If
122 
 
123 
' Load action buttons from database
124 
Call objBtnControl.LoadActionButtons ( aTabBtnsDef, OraDatabase )
125 
 
126 
' Set spacing to minimum between buttons
127 
objBtnControl.ButtonSpacer = 0
128 
objBtnControl.ImageHspace = 2
129 
 
130 
 
131 
'--- Set button conditions ---
132 
objBtnControl.IsReadonlyAction = Eval( ReleaseMode = enumDB_RELEASE_IN_CLOSED_MODE )
133 
 
134 
 
143 ghuddy 135 
' NOTE: At this point, all buttons are Active and Visible and must now be configured
136 
'       as appropriate by statements that follow.
119 ghuddy 137 
 
143 ghuddy 138 
 
119 ghuddy 139 
'--- Set default button settings ---
140 
Call objBtnControl.Visible ( "btnNewVersion", "N" )
141 
Call objBtnControl.Visible ( "btnNewVersion-MASSREF", "N")
142 
Call objBtnControl.Visible ( "btnMakePending", "N" )
133 ghuddy 143 
Call objBtnControl.Active  ( "btnMakePending", "N" )
119 ghuddy 144 
Call objBtnControl.Visible ( "btnApprovePackage", "N" )
145 
Call objBtnControl.Visible ( "btnMakeRelease", "N" )
146 
'Call objBtnControl.Active ( "btnMakeRelease", "N" )
133 ghuddy 147 
Call objBtnControl.Active  ( "btnRejectPackage", "N" )
119 ghuddy 148 
Call objBtnControl.Visible ( "btnRejectPackage", "N" )
143 ghuddy 149 
Call objBtnControl.Active  ( "btnRejectAutobuildPackage", "N" )
150 
Call objBtnControl.Visible ( "btnRejectAutobuildPackage", "N" )
133 ghuddy 151 
Call objBtnControl.Active  ( "btnMakeUnrelease", "N" )
152 
Call objBtnControl.Active  ( "btnReversionPackage", "N" )
119 ghuddy 153 
Call objBtnControl.Visible ( "btnObsoletePatch", "N" )
154 
Call objBtnControl.Visible ( "btnUnobsoletePatch", "N" )
155 
Call objBtnControl.Visible ( "btnDeprecation", "N" )
156 
Call objBtnControl.Visible ( "btnUnDeprecation", "N" )
133 ghuddy 157 
Call objBtnControl.Active  ( "btnApproveMerge", "N" )
119 ghuddy 158 
Call objBtnControl.Visible ( "btnApproveMerge", "N" )
147 ghuddy 159 
Call objBtnControl.Active  ( "btnAddDaemonInstRipplePackage", "N" )
160 
Call objBtnControl.Visible ( "btnAddDaemonInstRipplePackage", "N" )
119 ghuddy 161 
 
162 
 
163 
 
143 ghuddy 164 
 
119 ghuddy 165 
If objAccessControl.IsDataActive ("PROJECTS", DB_PROJ_ID, "EditProjects") Then
133 ghuddy 166 
   '-- Change button setting on conditions ---
167 
   If ( pkgInfoHash.Item ("build_type") = "A" ) Then
168 
      ' For automatic build
169 
      Call objBtnControl.Visible ( "btnMakePending", "Y" )
119 ghuddy 170 
 
133 ghuddy 171 
      Call objBtnControl.Visible ( "btnApprovePackage", "Y" )
172 
      Call objBtnControl.Active  ( "btnApprovePackage", "N" )
119 ghuddy 173 
 
133 ghuddy 174 
      Call objBtnControl.Visible ( "btnMakeUnrelease", "N" )
175 
      Call objBtnControl.Visible ( "btnRejectPackage", "Y" )
119 ghuddy 176 
 
133 ghuddy 177 
   Else
178 
      If ( ReleaseMode = enumDB_RELEASE_IN_CCB_MODE ) And Not objAccessControl.IsVisible("ApproveForManualBuild") Then
179 
         Call objBtnControl.Visible ( "btnMakeRelease", "N" )
180 
      Else
181 
         Call objBtnControl.Visible ( "btnMakeRelease", "Y" )
182 
      End If
119 ghuddy 183 
 
133 ghuddy 184 
      If (pkgInfoHash.Item("is_patch")) <> "" Then
185 
         If objAccessControl.IsVisible ("ReleasePatch") Then
186 
            Call objBtnControl.Visible ( "btnMakeRelease", "Y" )
187 
         Else
188 
            Call objBtnControl.Visible ( "btnMakeRelease", "N" )
189 
         End If
190 
      End If
119 ghuddy 191 
 
133 ghuddy 192 
      If ( ReleaseMode = enumDB_RELEASE_IN_RESTRICTIVE_MODE) OR ( ReleaseMode = enumDB_RELEASE_IN_CCB_MODE ) Then
119 ghuddy 193 
 
133 ghuddy 194 
         Call objBtnControl.Visible ( "btnMakePending", "Y" )
119 ghuddy 195 
 
133 ghuddy 196 
         If ( ( pkgInfoHash.Item ("dlocked") = "N" ) OR ( pkgInfoHash.Item ("dlocked") = "R" ) ) _
143 ghuddy 197 
            AND ( IsNull(pkgInfoHash.Item("is_patch")) ) Then
198 
            Call objBtnControl.Active ( "btnMakeRelease", "N" )
199 
            Call objBtnControl.Visible ( "btnMakeRelease", "N" )
200 
         End If
119 ghuddy 201 
 
133 ghuddy 202 
         Call objBtnControl.Visible ( "btnRejectPackage", "Y" )
119 ghuddy 203 
 
133 ghuddy 204 
         If (ReleaseMode = enumDB_RELEASE_IN_CCB_MODE) OR (NOT objAccessControl.IsVisible("AlterReleaseContentsInRestrictiveMode")) Then
205 
            Call objBtnControl.Visible ( "btnMakeUnrelease", "N" )
206 
            Call objBtnControl.Visible ( "btnRemovePackage", "N" )
207 
         End If
119 ghuddy 208 
 
133 ghuddy 209 
      Else
210 
         'Call objBtnControl.Active ( "btnMakeRelease", "Y" )
211 
      End If
119 ghuddy 212 
 
133 ghuddy 213 
   End If
119 ghuddy 214 
End If
215 
 
216 
 
217 
 
218 
'-- Change button setting on conditions ---
219 
If pkgInfoHash.Item ("dlocked") = "Y" Then
143 ghuddy 220 
   ' Package is Released and Locked
133 ghuddy 221 
   Call objBtnControl.Visible ( "btnNewVersion", "Y" )
119 ghuddy 222 
 
133 ghuddy 223 
   If AssocMASSREF Then
224 
      Call objBtnControl.Visible ( "btnNewVersion-MASSREF", "Y" )
225 
   End If
119 ghuddy 226 
 
133 ghuddy 227 
   If Request("rtag_id") <> "" AND objAccessControl.IsVisible("DeprecatePackage") Then
228 
      Dim rsDeprecate
229 
      If NOT IsNull(pkgInfoHash.Item ("v_ext")) Then
230 
         Set rsDeprecate = OraDatabase.DbCreateDynaset("SELECT * FROM DEPRECATED_PACKAGES WHERE RTAG_ID ="& Request("rtag_id") &" AND V_EXT ='"& pkgInfoHash.Item ("v_ext") &"' AND PKG_ID = "& pkgInfoHash.Item ("pkg_id") &"", cint(0))
231 
      Else
232 
         Set rsDeprecate = OraDatabase.DbCreateDynaset("SELECT * FROM DEPRECATED_PACKAGES WHERE RTAG_ID ="& Request("rtag_id") &" AND V_EXT IS NULL AND PKG_ID = "& pkgInfoHash.Item ("pkg_id") &"", cint(0))
233 
      End If
119 ghuddy 234 
 
133 ghuddy 235 
      If (rsDeprecate.RecordCount) = 0 Then
236 
         Call objBtnControl.Visible ( "btnDeprecation", "Y" )
237 
      Else
238 
         Call objBtnControl.Visible ( "btnUnDeprecation", "Y" )
239 
      End If
240 
      rsDeprecate.Close()
241 
      Set rsDeprecate = nothing
242 
   End If
243 
   Call objBtnControl.Active ( "btnApprovePackage", "N" )
244 
   Call objBtnControl.Active ( "btnMakeRelease", "N" )
119 ghuddy 245 
 
133 ghuddy 246 
   If pkgInfoHash.Item("can_unofficial") = "true" OR objAccessControl.IsActive("EditCriticalInfoForLockedPackage") Then
247 
      Call objBtnControl.Visible ( "btnMakeUnrelease", "Y" )
248 
      Call objBtnControl.Active ( "btnMakeUnrelease", "Y" )
249 
   End If
119 ghuddy 250 
 
133 ghuddy 251 
   ' DEVI-45275 - We can now merge existing (locked) versions to planned (pending) whilst assigning an operation to them
252 
   ' to either (A)dd or (S)ubtract the version from the release. Such items must be "rejectable" so we need to enable the
253 
   ' reject package button.
254 
   If pkgInfoHash.Item("planned_operation") <> " " Then
255 
      Call objBtnControl.Visible ( "btnRejectPackage", "Y" )
256 
      Call objBtnControl.Active ( "btnRejectPackage", "Y" )
143 ghuddy 257 
   Else
258 
      Call objBtnControl.Visible ( "btnRejectPackage", "N" )
133 ghuddy 259 
   End If
119 ghuddy 260 
 
143 ghuddy 261 
   Call objBtnControl.Visible ( "btnMakePending", "N" )
262 
   Call objBtnControl.Visible ( "btnMakeRelease", "N" )
263 
   Call objBtnControl.Visible ( "btnApprovePackage", "N" )
147 ghuddy 264 
   Call objBtnControl.Visible ( "btnAddDaemonInstRipplePackage", "Y" )
265 
   Call ActivateButtonAccordingToReleaseModeAndPermissions("btnAddDaemonInstRipplePackage", "ApproveForAutoBuild")
143 ghuddy 266 
 
267 
 
119 ghuddy 268 
ElseIf pkgInfoHash.Item ("dlocked") = "P" Then
143 ghuddy 269 
   ' In Pending
270 
   Call objBtnControl.Visible ( "btnMakePending", "N" )
119 ghuddy 271 
 
143 ghuddy 272 
   Call ActivateButtonAccordingToReleaseModeAndPermissions("btnApprovePackage", "ApproveForAutoBuild")
119 ghuddy 273 
 
143 ghuddy 274 
   Call ActivateButtonAccordingToReleaseModeAndPermissions("btnRejectPackage", "RejectPackageFromPending")
275 
 
119 ghuddy 276 
ElseIf pkgInfoHash.Item ("dlocked") = "A" Then
143 ghuddy 277 
   ' In Pending, Approved For Autobuild
278 
   Call objBtnControl.Visible ( "btnMakePending", "N" )
133 ghuddy 279 
   Call objBtnControl.Active ( "btnMakePending", "N" )
143 ghuddy 280 
 
281 
   Call objBtnControl.Visible ( "btnApprovePackage", "N" )
133 ghuddy 282 
   Call objBtnControl.Active ( "btnApprovePackage", "N" )
143 ghuddy 283 
 
133 ghuddy 284 
   Call objBtnControl.Visible ( "btnRejectPackage", "N" )
143 ghuddy 285 
   Call objBtnControl.Active ( "btnRejectPackage", "N" )
119 ghuddy 286 
 
133 ghuddy 287 
   Call objBtnControl.Visible ( "btnMakeUnrelease", "Y" )
288 
   If pkgInfoHash.Item("can_unofficial") = "true" OR objAccessControl.IsActive("EditCriticalInfoForLockedPackage") Then
289 
      Call objBtnControl.Active ( "btnMakeUnrelease", "Y" )
143 ghuddy 290 
   Else
291 
      Call objBtnControl.Active ( "btnMakeUnrelease", "N" )
133 ghuddy 292 
   End If
119 ghuddy 293 
 
143 ghuddy 294 
   '--- Allow failed auto-builds to be rejected back to WIP, conditions allowing.
295 
   If pkgInfoHash.Item("build_type") = "A" AND Request("rtag_id") <> "" Then
296 
      If isInDoNotRippleTable( Request("rtag_id"), pkgInfoHash.Item("pv_id") ) = TRUE Then
297 
 
298 
         Call objBtnControl.Visible ( "btnRejectAutobuildPackage", "Y" )
299 
         Call ActivateButtonAccordingToReleaseModeAndPermissions("btnRejectAutobuildPackage", "RejectPackageFromPending")
300 
      End If
301 
   End If
302 
 
119 ghuddy 303 
Else
143 ghuddy 304 
   ' Unlocked or rejected packages (dlocked = N or R)
133 ghuddy 305 
   Call objBtnControl.Active ( "btnReversionPackage", "Y" )
306 
   Call objBtnControl.Active ( "btnMakePending", "Y" )
119 ghuddy 307 
 
143 ghuddy 308 
   Call objBtnControl.Visible ( "btnApprovePackage", "N" )
309 
   Call objBtnControl.Visible ( "btnRejectPackage", "N" )
310 
 
119 ghuddy 311 
End If
312 
 
313 
 
314 
If IsNull(pkgInfoHash.Item ("is_obsolete")) Then
133 ghuddy 315 
   Call objBtnControl.Visible ( "btnObsoletePatch", "Y" )
119 ghuddy 316 
Else
133 ghuddy 317 
   Call objBtnControl.Visible ( "btnUnobsoletePatch", "Y" )
119 ghuddy 318 
End If
319 
 
320 
If objAccessControl.IsVisible("DestroyPackage") Then
133 ghuddy 321 
   Call objBtnControl.Visible ( "btnRecycleBin", "Y" )
119 ghuddy 322 
End If
323 
 
324 
'--- Access Control Action Relationships ---
325 
 
143 ghuddy 326 
 
327 
 
328 
 
329 
 
119 ghuddy 330 
' DEVI-45275 - Merges now occur via the Pending tab. Merge candidates are marked with a (planned) operation
331 
' of "A" for add, or "S" for subtract. If the package version is one of these (within the context of the
332 
' release ofcoarse), manipulate the MakeRelease button (of which there are now 3 types) accordingly.
333 
If ( pkgInfoHash.Item ("planned_operation") = "A" OR pkgInfoHash.Item ("planned_operation") = "S") Then
334 
 
133 ghuddy 335 
   ' always enable the reject button for pending merge operations
336 
   Call objBtnControl.Visible ( "btnRejectPackage", "Y" )
119 ghuddy 337 
 
133 ghuddy 338 
   ' disable the other two types of MakeRelease button
339 
   Call objBtnControl.Visible ( "btnApprovePackage", "N" )
340 
   Call objBtnControl.Visible ( "btnMakeRelease", "N" )
119 ghuddy 341 
 
133 ghuddy 342 
   ' make the approve merge button variant visible
343 
   Call objBtnControl.Visible ( "btnApproveMerge", "Y" )
119 ghuddy 344 
 
133 ghuddy 345 
   ' These conditions match those used in Diff.asp that control whether the Merge button is visible or not.
346 
   ' Use them to enable or disable the approve merge button
347 
   If ( ReleaseMode <> enumDB_RELEASE_IN_CLOSED_MODE AND ReleaseMode <> enumDB_RELEASE_IN_CCB_MODE AND objAccessControl.IsActive("MergeRelease") ) _
348 
      OR ( ReleaseMode = enumDB_RELEASE_IN_CCB_MODE AND objAccessControl.IsActive("MergeReleaseForCCB") ) Then
119 ghuddy 349 
 
133 ghuddy 350 
      Call objBtnControl.Active ( "btnApproveMerge", "Y" )
143 ghuddy 351 
      Call objBtnControl.Active ( "btnRejectPackage", "Y" )
133 ghuddy 352 
   Else
353 
      Call objBtnControl.Active ( "btnApproveMerge", "N" )
143 ghuddy 354 
      Call objBtnControl.Active ( "btnRejectPackage", "N" )
133 ghuddy 355 
   End If
119 ghuddy 356 
End If
357 
 
358 
 
359 
'--- Other Access Control Action Relationships ---
360 
If ( ReleaseMode = enumDB_RELEASE_IN_CCB_MODE )  Then Call objBtnControl.SetRelationship ( "btnMakeRelease", "ApprovePackageReleaseForRestrictiveMode" )
361 
 
362 
 
363 
Call objBtnControl.SetRelationship ( "btnPendingIntegration", "ApproveForPendingIntegration" )
364 
Call objBtnControl.SetRelationship ( "btnPendingTest", "ApproveForPendingTest" )
365 
Call objBtnControl.SetRelationship ( "btnPendingDeployment", "ApproveForPendingDeployment" )
366 
Call objBtnControl.SetRelationship ( "btnRejectProduct", "RejectProduct" )
367 
Call objBtnControl.SetRelationship ( "btnPendingIntegrateAndDeploy", "ApprovePendingIntegrateAndDeploy" )
368 
 
369 
 
370 
 
371 
' -- Render Buttons
372 
Call objBtnControl.Render  ( aTabBtnsDef, objAccessControl )
373 
%>