Subversion Repositories DevTools

Rev

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

Rev 119 Rev 121
Line 1... Line 1...
1 
<%@LANGUAGE="VBSCRIPT"%>
 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
 2 
<%
3 
Option explicit
 3 
Option explicit
4 
Response.Expires = 0	' always load the page, dont store
 4 
Response.Expires = 0   ' always load the page, dont store
5 
%>
 5 
%>
6 
<%
 6 
<%
7 
'=====================================================
 7 
'=====================================================
8 
'					Ripple Properties
 8 
'               Ripple Properties
9 
'=====================================================
 9 
'=====================================================
10 
%>
 10 
%>
11 
<!--#include file="common/conf.asp"-->
 11 
<!--#include file="common/conf.asp"-->
12 
<!--#include file="common/globals.asp"-->
 12 
<!--#include file="common/globals.asp"-->
13 
<!--#include file="common/formating.asp"-->
 13 
<!--#include file="common/formating.asp"-->
Line 29... Line 29...
29 
Dim query
 29 
Dim query
30 
Dim rsQry, rsTemp
 30 
Dim rsQry, rsTemp
31 
Dim checked
 31 
Dim checked
32 
Dim FRripplebuildYES, FRripplebuildNO
 32 
Dim FRripplebuildYES, FRripplebuildNO
33 
Dim objFormCollector
 33 
Dim objFormCollector
34 
Dim	Query_String
 34 
Dim Query_String
35 
Dim isDLocked
 35 
Dim isDLocked
36 
'------------ Constants Declaration -----------
 36 
'------------ Constants Declaration -----------
37 
'------------ Variable Init -------------------
 37 
'------------ Variable Init -------------------
38 
Set objFormCollector = CreateObject("Scripting.Dictionary")
 38 
Set objFormCollector = CreateObject("Scripting.Dictionary")
39 
parPv_id = QStrPar("pv_id")
 39 
parPv_id = QStrPar("pv_id")
40 
'----------------------------------------------
 40 
'----------------------------------------------
41 
%>
 41 
%>
42 
<%
 42 
<%
43 
'------------------------------------------------------------------------------------------------------------------------------------
 43 
'------------------------------------------------------------------------------------------------------------------------------------
44 
Sub UpdateRippleType ( )
 44 
Sub UpdateRippleType ( )
45 
	Dim rsTemp, Query_String
 45 
   Dim rsTemp, Query_String
46 
	Query_String = _
 46 
   Query_String = _
47 
	" SELECT ripple_field"&_
 47 
   " SELECT ripple_field"&_
48 
	" FROM package_versions"&_
 48 
   " FROM package_versions"&_
49 
	" WHERE pv_id = "& Request("pv_id")
 49 
   " WHERE pv_id = "& Request("pv_id")
50 
	Set rsTemp = OraDatabase.CreateDynaset( Query_String, cint(0))
 50 
   Set rsTemp = OraDatabase.CreateDynaset( Query_String, cint(0))
51 
 
 51 
 
52 
	If (rsTemp("ripple_field").Value <> Request("ripple_type_combo")) OR IsNull(rsTemp("ripple_field").Value) Then
 52 
   If (rsTemp("ripple_field").Value <> Request("ripple_type_combo")) OR IsNull(rsTemp("ripple_field").Value) Then
53 
 
 53 
 
54 
		'update fields
 54 
      'update fields
55 
		rsTemp.Edit()
 55 
      rsTemp.Edit()
56 
		rsTemp.Fields("ripple_field").Value = Request("ripple_type_combo")
 56 
      rsTemp.Fields("ripple_field").Value = Request("ripple_type_combo")
57 
		rsTemp.Update()
 57 
      rsTemp.Update()
58 
 
 58 
 
59 
 
 59 
 
60 
 
 60 
 
61 
		'/* Log Action */
 61 
      '/* Log Action */
62 
		If Request("ripple_type_combo") = "M" Then
 62 
      If Request("ripple_type_combo") = "M" Then
63 
			Call Log_Action ( Request("pv_id"), "ripple_type_update", "Major Number" )
 63 
         Call Log_Action ( Request("pv_id"), "ripple_type_update", "Major Number" )
64 
 
 64 
 
