Subversion Repositories DevTools

Rev

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

Rev 4671 Rev 5061
Line 4... Line 4...
4 
'=====================================================
 4 
'=====================================================
5 
%>
 5 
%>
6 
 
 6 
 
7 
<%
 7 
<%
8 
Sub ActivateButtonAccordingToReleaseModeAndPermissions( NNbutton, NNpermission)
 8 
Sub ActivateButtonAccordingToReleaseModeAndPermissions( NNbutton, NNpermission)
9 
   If objAccessControl.IsDataActive ("PROJECTS", DB_PROJ_ID, "EditProjects") Then
 9 
   If canActionInProject() Then
10 
      If ( ReleaseMode = enumDB_RELEASE_IN_RESTRICTIVE_MODE) OR ( ReleaseMode = enumDB_RELEASE_IN_CCB_MODE ) Then
 10 
      If ( ReleaseMode = enumDB_RELEASE_IN_RESTRICTIVE_MODE) OR ( ReleaseMode = enumDB_RELEASE_IN_CCB_MODE ) Then
11 
         If objAccessControl.IsActive(NNpermission) Then
 11 
         If canActionControlInProject(NNpermission) Then
12 
            Call objBtnControl.Active ( NNbutton, "Y" )
 12 
            Call objBtnControl.Active ( NNbutton, "Y" )
13 
         Else
 13 
         Else
14 
            Call objBtnControl.Active ( NNbutton, "N" )
 14 
            Call objBtnControl.Active ( NNbutton, "N" )
15 
         End If
 15 
         End If
16 
      ElseIf ( ReleaseMode = enumDB_RELEASE_IN_OPEN_MODE ) Then
 16 
      ElseIf ( ReleaseMode = enumDB_RELEASE_IN_OPEN_MODE ) Then
Line 41... Line 41...
41 
 
 41 
 
42 
'-- Define Action buttons on this tab
 42 
'-- Define Action buttons on this tab
43 
If IsNull(pkgInfoHash.Item("is_patch")) Then
 43 
If IsNull(pkgInfoHash.Item("is_patch")) Then
44 
   If Request("rtag_id") <> "" Then
 44 
   If Request("rtag_id") <> "" Then
