Subversion Repositories DevTools

Rev

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

Rev 19 Rev 23
Line 24... Line 24...
24 
Dim aRs
 24 
Dim aRs
25 
Dim MoreLink
 25 
Dim MoreLink
26 
Dim parFilter_on
 26 
Dim parFilter_on
27 
Dim ForceDropdown
 27 
Dim ForceDropdown
28 
Dim parBase_env_id
 28 
Dim parBase_env_id
- 
 
 29 
Dim rsTemp
29 
'------------ CONSTANTS DECLARATION -----------
 30 
'------------ CONSTANTS DECLARATION -----------
30 
'------------ VARIABLE INIT -------------------
 31 
'------------ VARIABLE INIT -------------------
31 
parProd_id = Request("prod_id_list")
 32 
parProd_id = Request("prod_id_list")
32 
parOs_id = Request("os_id")
 33 
parOs_id = Request("os_id")
33 
parBom_id = Request("bom_id")
 34 
parBom_id = Request("bom_id")
Line 210... Line 211...
210 
	OraDatabase.Parameters.Add "SUNOS_ELECTRONIC_NAME", Request("sunos_electronic_name"),ORAPARM_INPUT, ORATYPE_VARCHAR2
211 
	OraDatabase.Parameters.Add "SUNOS_ELECTRONIC_NAME", Request("sunos_electronic_name"),ORAPARM_INPUT, ORATYPE_VARCHAR2
211 
	OraDatabase.Parameters.Add "WIN_ELECTRONIC_NAME", Request("win_electronic_name"),ORAPARM_INPUT, ORATYPE_VARCHAR2
212 
	OraDatabase.Parameters.Add "WIN_ELECTRONIC_NAME", Request("win_electronic_name"),ORAPARM_INPUT, ORATYPE_VARCHAR2
212 
	OraDatabase.Parameters.Add "IS_NODE_SPEC", Request("is_node_spec"),ORAPARM_INPUT, ORATYPE_VARCHAR2
213 
	OraDatabase.Parameters.Add "IS_NODE_SPEC", Request("is_node_spec"),ORAPARM_INPUT, ORATYPE_VARCHAR2
