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

 Dim checked
 Dim FRripplebuildYES, FRripplebuildNO
 Dim objFormCollector
 Dim Query_String
 Dim isDLocked
+Dim isNotSdk
 '------------ Constants Declaration -----------
 '------------ Variable Init -------------------
 Set objFormCollector = CreateObject("Scripting.Dictionary")
 parPv_id = QStrPar("pv_id")
 '----------------------------------------------
    OraDatabase.Parameters.Remove "RTAG_ID"
    OraDatabase.Parameters.Remove "USER_ID"
 End Sub
 '------------------------------------------------------------------------------------------------------------------------------------
-Sub Get_Form_Details( nPv_id, ByRef objDetails )
+Sub Get_Form_Details( nRtag_id, nPv_id, ByRef objDetails )
    Dim rsTemp, Query_String
    Query_String = _
    " SELECT * "&_
    "  FROM package_versions pv, packages pkg"&_
    " WHERE pv.pkg_id = pkg.pkg_id"&_
       objDetails.Item("is_deployable")         = rsTemp("is_deployable")
       objDetails.Item("is_build_env_required") = rsTemp("is_build_env_required")
       objDetails.Item("build_type")            = rsTemp("build_type")
       objDetails.Item("bs_id")                 = rsTemp("bs_id")
       objDetails.Item("ripple_field")          = rsTemp("ripple_field")
+      objDetails.Item("dlocked")               = rsTemp("dlocked")
       If isNull(rsTemp("major_limit")) Then
         objDetails.Item("major_limit")         = "0"
       Else
         objDetails.Item("major_limit")         = rsTemp("major_limit")
       End If
       End If
    End If
    rsTemp.Close()
    Set rsTemp = Nothing
+   '
+   '    Release Based Properties
+   objDetails.Item("is_sdkpkg") = FALSE
+   If nRtag_id <> "" Then
+       Query_String = _
+       " SELECT * "&_
+       "  FROM RELEASE_CONTENT rc"&_
+       " WHERE rc.rtag_id = " & nRtag_id &_
+       " AND pv_id = " & nPv_id
+       Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
+       If (NOT rsTemp.BOF ) AND (NOT rsTemp.EOF) Then
+          objDetails.Item("is_sdkpkg")              = (NOT IsNull(rsTemp("sdktag_id")))
+       End If
+       rsTemp.Close()
+       Set rsTemp = Nothing
+   End If
 End Sub
 '----------------------------------------------------------------------------------------------------------------------
 Sub RenderRippleTypeCombo( cRippleType, cDLocked )
    Dim isEditable
 '----------------------------------------------------------------------------------------------------------------------
 %>
 <%
 '------------------------------- RUN BEFORE PAGE RENDER ----------------------------
-Call Get_Form_Details( parPv_id, objFormCollector )
+Call Get_Form_Details( parRtag_id, parPv_id, objFormCollector )
+isDLocked = objFormCollector.Item("dlocked")
-Call Get_Pkg_Short_Info( parPv_id, NULL, NULL, NULL, NULL, NULL, isDLocked )
+isNotSdk = NOT objFormCollector.Item("is_sdkpkg")
 '-------------------------------------
 'Start Process Submission
 If CBool(QStrPar("action"))  AND  objAccessControl.UserLogedIn Then
                   <td width="1%"><img src="images/h_trsp_dot.gif" width="10" height="30"></td>
                   <td width="1%" nowrap class="form_group" valign="bottom"></td>
                   <td nowrap width="1%">&nbsp; </td>
                   <td nowrap width="100%">&nbsp;</td>
                </tr>
-               <%If NOT IsNull(parRtag_id) AND parRtag_id <> "" Then%>
+               <%If NOT IsNull(parRtag_id) AND parRtag_id <> "" AND isNotSdk Then%>
                <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, FRpegDisabled
                         will be excluded from the build. When the Yes option is disabled, indicates this package has been excluded indirectly.
                      </font></b>
                   </td>
                </tr>
                <%End If%>
+               <%If isNotSdk Then %>
                <tr>
                   <td>&nbsp;</td>
                   <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Ripple Type?<%=Quick_Help ( "ripple_type" )%></td>
                   <td nowrap background="images/bg_form_lightbluedark.gif" class="form_txt">
                     &nbsp;&nbsp;<% Call RenderRippleTypeCombo( objFormCollector.Item("ripple_field"), isDLocked )%>&nbsp;&nbsp;
                         THIS IS PRIMARILY INTENDED TO CATER FOR PACKAGES WHICH DO NOT SUPPORT A NON ZERO PATCH/BUILD NUMBER,<br>
                         AND FOR PRODUCTS WHERE CONSTANTLY RIPPLING A PATCH/BUILD NUMBER IS DISLIKED BY A CUSTOMER.
                      </font></b>
                   </td>
                </tr>
+               <%End If%>
                <tr id="limits_row" style="visibility:hidden; position:static">
                   <td>&nbsp;</td>
                   <td nowrap class="form_field" background="images/bg_form_lightbluedark.gif">Version Field Limits</td>
                   <td nowrap background="images/bg_form_lightbluedark.gif" class="form_txt" align="right">
                      Major&nbsp;&nbsp;<input name="Major" id="Major" type="text" class="form_item" size="8" value="<%=objFormCollector.Item("major_limit")%>">&nbsp;&nbsp;<br>

Subversion Repositories DevTools

(root)/ManagerSuite/Release_Manager/trunk/_wform_ripple_properties.asp @ 5179 – Rev 5061 → 5086