45 
      If (pkgInfoHash.Item("can_edit_in_project") = "1" OR  _
 45 
      If (pkgInfoHash.Item("can_edit_in_project") = "1" OR  _
46 
         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"))  ) _
 46 
         canShowControlInProject("AlterReleaseContentsInRestrictiveMode")) OR (pkgInfoHash.Item("v_ext") = ".mas" AND pkgInfoHash.Item("v_ext") = ".cr" OR NOT AssocMASSREF OR NOT IsNull(pkgInfoHash.Item("v_ext"))  ) _
47 
 
 47 
 
48 
      Then
 48 
      Then
49 
         If pkgInfoHash.Item("is_deployable") = "Y" AND pkgInfoHash.Item("dlocked") = "Y" AND StatesUsed = "Y" Then
 49 
         If pkgInfoHash.Item("is_deployable") = "Y" AND pkgInfoHash.Item("dlocked") = "Y" AND StatesUsed = "Y" Then
50 
            If pkgInfoHash.Item("product_state") = 1 Then
 50 
            If pkgInfoHash.Item("product_state") = 1 Then
51 
 
 51 
 
Line 68... Line 68...
68 
         '      'For Products that have been approved for Pending Integration and Deployment
 68 
         '      'For Products that have been approved for Pending Integration and Deployment
69 
               aTabBtnsDef = Array("btnNewVersion", "btnVersionHistory", "btnPendingDeployment", "width=20", _
 69 
               aTabBtnsDef = Array("btnNewVersion", "btnVersionHistory", "btnPendingDeployment", "width=20", _
70 
                             "width=20", "btnMoveToView", "btnStickyNotes")
 70 
                             "width=20", "btnMoveToView", "btnStickyNotes")
71 
 
 71 
 
72 
            ElseIf IsNull(pkgInfoHash.Item("product_state")) Then
 72 
            ElseIf IsNull(pkgInfoHash.Item("product_state")) Then
73 
               If objAccessControl.IsVisible("ApprovePendingIntegrateAndDeploy") Then
 73 
               If canShowControlInProject("ApprovePendingIntegrateAndDeploy") Then
74 
                  'For Products that have have not yet been approved for Pending Integration
 74 
                  'For Products that have have not yet been approved for Pending Integration
75 
                  aTabBtnsDef = Array("btnNewVersion", "btnVersionHistory", "btnPendingIntegration", "btnPendingIntegrateAndDeploy", "btnRejectProduct", "width=20", "btnRemovePackage", _
 75 
                  aTabBtnsDef = Array("btnNewVersion", "btnVersionHistory", "btnPendingIntegration", "btnPendingIntegrateAndDeploy", "btnRejectProduct", "width=20", "btnRemovePackage", _
76 
                                "btnMoveToView", "btnStickyNotes", "btnDeprecation", "btnUnDeprecation")
 76 
                                "btnMoveToView", "btnStickyNotes", "btnDeprecation", "btnUnDeprecation")
77 
               Else
 77 
               Else
78 
                  'For Products that have have not yet been approved for Pending Integration
 78 
                  'For Products that have have not yet been approved for Pending Integration
Line 84... Line 84...
84 
               aTabBtnsDef = Array("btnNewVersion", "btnVersionHistory", "btnRemovePackage", "width=20", "btnMakePending", "btnApprovePackage", "btnMakeRelease", "btnRejectPackage", "width=20", _
 84 
               aTabBtnsDef = Array("btnNewVersion", "btnVersionHistory", "btnRemovePackage", "width=20", "btnMakePending", "btnApprovePackage", "btnMakeRelease", "btnRejectPackage", "width=20", _
85 
                             "btnMoveToView", "btnReversionPackage", "width=20", "btnMoveToView", "btnStickyNotes", "btnDeprecation", "btnUnDeprecation")
 85 
                             "btnMoveToView", "btnReversionPackage", "width=20", "btnMoveToView", "btnStickyNotes", "btnDeprecation", "btnUnDeprecation")
86 
 
 86 
 
87 
            End If
 87 
            End If
88 
 
 88 
 
89 
         ElseIf objAccessControl.IsActive("EditCriticalInfoForLockedPackage") Then
 89 
         ElseIf canActionControlInProject("EditCriticalInfoForLockedPackage") Then
90 
            ' For Packages in Release
 90 
            ' For Packages in Release
91 
            aTabBtnsDef = Array("btnNewVersion", "btnVersionHistory", "btnDestroyWip" ,"btnRemovePackage", "width=20", _
 91 
            aTabBtnsDef = Array("btnNewVersion", "btnVersionHistory", "btnDestroyWip" ,"btnRemovePackage", "width=20", _
92 
                                "btnAddDaemonInstTestBuildPackage", "btnMakePending", "btnApprovePackage", "btnApproveMerge", "btnMakeRelease", "btnRejectPackage", "btnRejectAutobuildPackage", "btnMakeUnrelease", "width=20", _
 92 
                                "btnAddDaemonInstTestBuildPackage", "btnMakePending", "btnApprovePackage", "btnApproveMerge", "btnMakeRelease", "btnRejectPackage", "btnRejectAutobuildPackage", "btnMakeUnrelease", "width=20", _
93 
                                "btnMoveToView", "btnMoveWIPToRelease", "btnReversionPackage","btnLockPackage","btnUnLockPackage", "width=20", "btnStickyNotes", "btnDeprecation", "btnUnDeprecation", "btnAddDaemonInstRipplePackage" )
 93 
                                "btnMoveToView", "btnMoveWIPToRelease", "btnReversionPackage","btnLockPackage","btnUnLockPackage", "width=20", "btnStickyNotes", "btnDeprecation", "btnUnDeprecation", "btnAddDaemonInstRipplePackage" )
94 
         Else
 94 
         Else
Line 179... Line 179...
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 
      ' For Manual Build
184 
      If ( ReleaseMode = enumDB_RELEASE_IN_CCB_MODE ) And Not objAccessControl.IsVisible("ApproveForManualBuild") Then
 184 
      If ( ReleaseMode = enumDB_RELEASE_IN_CCB_MODE ) And Not canShowControlInProject("ApproveForManualBuild") Then
185 
         Call objBtnControl.Visible ( "btnMakeRelease", "N" )
 185 
         Call objBtnControl.Visible ( "btnMakeRelease", "N" )
186 
      Else
 186 
      Else
187 
         Call objBtnControl.Visible ( "btnMakeRelease", "Y" )
 187 
         Call objBtnControl.Visible ( "btnMakeRelease", "Y" )
188 
         Call objBtnControl.Visible ( "btnMakeUnrelease", "N" )
 188 
         Call objBtnControl.Visible ( "btnMakeUnrelease", "N" )
189 
      End If
 189 
      End If
190 
 
 190 
 
191 
      If (pkgInfoHash.Item("is_patch")) <> "" Then
 191 
      If (pkgInfoHash.Item("is_patch")) <> "" Then
192 
         If objAccessControl.IsVisible ("ReleasePatch") Then
 192 
         If canShowControlInProject ("ReleasePatch") Then
193 
            Call objBtnControl.Visible ( "btnMakeRelease", "Y" )
 193 
            Call objBtnControl.Visible ( "btnMakeRelease", "Y" )
194 
         Else
 194 
         Else
195 
            Call objBtnControl.Visible ( "btnMakeRelease", "N" )
 195 
            Call objBtnControl.Visible ( "btnMakeRelease", "N" )
196 
         End If
 196 
         End If
197 
      End If
 197 
      End If
Line 206... Line 206...
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 
 
211 
         If (ReleaseMode = enumDB_RELEASE_IN_CCB_MODE) OR (NOT objAccessControl.IsVisible("AlterReleaseContentsInRestrictiveMode")) Then
 211 
         If (ReleaseMode = enumDB_RELEASE_IN_CCB_MODE) OR (NOT canShowControlInProject("AlterReleaseContentsInRestrictiveMode")) Then
212 
            Call objBtnControl.Visible ( "btnMakeUnrelease", "N" )
 212 
            Call objBtnControl.Visible ( "btnMakeUnrelease", "N" )
213 
            Call objBtnControl.Visible ( "btnRemovePackage", "N" )
 213 
            Call objBtnControl.Visible ( "btnRemovePackage", "N" )
214 
         End If
 214 
         End If
215 
 
 215 
 
216 
      Else
 216 
      Else
Line 224... Line 224...
224 
 
 224 
 
225 
'-- Change button setting on conditions ---
 225 
'-- Change button setting on conditions ---
226 
If pkgInfoHash.Item ("dlocked") = "Y" Then
 226 
If pkgInfoHash.Item ("dlocked") = "Y" Then
227 
   ' Package is Released and Locked
 227 
   ' Package is Released and Locked
228 
   Call objBtnControl.Visible ( "btnNewVersion", "Y" )
 228 
   Call objBtnControl.Visible ( "btnNewVersion", "Y" )
- 
 
 229 
   If Not canActionControlInProject("CreateNewVersion") Then
- 
 
 230 
        Call objBtnControl.Active ( "btnNewVersion", "N" )
- 
 
 231 
   End If
229 
 
 232 
 
230 
   If AssocMASSREF Then
 233 
   If AssocMASSREF Then
231 
      Call objBtnControl.Visible ( "btnNewVersion-MASSREF", "Y" )
 234 
      Call objBtnControl.Visible ( "btnNewVersion-MASSREF", "Y" )
232 
   End If
 235 
   End If
233 
 
 236 
 
234 
   If Request("rtag_id") <> "" AND objAccessControl.IsVisible("DeprecatePackage") Then
 237 
   If Request("rtag_id") <> "" AND canShowControlInProject("DeprecatePackage") Then
235 
      Dim rsDeprecate
 238 
      Dim rsDeprecate
236 
      If NOT IsNull(pkgInfoHash.Item ("v_ext")) Then
 239 
      If NOT IsNull(pkgInfoHash.Item ("v_ext")) Then
237 
         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))
 240 
         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))