65 
		ElseIf Request("ripple_type_combo") = "m" Then
 65 
      ElseIf Request("ripple_type_combo") = "m" Then
66 
			Call Log_Action ( Request("pv_id"), "ripple_type_update", "Minor Number" )
 66 
         Call Log_Action ( Request("pv_id"), "ripple_type_update", "Minor Number" )
67 
 
 67 
 
68 
		ElseIf Request("ripple_type_combo") = "p" Then
 68 
      ElseIf Request("ripple_type_combo") = "p" Then
69 
			Call Log_Action ( Request("pv_id"), "ripple_type_update", "Patch Number" )
 69 
         Call Log_Action ( Request("pv_id"), "ripple_type_update", "Patch Number" )
70 
 
 70 
 
71 
		Else
 71 
      ElseIf Request("ripple_type_combo") = "z" Then
72 
			Call Log_Action ( Request("pv_id"), "ripple_type_update", "Build Number" )
 72 
         Call Log_Action ( Request("pv_id"), "ripple_type_update", "Do not ripple build" )
73 
 
 73 
 
74 
		End If
 74 
      Else
- 
 
 75 
         Call Log_Action ( Request("pv_id"), "ripple_type_update", "Build Number" )
75 
 
 76 
 
76 
	End If
 77 
      End If
77 
 
 78 
 
- 
 
 79 
   End If
- 
 
 80 
 
78 
	rsTemp.Close()
 81 
   rsTemp.Close()
79 
	Set rsTemp = nothing
 82 
   Set rsTemp = nothing
80 
End Sub
 83 
End Sub
81 
'------------------------------------------------------------------------------------------------------------------------------------
 84 
'------------------------------------------------------------------------------------------------------------------------------------
82 
Sub RipplePackage (flag)
 85 
Sub RipplePackage (flag)
83 
 
 86 
 
84 
	OraDatabase.Parameters.Add "PV_ID", 		parPv_id,	ORAPARM_INPUT, ORATYPE_NUMBER
 87 
   OraDatabase.Parameters.Add "PV_ID",   parPv_id,                  ORAPARM_INPUT, ORATYPE_NUMBER
85 
	OraDatabase.Parameters.Add "RTAG_ID", 		parRtag_id,	ORAPARM_INPUT, ORATYPE_NUMBER
 88 
   OraDatabase.Parameters.Add "RTAG_ID", parRtag_id,                ORAPARM_INPUT, ORATYPE_NUMBER
86 
	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId,	ORAPARM_INPUT, ORATYPE_NUMBER
 89 
   OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId,   ORAPARM_INPUT, ORATYPE_NUMBER
87 
 
 90 
 
88 
 
 91 
 
89 
	OraSession.BeginTrans
 92 
   OraSession.BeginTrans
90 
 
 93 
 
91 
	If flag Then
 94 
   If flag Then
92 
		OraDatabase.ExecuteSQL _
 95 
      OraDatabase.ExecuteSQL _
93 
		"BEGIN  Ripple_Package( :PV_ID, :RTAG_ID, :USER_ID );  END;"
 96 
      "BEGIN  Ripple_Package( :PV_ID, :RTAG_ID, :USER_ID );  END;"
94 
	Else
 97 
   Else
95 
		OraDatabase.ExecuteSQL _
 98 
      OraDatabase.ExecuteSQL _
96 
		"BEGIN  UnRipple_Package( :PV_ID, :RTAG_ID, :USER_ID );  END;"
 99 
      "BEGIN  UnRipple_Package( :PV_ID, :RTAG_ID, :USER_ID );  END;"
97 
	End If
 100 
   End If
98 
 
 101 
 
99 
    OraSession.CommitTrans
 102 
    OraSession.CommitTrans
100 
 
 103 
 
101 
 
 104 
 
102 
	OraDatabase.Parameters.Remove "PV_ID"
 105 
   OraDatabase.Parameters.Remove "PV_ID"
103 
	OraDatabase.Parameters.Remove "RTAG_ID"
 106 
   OraDatabase.Parameters.Remove "RTAG_ID"
104 
	OraDatabase.Parameters.Remove "USER_ID"
 107 
   OraDatabase.Parameters.Remove "USER_ID"
