Subversion Repositories DevTools

'------------------------------------------------------------------------------------------------------------------------------------

Sub PegPackageVersion (applyPegging)

   objEH.TryORA ( OraSession )

   On Error Resume Next

   ' try and clean up the pegged_versions table of any stranded rows (should never happen but this will fix it anyway)

   ' This means, remove any and all pegging rows whose values are not in an existing release somewhere

   OraDatabase.ExecuteSQL _

   " delete from pegged_versions"&_

   " where (rtag_id, pv_id) IN ("&_

   " select rtag_id, pv_id from pegged_versions"&_

   " minus"&_

   " select rtag_id, pv_id from release_content)"

   If Err.Number = 0 Then

      ' Delete the pegging row for the requested RTAG_ID/PV_ID

      OraDatabase.ExecuteSQL _

      "DELETE FROM PEGGED_VERSIONS WHERE RTAG_ID = " & parRtag_id & " AND PV_ID = " & parPv_id

      ' And if the user has requested PEGGING to be turned on then Add the PEGGING

      If applyPegging = True AND Err.Number = 0 Then

         OraDatabase.ExecuteSQL _

         "INSERT INTO PEGGED_VERSIONS VALUES(" & parRtag_id & "," & parPv_id & ")"

      End If

      If Err.Number = 0 Then

         ' Touch the release so that the state icons are re-evaluated

         OraDatabase.Parameters.Add "RTAG_ID", parRtag_id, ORAPARM_INPUT, ORATYPE_NUMBER

         OraDatabase.ExecuteSQL "BEGIN Touch_Release( :RTAG_ID ); END;"

         OraDatabase.Parameters.Remove "RTAG_ID"

      End If

   End If

   objEH.CatchORA ( OraSession )

End Sub

   If NOT CBool(QStrPar("peggedFlag")) AND Request("FRpegged") = "1" Then

      Call PegPackageVersion(True)

   End If

   If CBool(QStrPar("peggedFlag")) AND Request("FRpegged") = "0" Then

      Call PegPackageVersion(False)

   End If

                  <td nowrap class="form_field" background="images/bg_form_lightbluedark.gif">Pegged Version?<%=Quick_Help ( "pegged_version" )%></td>

                  <%

                  Dim FRpeggedYES, FRpeggedNO, FRdisabled

                  FRpeggedYES = ""

                  FRpeggedNO = ""

                  FRdisabled = "disabled='disabled'"

                  ' Allow pegging/un-pegging to occur for locked/released versions only, and by users who have the appropriate permission

                  If (objAccessControl.IsVisible( "PegPackageVersions" )) AND isDLocked = "Y" Then

                     FRdisabled = ""

                  End If

                  Dim rsQryPegged, peggedFlag

                  Set rsQryPegged = OraDatabase.DbCreateDynaset( "SELECT * FROM PEGGED_VERSIONS WHERE RTAG_ID ="& parRtag_id &"AND PV_ID ="& parPv_id, cint(0))

                  If rsQryPegged.RecordCount = 0  Then

                     FRpeggedNO = "checked"

                     peggedFlag = False

                  Else

                     FRpeggedYES = "checked"

                     peggedFlag = True

                  End If

                  rsQryPegged.Close()

                  Set rsQryPegged = nothing

                  %>

                  <td nowrap background="images/bg_form_lightbluedark.gif" class="form_txt" align="right">

                     Yes<input name="FRpegged" type="radio" value="1" <%=FRdisabled%> <%=FRpeggedYES%> >&nbsp;&nbsp;

                     No<input name="FRpegged" type="radio" value="0"  <%=FRdisabled%> <%=FRpeggedNO%>  >&nbsp;&nbsp;

                  </td>

                  <td background="images/bg_form_lightbluedark.gif">

                     <span class='err_alert'><b>WARNING!</span>

                     <font size='1'>

                        <br>

                        When set to Yes, this package version is never rippled in the current release regardless of the other ripple settings below.

                     </font></b>

                  </td>

               </tr>

               <tr>

                  <td>&nbsp;</td>

<input type="hidden" name="peggedFlag" value="<%=peggedFlag%>">