238 
      Else
 241 
      Else
239 
         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))
 242 
         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))
Line 248... Line 251...
248 
      Set rsDeprecate = nothing
 251 
      Set rsDeprecate = nothing
249 
   End If
 252 
   End If
250 
   Call objBtnControl.Active ( "btnApprovePackage", "N" )
 253 
   Call objBtnControl.Active ( "btnApprovePackage", "N" )
251 
   Call objBtnControl.Active ( "btnMakeRelease", "N" )
 254 
   Call objBtnControl.Active ( "btnMakeRelease", "N" )
252 
 
 255 
 
253 
   If pkgInfoHash.Item("can_unofficial") = "true" OR objAccessControl.IsActive("EditCriticalInfoForLockedPackage") Then
 256 
   If pkgInfoHash.Item("can_unofficial") = "true" OR canActionControlInProject("EditCriticalInfoForLockedPackage") Then
254 
      Call objBtnControl.Visible ( "btnMakeUnrelease", "Y" )
 257 
      Call objBtnControl.Visible ( "btnMakeUnrelease", "Y" )
255 
      Call objBtnControl.Active ( "btnMakeUnrelease", "Y" )
 258 
      Call objBtnControl.Active ( "btnMakeUnrelease", "Y" )
256 
   End If
 259 
   End If
