| Line 58... |
Line 58... |
| 58 |
If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
|
58 |
If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
|
| 59 |
outobjDetails.Item ("seq_num") = rsQry("seq_num")
|
59 |
outobjDetails.Item ("seq_num") = rsQry("seq_num")
|
| 60 |
outobjDetails.Item ("prod_id") = rsQry("prod_id")
|
60 |
outobjDetails.Item ("prod_id") = rsQry("prod_id")
|
| 61 |
outobjDetails.Item ("pkg_id") = rsQry("pkg_id")
|
61 |
outobjDetails.Item ("pkg_id") = rsQry("pkg_id")
|
| 62 |
outobjDetails.Item ("pkg_name") = rsQry("pkg_name")
|
62 |
outobjDetails.Item ("pkg_name") = rsQry("pkg_name")
|
| - |
|
63 |
outobjDetails.Item ("is_node_spec") = rsQry("is_node_spec")
|
| - |
|
64 |
outobjDetails.Item ("sunos_electronic_name") = rsQry("sunos_electronic_name")
|
| - |
|
65 |
outobjDetails.Item ("win_electronic_name") = rsQry("win_electronic_name")
|
| 63 |
outobjDetails.Item ("pkg_version") = rsQry("pkg_version")
|
66 |
outobjDetails.Item ("pkg_version") = rsQry("pkg_version")
|
| 64 |
outobjDetails.Item ("product_comments") = rsQry("product_comments")
|
67 |
outobjDetails.Item ("product_comments") = rsQry("product_comments")
|
| 65 |
|
68 |
|
| 66 |
If nBaseEnvId = "" Then
|
69 |
If nBaseEnvId = "" Then
|
| 67 |
outobjDetails.Item ("os_id") = rsQry("os_id")
|
70 |
outobjDetails.Item ("os_id") = rsQry("os_id")
|
| Line 199... |
Line 202... |
| 199 |
OraDatabase.Parameters.Add "OLD_PROD_ID", Request("prod_id_list"), ORAPARM_INPUT, ORATYPE_NUMBER
|
202 |
OraDatabase.Parameters.Add "OLD_PROD_ID", Request("prod_id_list"), ORAPARM_INPUT, ORATYPE_NUMBER
|
| 200 |
OraDatabase.Parameters.Add "NEW_PROD_VERSION", Request("new_prod_version"), ORAPARM_INPUT, ORATYPE_VARCHAR2
|
203 |
OraDatabase.Parameters.Add "NEW_PROD_VERSION", Request("new_prod_version"), ORAPARM_INPUT, ORATYPE_VARCHAR2
|
| 201 |
OraDatabase.Parameters.Add "OS_ID", Request("os_id"), ORAPARM_INPUT, ORATYPE_NUMBER
|
204 |
OraDatabase.Parameters.Add "OS_ID", Request("os_id"), ORAPARM_INPUT, ORATYPE_NUMBER
|
| 202 |
OraDatabase.Parameters.Add "SEQ_NUM", Request("seq_num"), ORAPARM_INPUT, ORATYPE_NUMBER
|
205 |
OraDatabase.Parameters.Add "SEQ_NUM", Request("seq_num"), ORAPARM_INPUT, ORATYPE_NUMBER
|
| 203 |
OraDatabase.Parameters.Add "PROD_COMMENTS", Request("product_comments"),ORAPARM_INPUT, ORATYPE_VARCHAR2
|
206 |
OraDatabase.Parameters.Add "PROD_COMMENTS", Request("product_comments"),ORAPARM_INPUT, ORATYPE_VARCHAR2
|
| - |
|
207 |
OraDatabase.Parameters.Add "SUNOS_ELECTRONIC_NAME", Request("sunos_electronic_name"),ORAPARM_INPUT, ORATYPE_VARCHAR2
|
| - |
|
208 |
OraDatabase.Parameters.Add "WIN_ELECTRONIC_NAME", Request("win_electronic_name"),ORAPARM_INPUT, ORATYPE_VARCHAR2
|
| - |
|
209 |
OraDatabase.Parameters.Add "IS_NODE_SPEC", Request("is_node_spec"),ORAPARM_INPUT, ORATYPE_VARCHAR2
|
| 204 |
|
210 |
|
| 205 |
|
211 |
|
| 206 |
objEH.TryORA ( OraSession )
|
212 |
objEH.TryORA ( OraSession )
|
| 207 |
|
213 |
|
| 208 |
OraDatabase.ExecuteSQL _
|
214 |
OraDatabase.ExecuteSQL _
|
| 209 |
"BEGIN pk_Product.Update_Product ( :OLD_PROD_ID, :NEW_PROD_VERSION, :OS_ID, :SEQ_NUM, :PROD_COMMENTS ); END;"
|
215 |
"BEGIN pk_Product.Update_Product ( :OLD_PROD_ID, :NEW_PROD_VERSION, :OS_ID, :SEQ_NUM, :PROD_COMMENTS, :SUNOS_ELECTRONIC_NAME, :WIN_ELECTRONIC_NAME, :IS_NODE_SPEC ); END;"
|
| 210 |
|
216 |
|
| 211 |
objEH.CatchORA ( OraSession )
|
217 |
objEH.CatchORA ( OraSession )
|
| 212 |
|
218 |
|
| 213 |
|
219 |
|
| 214 |
OraDatabase.Parameters.Remove "OLD_PROD_ID"
|
220 |
OraDatabase.Parameters.Remove "OLD_PROD_ID"
|
| 215 |
OraDatabase.Parameters.Remove "NEW_PROD_VERSION"
|
221 |
OraDatabase.Parameters.Remove "NEW_PROD_VERSION"
|
| 216 |
OraDatabase.Parameters.Remove "OS_ID"
|
222 |
OraDatabase.Parameters.Remove "OS_ID"
|
| 217 |
OraDatabase.Parameters.Remove "SEQ_NUM"
|
223 |
OraDatabase.Parameters.Remove "SEQ_NUM"
|
| 218 |
OraDatabase.Parameters.Remove "PROD_COMMENTS"
|
224 |
OraDatabase.Parameters.Remove "PROD_COMMENTS"
|
| - |
|
225 |
OraDatabase.Parameters.Remove "SUNOS_ELECTRONIC_NAME"
|
| - |
|
226 |
OraDatabase.Parameters.Remove "WIN_ELECTRONIC_NAME"
|
| - |
|
227 |
OraDatabase.Parameters.Remove "IS_NODE_SPEC"
|
| 219 |
|
228 |
|
| 220 |
End Sub
|
229 |
End Sub
|
| 221 |
'--------------------------------------------------------------------------------------------------------------------------
|
230 |
'--------------------------------------------------------------------------------------------------------------------------
|
| 222 |
Sub UpdateProdAtBaseEnv ()
|
231 |
Sub UpdateProdAtBaseEnv ()
|
| 223 |
On Error Resume Next
|
232 |
On Error Resume Next
|
| Line 225... |
Line 234... |
| 225 |
OraDatabase.Parameters.Add "OLD_PROD_ID", Request("prod_id_list"), ORAPARM_INPUT, ORATYPE_NUMBER
|
234 |
OraDatabase.Parameters.Add "OLD_PROD_ID", Request("prod_id_list"), ORAPARM_INPUT, ORATYPE_NUMBER
|
| 226 |
OraDatabase.Parameters.Add "NEW_PROD_VERSION", Request("new_prod_version"), ORAPARM_INPUT, ORATYPE_VARCHAR2
|
235 |
OraDatabase.Parameters.Add "NEW_PROD_VERSION", Request("new_prod_version"), ORAPARM_INPUT, ORATYPE_VARCHAR2
|
| 227 |
OraDatabase.Parameters.Add "BASE_ENV_ID", Request("base_env_id"), ORAPARM_INPUT, ORATYPE_NUMBER
|
236 |
OraDatabase.Parameters.Add "BASE_ENV_ID", Request("base_env_id"), ORAPARM_INPUT, ORATYPE_NUMBER
|
| 228 |
OraDatabase.Parameters.Add "SEQ_NUM", Request("seq_num"), ORAPARM_INPUT, ORATYPE_NUMBER
|
237 |
OraDatabase.Parameters.Add "SEQ_NUM", Request("seq_num"), ORAPARM_INPUT, ORATYPE_NUMBER
|
| 229 |
OraDatabase.Parameters.Add "PROD_COMMENTS", Request("product_comments"),ORAPARM_INPUT, ORATYPE_VARCHAR2
|
238 |
OraDatabase.Parameters.Add "PROD_COMMENTS", Request("product_comments"),ORAPARM_INPUT, ORATYPE_VARCHAR2
|
| - |
|
239 |
OraDatabase.Parameters.Add "SUNOS_ELECTRONIC_NAME", Request("sunos_electronic_name"),ORAPARM_INPUT, ORATYPE_VARCHAR2
|
| - |
|
240 |
OraDatabase.Parameters.Add "WIN_ELECTRONIC_NAME", Request("win_electronic_name"),ORAPARM_INPUT, ORATYPE_VARCHAR2
|
| 230 |
|
241 |
|
| 231 |
|
242 |
|
| 232 |
objEH.TryORA ( OraSession )
|
243 |
objEH.TryORA ( OraSession )
|
| 233 |
|
244 |
|
| 234 |
OraDatabase.ExecuteSQL _
|
245 |
OraDatabase.ExecuteSQL _
|
| 235 |
"BEGIN pk_Base_Env.Update_Product ( :OLD_PROD_ID, :NEW_PROD_VERSION, :BASE_ENV_ID, :SEQ_NUM, :PROD_COMMENTS ); END;"
|
246 |
"BEGIN pk_Base_Env.Update_Product ( :OLD_PROD_ID, :NEW_PROD_VERSION, :BASE_ENV_ID, :SEQ_NUM, :PROD_COMMENTS, :SUNOS_ELECTRONIC_NAME, :WIN_ELECTRONIC_NAME ); END;"
|
| 236 |
|
247 |
|
| 237 |
objEH.CatchORA ( OraSession )
|
248 |
objEH.CatchORA ( OraSession )
|
| 238 |
|
249 |
|
| 239 |
|
250 |
|
| 240 |
OraDatabase.Parameters.Remove "OLD_PROD_ID"
|
251 |
OraDatabase.Parameters.Remove "OLD_PROD_ID"
|
| 241 |
OraDatabase.Parameters.Remove "NEW_PROD_VERSION"
|
252 |
OraDatabase.Parameters.Remove "NEW_PROD_VERSION"
|
| 242 |
OraDatabase.Parameters.Remove "BASE_ENV_ID"
|
253 |
OraDatabase.Parameters.Remove "BASE_ENV_ID"
|
| 243 |
OraDatabase.Parameters.Remove "SEQ_NUM"
|
254 |
OraDatabase.Parameters.Remove "SEQ_NUM"
|
| 244 |
OraDatabase.Parameters.Remove "PROD_COMMENTS"
|
255 |
OraDatabase.Parameters.Remove "PROD_COMMENTS"
|
| - |
|
256 |
OraDatabase.Parameters.Remove "SUNOS_ELECTRONIC_NAME"
|
| - |
|
257 |
OraDatabase.Parameters.Remove "WIN_ELECTRONIC_NAME"
|
| 245 |
|
258 |
|
| 246 |
End Sub
|
259 |
End Sub
|
| 247 |
'--------------------------------------------------------------------------------------------------------------------------
|
260 |
'--------------------------------------------------------------------------------------------------------------------------
|
| 248 |
%>
|
261 |
%>
|
| 249 |
<%
|
262 |
<%
|
| Line 333... |
Line 346... |
| 333 |
<tr>
|
346 |
<tr>
|
| 334 |
<td nowrap class="form_iname" valign="top">Product Name</td>
|
347 |
<td nowrap class="form_iname" valign="top">Product Name</td>
|
| 335 |
<td valign="top"><%=objFormComponent.TextBox ( "pkg_name", objFormCollector.Item("pkg_name"), "size='70' class='form_ivalue' disabled" )%></td>
|
348 |
<td valign="top"><%=objFormComponent.TextBox ( "pkg_name", objFormCollector.Item("pkg_name"), "size='70' class='form_ivalue' disabled" )%></td>
|
| 336 |
<td valign="top"></td>
|
349 |
<td valign="top"></td>
|
| 337 |
</tr>
|
350 |
</tr>
|
| - |
|
351 |
<tr>
|
| - |
|
352 |
<td nowrap class="form_iname" valign="top">SunOS Electronic Name</td>
|
| - |
|
353 |
<td valign="top"><%=objFormComponent.TextBox ( "sunos_electronic_name", objFormCollector.Item("sunos_electronic_name"), "size='70' class='form_ivalue'" )%></td>
|
| - |
|
354 |
<td valign="top"></td>
|
| - |
|
355 |
</tr>
|
| - |
|
356 |
<tr>
|
| - |
|
357 |
<td nowrap class="form_iname" valign="top">Windows Electronic Name</td>
|
| - |
|
358 |
<td valign="top"><%=objFormComponent.TextBox ( "win_electronic_name", objFormCollector.Item("win_electronic_name"), "size='70' class='form_ivalue'" )%></td>
|
| - |
|
359 |
<td valign="top"></td>
|
| - |
|
360 |
</tr>
|
| - |
|
361 |
<tr>
|
| - |
|
362 |
<td nowrap class="form_iname" valign="top">Include In Node Spec File</td>
|
| - |
|
363 |
<%If IsNull(objFormCollector.Item("is_node_spec")) Then%>
|
| - |
|
364 |
<td valign="top"><input type="checkbox" name="is_node_spec"></td>
|
| - |
|
365 |
<%Else%>
|
| - |
|
366 |
<td valign="top"><input type="checkbox" name="is_node_spec" checked></td>
|
| - |
|
367 |
<%End If%>
|
| - |
|
368 |
<td valign="top"></td>
|
| - |
|
369 |
</tr>
|
| - |
|
370 |
|
| 338 |
<tr>
|
371 |
<tr>
|
| 339 |
<td nowrap class="form_iname" valign="top">Version</td>
|
372 |
<td nowrap class="form_iname" valign="top">Version</td>
|
| 340 |
<td valign="top"><%
|
373 |
<td valign="top"><%
|
| 341 |
Call GetProductVersions( aRs, MoreLink )
|
374 |
Call GetProductVersions( aRs, MoreLink )
|
| 342 |
ForceDropdown = FALSE
|
375 |
ForceDropdown = FALSE
|
| 343 |
If IsNull(MoreLink) AND (parFilter_on <> "") Then ForceDropdown = TRUE
|
376 |
If IsNull(MoreLink) AND (parFilter_on <> "") Then ForceDropdown = TRUE
|
| 344 |
|
377 |
|
| 345 |
Response.write objFormComponent.ComboWithTextAndFilter ( "new_prod_version", objForm.GetValue( "new_prod_version", objFormCollector.Item("pkg_version")), aRs, "size='30' class='form_ivalue'", MoreLink, ForceDropdown )
|
378 |
Response.write objFormComponent.ComboWithTextAndFilter ( "new_prod_version", objForm.GetValue( "new_prod_version", objFormCollector.Item("pkg_version")), aRs, "size='30' class='form_ivalue'", MoreLink, ForceDropdown )
|
| - |
|
379 |
|
| 346 |
%></td>
|
380 |
%></td>
|
| 347 |
<td valign="top"></td>
|
381 |
<td valign="top"></td>
|
| 348 |
</tr>
|
382 |
</tr>
|
| 349 |
<tr>
|
383 |
<tr>
|
| 350 |
<td valign="top" nowrap class="form_iname">Comments</td>
|
384 |
<td valign="top" nowrap class="form_iname">Comments</td>
|