WebSVN – DevTools – Diff – /ManagerSuite/Release_Manager/trunk/web/_pkg_action_buttons.asp

 End Sub
 Sub RenderActionButtons
 '--Determine whether the release has an associated MASS_REF
 Dim rsAssoc, AssocMASSREF, AssocMASSREFValue, StatesUsed
-If Request("rtag_id") <> "" Then
+If parRtag_id > 0 Then
-   Set rsAssoc = OraDatabase.DbCreateDynaset( "SELECT ASSOC_MASS_REF, PRODUCT_STATE_USED FROM RELEASE_TAGS WHERE RTAG_ID="&Request("rtag_id"), cint(0))
+   Set rsAssoc = OraDatabase.DbCreateDynaset( "SELECT ASSOC_MASS_REF, PRODUCT_STATE_USED FROM RELEASE_TAGS WHERE RTAG_ID="&parRtag_id, cint(0))
    AssocMASSREFValue = rsAssoc("ASSOC_MASS_REF")
    StatesUsed = rsAssoc("PRODUCT_STATE_USED")
       If NOT IsNull(rsAssoc("ASSOC_MASS_REF")) Then
          AssocMASSREF = True
       Else
    Set rsAssoc = nothing
 End If
 '-- Define Action buttons on this tab
 If IsNull(pkgInfoHash.Item("is_patch")) Then
-   If Request("rtag_id") <> "" Then
+   If parRtag_id > 0 Then
       If (pkgInfoHash.Item("can_edit_in_project") = "1" OR  _
          canShowControlInProject("AlterReleaseContentsInRestrictiveMode")) OR (pkgInfoHash.Item("v_ext") = ".mas" AND pkgInfoHash.Item("v_ext") = ".cr" OR NOT AssocMASSREF OR NOT IsNull(pkgInfoHash.Item("v_ext"))  ) _
       Then
          If pkgInfoHash.Item("is_deployable") = "Y" AND pkgInfoHash.Item("dlocked") = "Y" AND StatesUsed = "Y" Then
             aTabBtnsDef = Array( "btnVersionHistory", "btnStickyNotes", "btnDeprecation", "btnUnDeprecation")
          End If
       End If
    Else
-      ' For standalone Packages (Not view in project release)
+      ' For standalone Packages (Not viewed in project release)
-      aTabBtnsDef = Array("btnVersionHistory", "btnReversionPackage", "btnDestroyWip", "width=20", "btnStickyNotes")
+      aTabBtnsDef = Array("btnVersionHistory", "btnRecycleBin", "btnReversionPackage", "width=20", "btnStickyNotes")
    End If
 Else
    ' For Patches
    'aTabBtnsDef = Array("btnMakePending", "btnApprovePackage", "btnMakeRelease", "btnMakeUnrelease", "btnRejectPackage", "width=20", _
    If AssocMASSREF Then
       Call objBtnControl.Visible ( "btnNewVersion-MASSREF", "Y" )
    End If
-   If Request("rtag_id") <> "" AND canShowControlInProject("DeprecatePackage") Then
+   If (parRtag_id > 0) AND canShowControlInProject("DeprecatePackage") Then
       Dim rsDeprecate
       If NOT IsNull(pkgInfoHash.Item ("v_ext")) Then
-         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))
+         Set rsDeprecate = OraDatabase.DbCreateDynaset("SELECT * FROM DEPRECATED_PACKAGES WHERE RTAG_ID ="& parRtag_id &" AND V_EXT ='"& pkgInfoHash.Item ("v_ext") &"' AND PKG_ID = "& pkgInfoHash.Item ("pkg_id") &"", cint(0))
       Else
-         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))
+         Set rsDeprecate = OraDatabase.DbCreateDynaset("SELECT * FROM DEPRECATED_PACKAGES WHERE RTAG_ID ="& parRtag_id &" AND V_EXT IS NULL AND PKG_ID = "& pkgInfoHash.Item ("pkg_id") &"", cint(0))
       End If
       If (rsDeprecate.RecordCount) = 0 Then
          Call objBtnControl.Visible ( "btnDeprecation", "Y" )
       Else
       Set rsDeprecate = nothing
    Else
     Call objBtnControl.Active ( "btnDeprecation",  "N")
     Call objBtnControl.Visible ( "btnDeprecation",  "Y")
    End If
    Call objBtnControl.Active ( "btnApprovePackage", "N" )
    Call objBtnControl.Active ( "btnMakeRelease", "N" )
    If pkgInfoHash.Item("can_unofficial") = "true" OR canActionControlInProject("EditCriticalInfoForLockedPackage") Then
       Call objBtnControl.Visible ( "btnMakeUnrelease", "Y" )
 ElseIf pkgInfoHash.Item ("dlocked") = "P" Then
    ' In Pending
    Call objBtnControl.Visible ( "btnMakePending", "N" )
    Call ActivateButtonAccordingToReleaseModeAndPermissions("btnApprovePackage", "ApproveForAutoBuild")
    Call ActivateButtonAccordingToReleaseModeAndPermissions("btnRejectPackage", "RejectPackageFromPending")
 ElseIf pkgInfoHash.Item ("dlocked") = "A" Then
    ' In Pending, Approved For Autobuild
    Call objBtnControl.Visible ( "btnMakePending", "N" )
    Else
       Call objBtnControl.Active ( "btnMakeUnrelease", "N" )
    End If
    '--- Allow failed auto-builds to be rejected back to WIP, conditions allowing.