257 
 
 260 
 
258 
   ' DEVI-45275 - We can now merge existing (locked) versions to planned (pending) whilst assigning an operation to them
 261 
   ' DEVI-45275 - We can now merge existing (locked) versions to planned (pending) whilst assigning an operation to them
Line 290... Line 293...
290 
 
 293 
 
291 
   Call objBtnControl.Visible ( "btnRejectPackage", "N" )
 294 
   Call objBtnControl.Visible ( "btnRejectPackage", "N" )
292 
   Call objBtnControl.Active ( "btnRejectPackage", "N" )
 295 
   Call objBtnControl.Active ( "btnRejectPackage", "N" )
293 
 
 296 
 
294 
   Call objBtnControl.Visible ( "btnMakeUnrelease", "Y" )
 297 
   Call objBtnControl.Visible ( "btnMakeUnrelease", "Y" )
295 
   If pkgInfoHash.Item("can_unofficial") = "true" OR objAccessControl.IsActive("EditCriticalInfoForLockedPackage") Then
 298 
   If pkgInfoHash.Item("can_unofficial") = "true" OR canActionControlInProject("EditCriticalInfoForLockedPackage") Then
296 
      Call objBtnControl.Active ( "btnMakeUnrelease", "Y" )
 299 
      Call objBtnControl.Active ( "btnMakeUnrelease", "Y" )
297 
   Else
 300 
   Else
298 
      Call objBtnControl.Active ( "btnMakeUnrelease", "N" )
 301 
      Call objBtnControl.Active ( "btnMakeUnrelease", "N" )
299 
   End If
 302 
   End If
300 
 
 303 
 
Line 322... Line 325...
322 
      Call objBtnControl.Active  ( "btnMoveWIPToRelease", "Y" )
 325 
      Call objBtnControl.Active  ( "btnMoveWIPToRelease", "Y" )
323 
   End If
 326 
   End If
324 
 
 327 
 
325 
   Call objBtnControl.Visible ( "btnDestroyWip", "Y" )
 328 
   Call objBtnControl.Visible ( "btnDestroyWip", "Y" )
326 
   If (objAccessControl.UserLogedIn) Then
 329 
   If (objAccessControl.UserLogedIn) Then
327 
        If ( (objAccessControl.UserName = pkgInfoHash.Item("creator")) OR (objAccessControl.IsActive("DestroyPackageFromRelease")) ) Then
 330 
        If ( (objAccessControl.UserName = pkgInfoHash.Item("creator")) OR (canActionControlInProject("DestroyPackageFromRelease")) ) Then
328 
            Call objBtnControl.Active  ( "btnDestroyWip", "Y" )
 331 
            Call objBtnControl.Active  ( "btnDestroyWip", "Y" )
329 
        End If
 332 
        End If
330 
   End If
 333 
   End If
331 
 
 334 
 
332 
End If
 335 
End If
Line 336... Line 339...
336 
   Call objBtnControl.Visible ( "btnObsoletePatch", "Y" )
 339 
   Call objBtnControl.Visible ( "btnObsoletePatch", "Y" )
337 
Else
 340 
Else
338 
   Call objBtnControl.Visible ( "btnUnobsoletePatch", "Y" )
 341 
   Call objBtnControl.Visible ( "btnUnobsoletePatch", "Y" )