105 
 
 108 
 
106 
End Sub
 109 
End Sub
107 
'------------------------------------------------------------------------------------------------------------------------------------
 110 
'------------------------------------------------------------------------------------------------------------------------------------
108 
Sub Get_Form_Details( nPv_id, ByRef objDetails )
 111 
Sub Get_Form_Details( nPv_id, ByRef objDetails )
109 
	Dim rsTemp, Query_String
 112 
   Dim rsTemp, Query_String
110 
	Query_String = _
 113 
   Query_String = _
111 
	" SELECT * "&_
 114 
   " SELECT * "&_
112 
	"  FROM package_versions pv, packages pkg"&_
 115 
   "  FROM package_versions pv, packages pkg"&_
113 
	" WHERE pv.pkg_id = pkg.pkg_id"&_
 116 
   " WHERE pv.pkg_id = pkg.pkg_id"&_
114 
	"   AND pv_id = "& nPv_id
 117 
   "   AND pv_id = "& nPv_id
115 
 
 118 
 
116 
	Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
 119 
   Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
117 
	If (NOT rsTemp.BOF ) AND (NOT rsTemp.EOF) Then
 120 
   If (NOT rsTemp.BOF ) AND (NOT rsTemp.EOF) Then
118 
		objDetails.Item("pkg_name") 		= rsTemp("pkg_name")
 121 
      objDetails.Item("pkg_name")              = rsTemp("pkg_name")
119 
		objDetails.Item("pkg_version") 		= rsTemp("pkg_version")
 122 
      objDetails.Item("pkg_version")           = rsTemp("pkg_version")
120 
		objDetails.Item("pkg_label") 		= rsTemp("pkg_label")
 123 
      objDetails.Item("pkg_label")             = rsTemp("pkg_label")
121 
		objDetails.Item("src_path") 		= rsTemp("src_path")
 124 
      objDetails.Item("src_path")              = rsTemp("src_path")
122 
		objDetails.Item("pv_description") 	= rsTemp("pv_description")
 125 
      objDetails.Item("pv_description")        = rsTemp("pv_description")
123 
		objDetails.Item("pv_overview") 		= rsTemp("pv_overview")
 126 
      objDetails.Item("pv_overview")           = rsTemp("pv_overview")
124 
		objDetails.Item("v_ext") 			= rsTemp("v_ext")
 127 
      objDetails.Item("v_ext")                 = rsTemp("v_ext")
125 
		objDetails.Item("is_deployable") 	= rsTemp("is_deployable")
 128 
      objDetails.Item("is_deployable")         = rsTemp("is_deployable")
126 
		objDetails.Item("is_build_env_required") 	= rsTemp("is_build_env_required")
 129 
      objDetails.Item("is_build_env_required") = rsTemp("is_build_env_required")
127 
		objDetails.Item("build_type") 		= rsTemp("build_type")
 130 
      objDetails.Item("build_type")            = rsTemp("build_type")
128 
		objDetails.Item("bs_id") 			= rsTemp("bs_id")
 131 
      objDetails.Item("bs_id")                 = rsTemp("bs_id")
129 
		objDetails.Item("ripple_field") 	= rsTemp("ripple_field")
 132 
      objDetails.Item("ripple_field")          = rsTemp("ripple_field")
130 
	End If
 133 
   End If
131 
 
 134 
 
132 
	rsTemp.Close()
 135 
   rsTemp.Close()
133 
	Set rsTemp = Nothing
 136 
   Set rsTemp = Nothing
134 
End Sub
 137 
End Sub
135 
'----------------------------------------------------------------------------------------------------------------------
 138 
'----------------------------------------------------------------------------------------------------------------------
136 
Sub RenderRippleTypeCombo( cRippleType, cDLocked )
 139 
Sub RenderRippleTypeCombo( cRippleType, cDLocked )
137 
 
 140 
 
138 
	Dim criticalSectionIsEditable
 141 
   Dim isEditable
139 
 
 - 
 
140 
	criticalSectionIsEditable = Is_Critical_Section_Editable ( isDLocked )
 - 
 
141 
 
 - 
 
142 
	Query_String = "select * from ripple_field_states"
 - 
 
143 
 
 142 
 