-   If pkgInfoHash.Item("build_type") = "A" AND Request("rtag_id") <> "" Then
+   If pkgInfoHash.Item("build_type") = "A" AND parRtag_id > 0 Then
-      If isInDoNotRippleTable( Request("rtag_id"), pkgInfoHash.Item("pv_id") ) = TRUE Then
+      If isInDoNotRippleTable( parRtag_id, pkgInfoHash.Item("pv_id") ) = TRUE Then
          Call objBtnControl.Visible ( "btnRejectAutobuildPackage", "Y" )
          Call ActivateButtonAccordingToReleaseModeAndPermissions("btnRejectAutobuildPackage", "RejectPackageFromPending")
       End If
    End If
    Call objBtnControl.Visible ( "btnObsoletePatch", "Y" )
 Else
    Call objBtnControl.Visible ( "btnUnobsoletePatch", "Y" )
 End If
+If NOT (parRtag_id > 0) Then
+    ' Not shown in the context of a Release
+    ' Determine if the package can be reversioned or destroyed
+    Call objBtnControl.Visible ( "btnRecycleBin", "Y" )
+    Call objBtnControl.Visible ( "btnReversionPackage" , "Y")
+    Call objBtnControl.ReadOnly ( "btnReversionPackage" , "Y")
-If canShowControlInProject("DestroyPackage") Then
+    If canShowControlInProject("DestroyPackage") Then
-   Call objBtnControl.Visible ( "btnRecycleBin", "Y" )
+       Call objBtnControl.Visible ( "btnRecycleBin", "Y" )
+    ElseIf (objAccessControl.UserId = pkgInfoHash.Item("creator_id") ) OR (objAccessControl.UserId = pkgInfoHash.Item("owner_id")) Then
+        'If aVersions( rsVB.FieldIndex("inuse"), i ) = 0 Then
+            'If aVersions( rsVB.FieldIndex("age") , i ) < 1000 Then
+                If pkgInfoHash.Item ("dlocked") <> "Y" Then
+                    'If pkgInfoHash.Item ("dlocked") <> "A" Then
+                        Call objBtnControl.Active ( "btnRecycleBin", "Y" )
+                    'End If
+                End If
+            'End If
+        'End If
+    End If
+    ' Only if Unlocked or Rejected
+    If pkgInfoHash.Item ("dlocked") = "N" OR pkgInfoHash.Item ("dlocked") = "R" Then
+        Call objBtnControl.Active ( "btnReversionPackage" , "Y")
+    End If
 End If
 '--- Access Control Action Relationships ---
 ' DEVI-45275 - Merges now occur via the Pending tab. Merge candidates are marked with a (planned) operation
 ' of "A" for add, or "S" for subtract. If the package version is one of these (within the context of the
 ' release of coarse), manipulate the MakeRelease button (of which there are now 3 types) accordingly.
 If ( pkgInfoHash.Item ("planned_operation") = "A" OR pkgInfoHash.Item ("planned_operation") = "S") Then
     Call objBtnControl.Active ( "btnMoveWIPToRelease", "N" )
     Call objBtnControl.Active ( "btnAddDaemonInstTestBuildPackage", "N" )
     Call objBtnControl.Active ( "btnMakeUnrelease", "N" )
     Call objBtnControl.Active ( "btnMakePending", "N" )
     Call objBtnControl.Active ( "btnNewVersion", "N" )
+    Call objBtnControl.Active ( "btnRecycleBin", "N")
 End If
 '-- Disable if the Package is imported as a part of an SDK
 '   Or as part of a linked Release
 If (pkgInfoHash.Item("can_edit_in_project") <> "1") Then
     Call objBtnControl.Active ( "btnRejectPackage",  "N")
     Call objBtnControl.Active ( "btnRejectAutobuildPackage",  "N")
     Call objBtnControl.Active ( "btnMakeUnrelease", "N")
     Call objBtnControl.Active ( "btnMoveToView",  "N")
     Call objBtnControl.Active ( "btnMoveWIPToRelease",  "N")
-    Call objBtnControl.Active ( "btnReversionPackage", "N")
     Call objBtnControl.Active ( "btnDeprecation",  "N")
     Call objBtnControl.Active ( "btnUnDeprecation",  "N")
     Call objBtnControl.Active ( "btnAddDaemonInstRipplePackage", "N")
 End If

Subversion Repositories DevTools

(root)/ManagerSuite/Release_Manager/trunk/web/_pkg_action_buttons.asp – Rev 5925 → 5929