339 
End If
 342 
End If
340 
 
 343 
 
341 
If objAccessControl.IsVisible("DestroyPackage") Then
 344 
If canShowControlInProject("DestroyPackage") Then
342 
   Call objBtnControl.Visible ( "btnRecycleBin", "Y" )
 345 
   Call objBtnControl.Visible ( "btnRecycleBin", "Y" )
343 
End If
 346 
End If
344 
 
 347 
 
345 
'--- Access Control Action Relationships ---
 348 
'--- Access Control Action Relationships ---
346 
 
 349 
 
Line 360... Line 363...
360 
   ' make the approve merge button variant visible
 363 
   ' make the approve merge button variant visible
361 
   Call objBtnControl.Visible ( "btnApproveMerge", "Y" )
 364 
   Call objBtnControl.Visible ( "btnApproveMerge", "Y" )
362 
 
 365 
 
363 
   ' These conditions match those used in Diff.asp that control whether the Merge button is visible or not.
 366 
   ' These conditions match those used in Diff.asp that control whether the Merge button is visible or not.
364 
   ' Use them to enable or disable the approve merge button
 367 
   ' Use them to enable or disable the approve merge button
365 
   If ( ReleaseMode <> enumDB_RELEASE_IN_ARCHIVE_MODE AND ReleaseMode <> enumDB_RELEASE_IN_CLOSED_MODE AND ReleaseMode <> enumDB_RELEASE_IN_CCB_MODE AND objAccessControl.IsActive("MergeRelease") ) _
 368 
   If ( ReleaseMode <> enumDB_RELEASE_IN_ARCHIVE_MODE AND ReleaseMode <> enumDB_RELEASE_IN_CLOSED_MODE AND ReleaseMode <> enumDB_RELEASE_IN_CCB_MODE AND canActionControlInProject("MergeRelease") ) _
366 
      OR ( ReleaseMode = enumDB_RELEASE_IN_CCB_MODE AND objAccessControl.IsActive("MergeReleaseForCCB") ) Then
 369 
      OR ( ReleaseMode = enumDB_RELEASE_IN_CCB_MODE AND canActionControlInProject("MergeReleaseForCCB") ) Then
367 
 
 370 
 
368 
      Call objBtnControl.Active ( "btnApproveMerge", "Y" )
 371 
      Call objBtnControl.Active ( "btnApproveMerge", "Y" )
369 
      Call objBtnControl.Active ( "btnRejectPackage", "Y" )
 372 
      Call objBtnControl.Active ( "btnRejectPackage", "Y" )
370 
   Else
 373 
   Else
371 
      Call objBtnControl.Active ( "btnApproveMerge", "N" )
 374 
      Call objBtnControl.Active ( "btnApproveMerge", "N" )
Line 399... Line 402...
399 
'---------------------------------------------------------------------------
 402 
'---------------------------------------------------------------------------
400 
' Unlock Package
 403 
' Unlock Package
401 
' Note: Unlocking of a Package or Patch is intended for the administrators
 404 
' Note: Unlocking of a Package or Patch is intended for the administrators
402 
 
 405 
 
403 
Dim bucan_unlock
 406 
Dim bucan_unlock
404 
bucan_unlock = pkgInfoHash("is_released") AND objAccessControl.IsActive("EditCriticalInfoForLockedPackage")
 407 
bucan_unlock = pkgInfoHash("is_released") AND canActionControlInProject("EditCriticalInfoForLockedPackage")
405 
 
 408 
 
406 
Call objBtnControl.Visible ( "btnUnLockPackage", "N" )
 409 
Call objBtnControl.Visible ( "btnUnLockPackage", "N" )
407 
Call objBtnControl.Visible ( "btnLockPackage", "N" )
 410 
Call objBtnControl.Visible ( "btnLockPackage", "N" )
408 
Call objBtnControl.Active ( "btnLockPackage", "N" )
 411 
Call objBtnControl.Active ( "btnLockPackage", "N" )
409 
Call objBtnControl.Active ( "btnUnLockPackage", "N" )
 412 
Call objBtnControl.Active ( "btnUnLockPackage", "N" )