- 
 
 143 
   ' DEVI-49267 - ripple type needs to be changeable by team leaders post release so the permission constraint on
- 
 
 144 
   ' this is relaxed to non-critical info level (See definition of Is_Page_Editable() in common_subs.asp)
- 
 
 145 
   isEditable = Is_Page_Editable ( isDLocked )
- 
 
 146 
 
- 
 
 147 
   Query_String = "select * from ripple_field_states"
- 
 
 148 
 
144 
	If (criticalSectionIsEditable) Then
 149 
   If (isEditable) Then
145 
		Response.Write "<select name='ripple_type_combo' class='form_item'>"
 150 
      Response.Write "<select name='ripple_type_combo' class='form_item'>"
146 
	Else
 151 
   Else
147 
		Response.Write "<select name='ripple_type_combo' class='form_item' disabled>"
 152 
      Response.Write "<select name='ripple_type_combo' class='form_item' disabled>"
148 
	End If
 153 
   End If
149 
 
 154 
 
150 
	Set rsTemp = OraDatabase.CreateDynaset( Query_String, cint(0))
 155 
   Set rsTemp = OraDatabase.CreateDynaset( Query_String, cint(0))
151 
 
 156 
 
152 
	While (NOT rsTemp.BOF) AND (NOT rsTemp.EOF)
 157 
   While (NOT rsTemp.BOF) AND (NOT rsTemp.EOF)
153 
		If cRippleType = rsTemp.Fields("state_acronym") Then
 158 
      If cRippleType = rsTemp.Fields("state_acronym") Then
154 
			Response.write "<option value='"& rsTemp.Fields("state_acronym") &"' selected>"& rsTemp.Fields("state_name") &"</option>"
 159 
         Response.write "<option value='"& rsTemp.Fields("state_acronym") &"' selected>"& rsTemp.Fields("state_name") &"</option>"
155 
		ElseIf IsNull(cRippleType) AND rsTemp.Fields("state_acronym") = "b" Then 'If nothing selected, select Build Number
 160 
      ElseIf IsNull(cRippleType) AND rsTemp.Fields("state_acronym") = "b" Then 'If nothing selected, select Build Number
156 
			Response.write "<option value='"& rsTemp.Fields("state_acronym") &"' selected>"& rsTemp.Fields("state_name") & "</option>"
 161 
         Response.write "<option value='"& rsTemp.Fields("state_acronym") &"' selected>"& rsTemp.Fields("state_name") & "</option>"
157 
		Else
 162 
      Else
158 
			Response.write "<option value='"& rsTemp.Fields("state_acronym") &"'>"& rsTemp.Fields("state_name") & "</option>"
 163 
         Response.write "<option value='"& rsTemp.Fields("state_acronym") &"'>"& rsTemp.Fields("state_name") & "</option>"
159 
		End If
 164 
      End If
160 
		rsTemp.MoveNext
 165 
      rsTemp.MoveNext
161 
	WEnd
 166 
   WEnd
162 
 
 167 
 
163 
	rsTemp.Close()
 168 
   rsTemp.Close()
164 
	Set rsTemp = nothing
 169 
   Set rsTemp = nothing
165 
 
 170 
 
166 
	Response.Write "</select>"
 171 
   Response.Write "</select>"
167 
 
 172 
 
168 
End Sub
 173 
End Sub
169 
'----------------------------------------------------------------------------------------------------------------------
 174 
'----------------------------------------------------------------------------------------------------------------------
170 
%>
 175 
%>
171 
<%
 176 
<%
Line 177... Line 182...
177 
 
 182 
 
178 
'-------------------------------------
 183 
'-------------------------------------
179 
'Start Process Submission
 184 
'Start Process Submission
180 
If CBool(QStrPar("action"))  AND  objAccessControl.UserLogedIn Then
 185 
If CBool(QStrPar("action"))  AND  objAccessControl.UserLogedIn Then
181 
 
 186 
 
182 
	Call UpdateRippleType()
 187 
   Call UpdateRippleType()
183 
 
 188 
 
184 
 
 189 
 
185 
	If NOT CBool(QStrPar("rippleFlag")) AND Request("FRripplebuild") = "1" Then
 190 
   If NOT CBool(QStrPar("rippleFlag")) AND Request("FRripplebuild") = "1" Then