213 
	OraDatabase.Parameters.Add "NOT_XML", 	Request("not_xml"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
214 
	OraDatabase.Parameters.Add "NOT_XML", 	Request("not_xml"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
214 
	OraDatabase.Parameters.Add "PATCH_ELECTRONIC_NAME", Request("patch_electronic_name"),ORAPARM_INPUT, ORATYPE_VARCHAR2
215 
	OraDatabase.Parameters.Add "PATCH_ELECTRONIC_NAME", Request("patch_electronic_name"),ORAPARM_INPUT, ORATYPE_VARCHAR2
215
- 
 
- 
 
 216 
	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId, 			ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
 217 
	OraDatabase.Parameters.Add "COMMENT", "Updated Package "&objFormCollector.Item("pkg_name")&" to Version:"&Request("new_prod_version"),ORAPARM_INPUT, ORATYPE_VARCHAR2
216
218
217 
	objEH.TryORA ( OraSession )
 219 
	objEH.TryORA ( OraSession )
218
220
219 
	OraDatabase.ExecuteSQL _
 221 
	OraDatabase.ExecuteSQL _
220 
	"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, :NOT_XML, :PATCH_ELECTRONIC_NAME ); END;"
222 
	"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, :NOT_XML, :PATCH_ELECTRONIC_NAME ); END;"
221
223
222 
	objEH.CatchORA ( OraSession )
 224 
	objEH.CatchORA ( OraSession )
223
225
- 
 
 226 
	objEH.TryORA ( OraSession )
- 
 
 227
- 
 
 228 
	OraDatabase.ExecuteSQL _
- 
 
 229 
	"BEGIN pk_Bom.Log_Os_Trail ( :OS_ID, :COMMENT, :USER_ID  ); END;"
- 
 
 230
- 
 
 231 
	objEH.CatchORA ( OraSession )
- 
 
 232
224
233
225 
	OraDatabase.Parameters.Remove "OLD_PROD_ID"
 234 
	OraDatabase.Parameters.Remove "OLD_PROD_ID"
226 
	OraDatabase.Parameters.Remove "NEW_PROD_VERSION"
 235 
	OraDatabase.Parameters.Remove "NEW_PROD_VERSION"
227 
	OraDatabase.Parameters.Remove "OS_ID"
 236 
	OraDatabase.Parameters.Remove "OS_ID"
228 
	OraDatabase.Parameters.Remove "SEQ_NUM"
 237 
	OraDatabase.Parameters.Remove "SEQ_NUM"
229 
	OraDatabase.Parameters.Remove "PROD_COMMENTS"
 238 
	OraDatabase.Parameters.Remove "PROD_COMMENTS"
230 
	OraDatabase.Parameters.Remove "SUNOS_ELECTRONIC_NAME"
239 
	OraDatabase.Parameters.Remove "SUNOS_ELECTRONIC_NAME"
231 
	OraDatabase.Parameters.Remove "WIN_ELECTRONIC_NAME"
 240 
	OraDatabase.Parameters.Remove "WIN_ELECTRONIC_NAME"
232 
	OraDatabase.Parameters.Remove "IS_NODE_SPEC"
241 
	OraDatabase.Parameters.Remove "IS_NODE_SPEC"
233 
	OraDatabase.Parameters.Remove "NOT_XML"
242 
	OraDatabase.Parameters.Remove "NOT_XML"
234 
	OraDatabase.Parameters.Remove "PATCH_ELECTRONIC_NAME"
243 
	OraDatabase.Parameters.Remove "PATCH_ELECTRONIC_NAME"
- 
 
 244 
	OraDatabase.Parameters.Remove "USER_ID"
- 
 
 245 
	OraDatabase.Parameters.Remove "COMMENT"
235
246
236 
End Sub
 247 
End Sub
237 
'--------------------------------------------------------------------------------------------------------------------------
 248 
'--------------------------------------------------------------------------------------------------------------------------
238 
Sub UpdateProdAtBaseEnv ()
 249 
Sub UpdateProdAtBaseEnv ()
239 
	On Error Resume Next
 250 
	On Error Resume Next
Line 245... Line 256...
245 
	OraDatabase.Parameters.Add "PROD_COMMENTS", Request("product_comments"),ORAPARM_INPUT, ORATYPE_VARCHAR2
 256 
	OraDatabase.Parameters.Add "PROD_COMMENTS", Request("product_comments"),ORAPARM_INPUT, ORATYPE_VARCHAR2
246 
	OraDatabase.Parameters.Add "SUNOS_ELECTRONIC_NAME", Request("sunos_electronic_name"),ORAPARM_INPUT, ORATYPE_VARCHAR2
257 
	OraDatabase.Parameters.Add "SUNOS_ELECTRONIC_NAME", Request("sunos_electronic_name"),ORAPARM_INPUT, ORATYPE_VARCHAR2
247 
	OraDatabase.Parameters.Add "WIN_ELECTRONIC_NAME", Request("win_electronic_name"),ORAPARM_INPUT, ORATYPE_VARCHAR2
258 
	OraDatabase.Parameters.Add "WIN_ELECTRONIC_NAME", Request("win_electronic_name"),ORAPARM_INPUT, ORATYPE_VARCHAR2
248 
	OraDatabase.Parameters.Add "NOT_XML", 	Request("not_xml"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
259 
	OraDatabase.Parameters.Add "NOT_XML", 	Request("not_xml"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
249 
	OraDatabase.Parameters.Add "PATCH_ELECTRONIC_NAME", Request("patch_electronic_name"),ORAPARM_INPUT, ORATYPE_VARCHAR2
260 
	OraDatabase.Parameters.Add "PATCH_ELECTRONIC_NAME", Request("patch_electronic_name"),ORAPARM_INPUT, ORATYPE_VARCHAR2
- 
 
 261 
	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId, 			ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
 262 
	OraDatabase.Parameters.Add "COMMENT", "Updated Package "&objFormCollector.Item("pkg_name")&" to Version:"&Request("new_prod_version"),ORAPARM_INPUT, ORATYPE_VARCHAR2
- 
 
 263 
	OraDatabase.Parameters.Add "OS_ID", 		Request("os_id"), 			ORAPARM_INPUT, ORATYPE_NUMBER
250
264
251 
	objEH.TryORA ( OraSession )
 265 
	objEH.TryORA ( OraSession )
252
266
253 
	OraDatabase.ExecuteSQL _
 267 
	OraDatabase.ExecuteSQL _
254 
	"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, :NOT_XML, :PATCH_ELECTRONIC_NAME ); END;"
268 
	"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, :NOT_XML, :PATCH_ELECTRONIC_NAME ); END;"
255
269
256 
	objEH.CatchORA ( OraSession )
 270 
	objEH.CatchORA ( OraSession )
257
271
- 
 
 272 
	objEH.TryORA ( OraSession )
- 
 
 273
- 
 
 274 
	OraDatabase.ExecuteSQL _
- 
 
 275 
	"BEGIN pk_Bom.Log_Os_Trail ( :OS_ID, :COMMENT, :USER_ID  ); END;"
- 
 
 276
- 
 
 277 
	objEH.CatchORA ( OraSession )
258
278
259 
	OraDatabase.Parameters.Remove "OLD_PROD_ID"
 279 
	OraDatabase.Parameters.Remove "OLD_PROD_ID"
260 
	OraDatabase.Parameters.Remove "NEW_PROD_VERSION"
 280 
	OraDatabase.Parameters.Remove "NEW_PROD_VERSION"
261 
	OraDatabase.Parameters.Remove "BASE_ENV_ID"
 281 
	OraDatabase.Parameters.Remove "BASE_ENV_ID"
262 
	OraDatabase.Parameters.Remove "SEQ_NUM"
 282 
	OraDatabase.Parameters.Remove "SEQ_NUM"
263 
	OraDatabase.Parameters.Remove "PROD_COMMENTS"
 283 
	OraDatabase.Parameters.Remove "PROD_COMMENTS"
264 
	OraDatabase.Parameters.Remove "SUNOS_ELECTRONIC_NAME"
 284 
	OraDatabase.Parameters.Remove "SUNOS_ELECTRONIC_NAME"
265 
	OraDatabase.Parameters.Remove "WIN_ELECTRONIC_NAME"
285 
	OraDatabase.Parameters.Remove "WIN_ELECTRONIC_NAME"
266 
	OraDatabase.Parameters.Remove "NOT_XML"
286 
	OraDatabase.Parameters.Remove "NOT_XML"
267 
	OraDatabase.Parameters.Remove "PATCH_ELECTRONIC_NAME"
287 
	OraDatabase.Parameters.Remove "PATCH_ELECTRONIC_NAME"
- 
 
 288 
	OraDatabase.Parameters.Remove "USER_ID"
- 
 
 289 
	OraDatabase.Parameters.Remove "COMMENT"
- 
 
 290 
	OraDatabase.Parameters.Remove "OS_ID"
268
291
269 
End Sub
 292 
End Sub
270 
'--------------------------------------------------------------------------------------------------------------------------
 293 
'--------------------------------------------------------------------------------------------------------------------------
271 
%>
 294 
%>
272 
<%
 295 
<%
Line 401... Line 424...
401 
        <td nowrap class="form_iname" valign="top">Version</td>
 424 
        <td nowrap class="form_iname" valign="top">Version</td>
402 
        <td valign="top"><%
 425 
        <td valign="top"><%
403 
		Call GetProductVersions( aRs, MoreLink )
 426 
		Call GetProductVersions( aRs, MoreLink )
404 
		ForceDropdown = FALSE
 427 
		ForceDropdown = FALSE
405 
		If IsNull(MoreLink) AND (parFilter_on <> "") Then ForceDropdown = TRUE
 428 
		If IsNull(MoreLink) AND (parFilter_on <> "") Then ForceDropdown = TRUE
406
- 
 
407 
		Response.write objFormComponent.ComboWithTextAndFilter ( "new_prod_version", objForm.GetValue( "new_prod_version", objFormCollector.Item("pkg_version")), aRs, "size='30' class='form_ivalue'", MoreLink, ForceDropdown )
 - 
 
408 
 
 429 
 
- 
 
 430 
		OraDatabase.Parameters.Add "PV_ID", 	parProd_id,		ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
 431 
		OraDatabase.Parameters.Add "OS_ID", 	parOs_id,		ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
 432
- 
 
 433 
		Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery ("Package_Patches.sql"), ORADYN_DEFAULT )
- 
 
 434
- 
 
 435 
		If rsTemp.RecordCount = 0 Then
- 
 
 436
- 
 
 437 
			Response.write objFormComponent.ComboWithTextAndFilter ( "new_prod_version", objForm.GetValue( "new_prod_version", objFormCollector.Item("pkg_version")), aRs, "size='30' class='form_ivalue'", MoreLink, ForceDropdown )
- 
 
 438 
		Else
- 
 
 439 
			Response.write objFormComponent.TextBox ( "new_prod_version", objFormCollector.Item("pkg_version"), "size='30' class='form_ivalue' disabled" )
- 
 
 440 
		End If
409 
		%></td>
 441 
		%></td>
410 
		<td valign="top"></td>
 442 
		<td valign="top"></td>
411 
      </tr>
 443 
      </tr>
412 
      <tr>
 444 
      <tr>
413 
        <td valign="top" nowrap class="form_iname">Comments</td>
 445 
        <td valign="top" nowrap class="form_iname">Comments</td>
Line 425... Line 457...
425 
  </tr>
 457 
  </tr>
426 
  <%=objPMod.ComposeHiddenTags()%>
 458 
  <%=objPMod.ComposeHiddenTags()%>
427 
  <input type="hidden" name="prod_id_list" value="<%=parProd_id%>">
 459 
  <input type="hidden" name="prod_id_list" value="<%=parProd_id%>">
428 
  <input type="hidden" name="action" value="true">
 460 
  <input type="hidden" name="action" value="true">
429 
  <%
 461 
  <%
- 
 
 462 
   	 OraDatabase.Parameters.Remove "PV_ID"
- 
 
 463 
   	 OraDatabase.Parameters.Remove "OS_ID"
- 
 
 464 
	 rsTemp.Close()
- 
 
 465 
	Set rsTemp = nothing
430 
  Call objFormComponent.FormEnd()
 466 
  Call objFormComponent.FormEnd()
431 
  '-- FROM END ----------------------------------------------------------------------------------------------------------------
 467 
  '-- FROM END ----------------------------------------------------------------------------------------------------------------
432 
  %>
 468 
  %>
433 
</table>
 469 
</table>
434 
</body>
 470 
</body>