WebSVN – DevTools – Diff – /ManagerSuite/Release_Manager/trunk/_wform_ripple_properties.asp

    End If
    objEH.CatchORA ( OraSession )
 End Sub
+'------------------------------------------------------------------------------------------------------------------------------------
+Sub AdvisoryRipplePackageVersion (applyAdvisoryRipple)
+   objEH.TryORA ( OraSession )
+   On Error Resume Next
+   ' Delete the adv. rip. row for the requested RTAG_ID/PV_ID
+   OraDatabase.ExecuteSQL _
+   "DELETE FROM ADVISORY_RIPPLE WHERE RTAG_ID = " & parRtag_id & " AND PV_ID = " & parPv_id
+   ' And if the user has requested advisory ripple to be turned on then Add it
+   If applyAdvisoryRipple = True AND Err.Number = 0 Then
+      OraDatabase.ExecuteSQL _
+      "INSERT INTO ADVISORY_RIPPLE 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
+   objEH.CatchORA ( OraSession )
+End Sub
 '----------------------------------------------------------------------------------------------------------------------
 %>
 <%
 '------------------------------- RUN BEFORE PAGE RENDER ----------------------------
 If CBool(QStrPar("action"))  AND  objAccessControl.UserLogedIn Then
    Call UpdateRippleType()
+   ' Changes to DO NOT RIPPLE Status -----------------------------------------
    If NOT CBool(QStrPar("rippleFlag")) AND Request("FRripplebuild") = "1" Then
       Call RipplePackage(True)
    End If
    If CBool(QStrPar("rippleFlag")) AND Request("FRripplebuild") = "0" Then
       Call RipplePackage(False)
    End If
+   ' Changes to PEGGED Status ------------------------------------------------
    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
+   ' Changes to ADVISORY RIPPLE Status ---------------------------------------
+   If NOT CBool(QStrPar("advRipFlag")) AND Request("FRadvrip") = "1" Then
+      Call AdvisoryRipplePackageVersion(True)
+   End If
+   If CBool(QStrPar("advRipFlag")) AND Request("FRadvrip") = "0" Then
+      Call AdvisoryRipplePackageVersion(False)
+   End If
    Call OpenInParentWindow ( "fixed_issues.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id &"&hidenv=true" )
    Call CloseWindow
 End If
                </tr>
                <tr>
                   <td>&nbsp;</td>
                   <td nowrap class="form_field" background="images/bg_form_lightbluedark.gif">Pegged Version?<%=Quick_Help ( "pegged_version" )%></td>
                   <%
-                  Dim FRpeggedYES, FRpeggedNO, FRdisabled
+                  Dim FRpeggedYES, FRpeggedNO, FRpegDisabled
                   FRpeggedYES = ""
                   FRpeggedNO = ""
-                  FRdisabled = "disabled='disabled'"
+                  FRpegDisabled = "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 = ""
+                     FRpegDisabled = ""
                   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))
+                  Set rsQryPegged = OraDatabase.DbCreateDynaset( "SELECT COUNT(*) as record_count FROM PEGGED_VERSIONS WHERE RTAG_ID ="& parRtag_id &"AND PV_ID ="& parPv_id, cint(0))
-                  If rsQryPegged.RecordCount = 0  Then
+                  If rsQryPegged("record_count") = 0  Then
                      FRpeggedNO = "checked"
                      peggedFlag = False
                   Else
                      FRpeggedYES = "checked"
                      peggedFlag = True
                   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;
+                     Yes<input name="FRpegged" type="radio" value="1" <%=FRpegDisabled%> <%=FRpeggedYES%> >&nbsp;&nbsp;
-                     No<input name="FRpegged" type="radio" value="0"  <%=FRdisabled%> <%=FRpeggedNO%>  >&nbsp;&nbsp;
+                     No<input name="FRpegged" type="radio" value="0"  <%=FRpegDisabled%> <%=FRpeggedNO%>  >&nbsp;&nbsp;
                   </td>
                   <td background="images/bg_form_lightbluedark.gif">
                      <span class='err_alert'><b>WARNING!</span>
                      <font size='1'>
                         <br>
                      </font></b>
                   </td>
                </tr>
                <tr>
                   <td>&nbsp;</td>
+                  <td nowrap class="form_field" background="images/bg_form_lightbluedark.gif">Advisory Ripple Version?<%=Quick_Help ( "advisory_ripple_version" )%></td>
+                  <%
+                  Dim FRadvripYES, FRadvripNO, FRadvripDisabled
+                  FRadvripYES = ""
+                  FRadvripNO = ""
+                  FRadvripDisabled = "disabled='disabled'"
+                  ' Allow setting of advisory ripple to occur only by users who have the appropriate permission
+                  If (objAccessControl.IsVisible( "AdvRipPackageVersions" )) AND isDLocked = "Y" Then
+                     FRadvripDisabled = ""
+                  End If
+                  Dim rsQryAdvRip, advRipFlag
+                  Set rsQryAdvRip = OraDatabase.DbCreateDynaset( "SELECT COUNT(*) as record_count FROM ADVISORY_RIPPLE WHERE RTAG_ID ="& parRtag_id &"AND PV_ID ="& parPv_id, cint(0))
+                  If rsQryAdvRip("record_count") = 0  Then
+                     FRadvripNO = "checked"
+                     advRipFlag = False
+                  Else
+                     FRadvripYES = "checked"
+                     advRipFlag = True
+                  End If
+                  rsQryAdvRip.Close()
+                  Set rsQryAdvRip = nothing
+                  %>
+                  <td nowrap background="images/bg_form_lightbluedark.gif" class="form_txt" align="right">
+                     Yes<input name="FRadvrip" type="radio" value="1" <%=FRadvripDisabled%> <%=FRadvripYES%> >&nbsp;&nbsp;
+                     No<input name="FRadvrip" type="radio" value="0"  <%=FRadvripDisabled%> <%=FRadvripNO%>  >&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, a new version of this package will not cause a ripple of higher level packages in the current release.
+                     </font></b>
+                  </td>
+               </tr>
+               <tr>
+                  <td>&nbsp;</td>
                   <td nowrap class="form_field" background="images/bg_form_lightbluedark.gif">Build Inclusion?<%=Quick_Help ( "ripple_build" )%></td>
                   <%
                   FRripplebuildYES = ""
                   FRripplebuildNO = ""
                   ' disabled="disabled" indicates the pv has been excluded indirectly
    </table>
 <input type="hidden" name="pv_id" value="<%=parPv_id%>">
 <input type="hidden" name="rtag_id" value="<%=parRtag_id%>">
 <input type="hidden" name="rippleFlag" value="<%=rippleFlag%>">
 <input type="hidden" name="peggedFlag" value="<%=peggedFlag%>">
+<input type="hidden" name="advRipFlag" value="<%=advRipFlag%>">
 <input type="hidden" name="action" value="true">
 </form>
 </body>
 </html>
 <%

Subversion Repositories DevTools

(root)/ManagerSuite/Release_Manager/trunk/_wform_ripple_properties.asp @ 151 – Rev 131 → 151