186 
		Call RipplePackage(True)
 191 
      Call RipplePackage(True)
187 
	End If
 192 
   End If
188 
 
 193 
 
189 
	If CBool(QStrPar("rippleFlag")) AND Request("FRripplebuild") = "0" Then
 194 
   If CBool(QStrPar("rippleFlag")) AND Request("FRripplebuild") = "0" Then
190 
		Call RipplePackage(False)
 195 
      Call RipplePackage(False)
191 
	End If
 196 
   End If
192 
 
 197 
 
193 
 
 198 
 
194 
	Call OpenInParentWindow ( "fixed_issues.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id &"&hidenv=true" )
 199 
   Call OpenInParentWindow ( "fixed_issues.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id &"&hidenv=true" )
195 
	Call CloseWindow
 200 
   Call CloseWindow
196 
 
 201 
 
197 
End If
 202 
End If
198 
'End Process Submission
 203 
'End Process Submission
199 
'--------------------------------------------------------------------------------------------
 204 
'--------------------------------------------------------------------------------------------
200 
%>
 205 
%>
Line 210... Line 215...
210 
<script language="JavaScript" src="images/tipster.js"></script>
 215 
<script language="JavaScript" src="images/tipster.js"></script>
211 
<script language="JavaScript" src="images/_help_tips.js"></script>
 216 
<script language="JavaScript" src="images/_help_tips.js"></script>
212 
<script language="JavaScript" type="text/JavaScript">
 217 
<script language="JavaScript" type="text/JavaScript">
213 
<!--
 218 
<!--
214 
function MM_reloadPage(init) {  //reloads the window if Nav4 resized
 219 
function MM_reloadPage(init) {  //reloads the window if Nav4 resized
215 
  if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
 220 
   if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
216 
    document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
 221 
      document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
217 
  else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
 222 
   else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
218 
}
 223 
}
219 
MM_reloadPage(true);
 224 
MM_reloadPage(true);
220 
//-->
 225 
//-->
221 
</script>
 226 
</script>
222 
</head>
 227 
</head>
223 
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" onload="self.focus();">
 228 
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" onload="self.focus();">
224 
<!-- TIPS LAYERS -------------------------------------->
 229 
<!-- TIPS LAYERS -------------------------------------->
225 
<div id="formTipsLayer" style="position: absolute; z-index: 1000; visibility: hidden; left:0; top: 0; width: 10">&nbsp;</div>
 230 
<div id="formTipsLayer" style="position: absolute; z-index: 1000; visibility: hidden; left:0; top: 0; width: 10">&nbsp;</div>
226 
<!----------------------------------------------------->
 231 
<!----------------------------------------------------->
227 
<form name="rippleproperties" method="post" action="<%=scriptName%>">
 232 
<form name="rippleproperties" method="post" action="<%=scriptName%>">
228 
  <table width="100%" border="0" cellspacing="0" cellpadding="2" height="100%">
 233 
   <table width="100%" border="0" cellspacing="0" cellpadding="2" height="100%">
229 
    <tr>
 234 
      <tr>
230 
      <td background="images/lbox_bg_orange.gif" width="1%" height="1%"><img src="icons/i_pkg_ripple_type.gif" width="21" height="21" hspace="5" border="0"></td>
 235 
         <td background="images/lbox_bg_orange.gif" width="1%" height="1%"><img src="icons/i_pkg_ripple_type.gif" width="21" height="21" hspace="5" border="0"></td>
231 
      <td background="images/lbox_bg_blue.gif" nowrap width="50%" class="wform_ttl">&nbsp;Ripple Properties </td>
 236 
         <td background="images/lbox_bg_blue.gif" nowrap width="50%" class="wform_ttl">&nbsp;Ripple Properties </td>
232 
      <td background="images/lbox_bg_blue.gif" align="right" width="50%">
 237 
         <td background="images/lbox_bg_blue.gif" align="right" width="50%">
233 
        <input type="submit" name="btn" value="Submit" class="form_btn_comp">
 238 
            <input type="submit" name="btn" value="Submit" class="form_btn_comp">
234 
        <input type="reset" name="btn" value="Cancel" class="form_btn_comp" onclick="self.close()">
 239 
            <input type="reset" name="btn" value="Cancel" class="form_btn_comp" onclick="self.close()">
235 
      </td>
 240 
         </td>
236 
      <td background="images/lbox_bg_blue.gif" align="right" width="1%" nowrap>
 241 
         <td background="images/lbox_bg_blue.gif" align="right" width="1%" nowrap>
237 
        <img src="images/h_trsp_dot.gif" width="5" height="22"> </td>
 242 
            <img src="images/h_trsp_dot.gif" width="5" height="22">
238 
    </tr>
 243 
         </td>
239 
    <tr>
 244 
      </tr>
240 
      <td height="100%" width="1%">&nbsp;</td>
 245 
      <tr>
241 
      <td valign="top" nowrap colspan="3" class="wform_ttl" background="images/bg_form_lightgray.gif">
 246 
         <td height="100%" width="1%">&nbsp;</td>
242 
        <table width="100%" border="0" cellspacing="1" cellpadding="2">
 247 
         <td valign="top" nowrap colspan="3" class="wform_ttl" background="images/bg_form_lightgray.gif">
243 
          <tr>
 248 
            <table width="100%" border="0" cellspacing="1" cellpadding="2">
244 
            <td width="1%"><img src="images/h_trsp_dot.gif" width="10" height="30"></td>
 249 
               <tr>
245 
            <td width="1%" nowrap class="form_group" valign="bottom"></td>
 250 
                  <td width="1%"><img src="images/h_trsp_dot.gif" width="10" height="30"></td>
246 
            <td nowrap width="1%">&nbsp; </td>
 251 
                  <td width="1%" nowrap class="form_group" valign="bottom"></td>
247 
            <td nowrap width="100%">&nbsp;</td>
 252 
                  <td nowrap width="1%">&nbsp; </td>
248 
          </tr>
 253 
                  <td nowrap width="100%">&nbsp;</td>
249 
          <tr>
 254 
               </tr>
250 
            <td>&nbsp;</td>
 255 
               <tr>
251 
            <td nowrap class="form_field" background="images/bg_form_lightbluedark.gif">Build Inclusion?<%=Quick_Help ( "ripple_build" )%></td>
 256 
                  <td>&nbsp;</td>
252 
			<%
 257 
                  <td nowrap class="form_field" background="images/bg_form_lightbluedark.gif">Build Inclusion?<%=Quick_Help ( "ripple_build" )%></td>
253 
			FRripplebuildYES = ""
 258 
                  <%
254 
			FRripplebuildNO = ""
 259 
                  FRripplebuildYES = ""
255 
 
 260 
                  FRripplebuildNO = ""
256 
			Dim rsQryRipple, rippleFlag
 261 
                  ' disabled="disabled" indicates the pv has been excluded indirectly
257 
			Set rsQryRipple = OraDatabase.DbCreateDynaset( "SELECT * FROM DO_NOT_RIPPLE WHERE RTAG_ID ="& parRtag_id &"AND PV_ID ="& parPv_id, cint(0))
 262 
                  ' this is due to another pv (the root_pv_id) being excluded directly
258 
 
 263 
                  ' allowing it to be included is somewhat pointless
259 
 
 264 
                  ' fixing the root cause is a somewhat better approach
260 
 
 265 
                  Dim disabled
261 
			If rsQryRipple.RecordCount = 0  Then
 266 
                  disabled="disabled"
262 
				FRripplebuildYES = "checked"
 267 
 
263 
				rippleFlag = True
 268 
                  Dim rsQryRipple, rippleFlag
264 
			Else
 269 
                  Set rsQryRipple = OraDatabase.DbCreateDynaset( "SELECT root_pv_id FROM DO_NOT_RIPPLE WHERE RTAG_ID ="& parRtag_id &"AND PV_ID ="& parPv_id, cint(0))
265 
				FRripplebuildNO = "checked"
 270 
 
266 
				rippleFlag = False
 271 
                  If rsQryRipple.RecordCount = 0  Then
267 
			End If
 272 
                     FRripplebuildYES = "checked"
268 
 
 273 
                     rippleFlag = True
269 
			rsQryRipple.Close()
 274 
                     ' do not disable the default
270 
			Set rsQryRipple = nothing
 275 
                     disabled=""
271 
 
 276 
                  Else
272 
			%>
 277 
                     If isNull(rsQryRipple("root_pv_id")) Then
273 
            <td nowrap background="images/bg_form_lightbluedark.gif" class="form_txt">Yes<input name="FRripplebuild" type="radio" value="1" <%=FRripplebuildYES%>>
 278 
                        ' pv has been excluded directly
274 
              &nbsp;&nbsp;No<input name="FRripplebuild" type="radio" value="0" <%=FRripplebuildNO%>></td>
 279 
                        ' ie has a null pv_id
275 
            <td background="images/bg_form_lightbluedark.gif"><span class='err_alert'><b>WARNING!</span><font size='1'> When set to No, this package and <u>all</u> packages which depend on this package, either directly or indirectly, will be excluded from the build.</font></b></td>
 280 
                        ' once fixed, pv should be included ie do not disable
276 
          </tr>
 281 
                        disabled=""
277 
          <tr>
 282 
                     End If
278 
            <td>&nbsp;</td>
 283 
                     FRripplebuildNO = "checked"
279 
            <td valign="top" nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Ripple Type?<%=Quick_Help ( "ripple_type" )%></td>
 284 
                     rippleFlag = False
280 
            <td nowrap background="images/bg_form_lightbluedark.gif" class="form_txt">
 285 
                  End If
281 
 
 286 
 
282 
			  <table width="100%" border="0" cellspacing="0" cellpadding="0">
 287 
                  rsQryRipple.Close()
283 
				<tr>
 288 
                  Set rsQryRipple = nothing
284 
				  <td bgcolor="#FFFFFF">
 289 
 
285 
				   <table width="100" border="0" cellpadding="3" cellspacing="0" background="images/bg_form_lightbluedark.gif">
 290 
                  %>
286 
					<tr>
 291 
                  <td nowrap background="images/bg_form_lightbluedark.gif" class="form_txt">Yes
287 
					  <td nowrap background="images/bg_form_lightbluedark.gif" bgcolor="#F5F5F5" class="form_txt"><% Call RenderRippleTypeCombo( objFormCollector.Item("ripple_field"), isDLocked )%></td>
 292 
                     <input name="FRripplebuild" type="radio" value="1" <%=FRripplebuildYES%>  <%=disabled%>>
288 
					</tr>
 293 
                     &nbsp;&nbsp;No<input name="FRripplebuild" type="radio" value="0" <%=FRripplebuildNO%>>
289 
				   <tr>
 294 
                  </td>
290 
					  <td width="1" background="images/bg_form_lightbluedark.gif"></td>
 295 
                  <td background="images/bg_form_lightbluedark.gif">
291 
					  <td width="1"></td>
 296 
                     <span class='err_alert'><b>WARNING!</span>
292 
					  <td width="100%"></td>
 297 
                     <font size='1'>
293 
					</tr>
 298 
                        When set to No, this package and <u>all</u> packages which depend on this package, either directly or indirectly,
294 
				  </table></td>
 299 
                        will be excluded from the build. When the Yes option is disabled, indicates this package has been excluded indirectly.
295 
				</tr>
 300 
                     </font></b>
296 
			  </table>
 301 
                  </td>
297 
 
 302 
               </tr>
298 
			</td>
 303 
               <tr>
299 
            <td background="images/bg_form_lightbluedark.gif"><span class='err_alert'><b>WARNING!</span><font size='1'> This enables a package to advertise how it will be numbered when rippled. THIS IS PRIMARILY INTENDED TO CATER FOR PACKAGES WHICH DO NOT SUPPORT A NON ZERO PATCH/BUILD NUMBER, AND FOR PRODUCTS
 304 
                  <td>&nbsp;</td>
300 
			WHERE CONSTANTLY RIPPLING A PATCH/BUILD NUMBER IS DISLIKED BY A CUSTOMER.</font></b></td>
 305 
                  <td valign="top" nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Ripple Type?<%=Quick_Help ( "ripple_type" )%></td>
301 
          </tr>
 306 
                  <td nowrap background="images/bg_form_lightbluedark.gif" class="form_txt">
302 
          <tr>
 307 
 
303 
            <td>&nbsp;</td>
 308 
                     <table width="100%" border="0" cellspacing="0" cellpadding="0">
304 
            <td nowrap class="form_field"><img src="images/h_trsp_dot.gif" width="100" height="10"></td>
 309 
                        <tr>
305 
            <td nowrap> <p>&nbsp;</p></td>
 310 
                           <td bgcolor="#FFFFFF">
306 
            <td nowrap>&nbsp;</td>
 311 
                              <table width="100" border="0" cellpadding="3" cellspacing="0" background="images/bg_form_lightbluedark.gif">
307 
          </tr>
 312 
                                 <tr>
308 
        </table>
 313 
                                    <td nowrap background="images/bg_form_lightbluedark.gif" bgcolor="#F5F5F5" class="form_txt">
309 
      </td>
 314 
                                       <% Call RenderRippleTypeCombo( objFormCollector.Item("ripple_field"), isDLocked )%>
310 
    </tr>
 315 
                                    </td>
311 
    <tr>
 316 
                                 </tr>
312 
      <td height="1%" width="1%"><img src="images/h_trsp_dot.gif" width="5" height="5"></td>
 317 
                                 <tr>
313 
      <td valign="top" nowrap colspan="3" class="wform_ttl" background="images/lbox_bg_blue.gif"></td>
 318 
                                    <td width="1" background="images/bg_form_lightbluedark.gif"></td>
314 
    </tr>
 319 
                                    <td width="1"></td>
315 
  </table>
 320 
                                    <td width="100%"></td>
- 
 
 321 
                                 </tr>
- 
 
 322 
                              </table>
- 
 
 323 
                           </td>
- 
 
 324 
                        </tr>
- 
 
 325 
                     </table>
- 
 
 326 
                  </td>
- 
 
 327 
 
- 
 
 328 
                  <td background="images/bg_form_lightbluedark.gif">
- 
 
 329 
                     <span class='err_alert'><b>WARNING!</span>
- 
 
 330 
                     <font size='1'> This enables a package to advertise how it will be numbered when rippled.
- 
 
 331 
                        THIS IS PRIMARILY INTENDED TO CATER FOR PACKAGES WHICH DO NOT SUPPORT A NON ZERO PATCH/BUILD NUMBER,
- 
 
 332 
                        AND FOR PRODUCTS WHERE CONSTANTLY RIPPLING A PATCH/BUILD NUMBER IS DISLIKED BY A CUSTOMER.
- 
 
 333 
                     </font></b>
- 
 
 334 
                  </td>
- 
 
 335 
               </tr>
- 
 
 336 
               <tr>
- 
 
 337 
                  <td>&nbsp;</td>
- 
 
 338 
                  <td nowrap class="form_field"><img src="images/h_trsp_dot.gif" width="100" height="10"></td>
- 
 
 339 
                  <td nowrap> <p>&nbsp;</p></td>
- 
 
 340 
                  <td nowrap>&nbsp;</td>
- 
 
 341 
               </tr>
- 
 
 342 
            </table>
- 
 
 343 
        </td>
- 
 
 344 
      </tr>
- 
 
 345 
      <tr>
- 
 
 346 
         <td height="1%" width="1%"><img src="images/h_trsp_dot.gif" width="5" height="5"></td>
- 
 
 347 
         <td valign="top" nowrap colspan="3" class="wform_ttl" background="images/lbox_bg_blue.gif"></td>
- 
 
 348 
      </tr>
- 
 
 349 
   </table>
316 
<input type="hidden" name="pv_id" value="<%=parPv_id%>">
 350 
<input type="hidden" name="pv_id" value="<%=parPv_id%>">
317 
<input type="hidden" name="rtag_id" value="<%=parRtag_id%>">
 351 
<input type="hidden" name="rtag_id" value="<%=parRtag_id%>">
318 
<input type="hidden" name="rippleFlag" value="<%=rippleFlag%>">
 352 
<input type="hidden" name="rippleFlag" value="<%=rippleFlag%>">
319 
<input type="hidden" name="action" value="true">
 353 
<input type="hidden" name="action" value="true">
320 
</form>
 354 
</form>