<%@LANGUAGE="VBSCRIPT"%>
<%
'=====================================================
'|                                                   |
'|			          wEditProc					 	 |
'|                                                   |
'=====================================================
%>
<%
Option explicit
Response.Expires = 0
%>
<!--#include file="common/globals.asp"-->
<!--#include file="common/config.asp"-->
<!--#include file="common/common_subs.asp"-->
<!--#include file="common/_popup_window_common.asp"-->
<%
'------------ ACCESS CONTROL ------------------
%>
<!--#include file="_access_control_general.asp"-->
<%
'------------ VARIABLE DEFINITION -------------
Dim objFormCollector, isInterface
Dim aRs
Dim MoreLink
Dim parFilter_on
Dim ForceDropdown
Dim parBase_env_id
Dim parProc_name
'------------ CONSTANTS DECLARATION -----------
'------------ VARIABLE INIT -------------------
parProd_id = Request("proc_id_list")
parOs_id = Request("os_id")
parBom_id = Request("bom_id")
parFilter_on = Request("filter_on")
parBase_env_id = Request("base_env_id")
parProc_name = Request("proc_name")
Set objFormCollector = CreateObject("Scripting.Dictionary")
isInterface = NULL
'------------ CONDITIONS ----------------------
'----------------------------------------------
%>
<%
'--------------------------------------------------------------------------------------------------------------------------
Sub GetFormDetails ( nProd_id, nOs_id, nBaseEnvId, nBom_id, ByRef outobjDetails )
	Dim rsQry, query
	
	

	
	
	Set rsQry = OraDatabase.DbCreateDynaset( "SELECT * FROM PROCESSES_CONFIG pc, PACKAGE_VERSIONS pv, PACKAGES p WHERE PKG_HEALTH_TAG ='"& Request("proc_name") &"' AND OS_ID ="& nOs_id &" AND PROD_ID="& nProd_id &" AND pv.PV_ID =pc.PROD_ID AND p.PKG_ID = pv.PKG_ID", ORADYN_DEFAULT )
	
	If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
		outobjDetails.Item ("pkg_health_tag")   = rsQry("pkg_health_tag")
		outobjDetails.Item ("prod_id") = rsQry("prod_id")
		outobjDetails.Item ("os_id") = rsQry("os_id")
		outobjDetails.Item ("cmd_interface") = rsQry("cmd_interface")
		'outobjDetails.Item ("electronic_name") = rsQry("electronic_name")
		outobjDetails.Item ("pkg_owner") = rsQry("pkg_owner")
		outobjDetails.Item ("is_interface") = rsQry("is_interface")
		outobjDetails.Item ("pkg_name") = rsQry("pkg_name")
		outobjDetails.Item ("proc_id") = rsQry("proc_id")
		

		
	Else
		Err.Raise 8, "Sub GetFormDetails", "Empty record set returned. nProc_id="& nProd_id &", nOs_id="& nOs_id
		
	End If
	
	rsQry.Close
	Set rsQry = Nothing

End Sub
'--------------------------------------------------------------------------------------------------------------------------
Sub UpdateProcAtOs ()
	On Error Resume Next
	
	If Request("isInterface") = "" Then
  		isInterface = "F"
  	Else
  		isInterface = "T"
  	End If		
	
	OraDatabase.Parameters.Add "PROD_ID", 			Request("proc_id_list"), ORAPARM_INPUT, ORATYPE_NUMBER 
	OraDatabase.Parameters.Add "PROC_ID", 			Request("proc_id"), ORAPARM_INPUT, ORATYPE_NUMBER 
	OraDatabase.Parameters.Add "IS_INTERFACE", 		isInterface, ORAPARM_INPUT, ORATYPE_VARCHAR2 
	OraDatabase.Parameters.Add "OS_ID", 			Request("os_id"), ORAPARM_INPUT, ORATYPE_NUMBER 
	OraDatabase.Parameters.Add "CMD_INTERFACE", 	Request("cmd_interface"), ORAPARM_INPUT, ORATYPE_VARCHAR2 
	OraDatabase.Parameters.Add "PKG_OWNER", 		Request("pkg_owner"),	ORAPARM_INPUT, ORATYPE_VARCHAR2
	OraDatabase.Parameters.Add "PKG_HEALTH_TAG", 	Request("pkg_health_tag"),	ORAPARM_INPUT, ORATYPE_VARCHAR2
	OraDatabase.Parameters.Add "PRODUCT", 			Request("prod_id"),	ORAPARM_INPUT, ORATYPE_NUMBER
	
	objEH.TryORA ( OraSession )
	
	OraDatabase.ExecuteSQL _
	"BEGIN pk_Product.Update_Process ( :PROC_ID, :PROD_ID, :IS_INTERFACE, :OS_ID, :CMD_INTERFACE, :PKG_OWNER, :PKG_HEALTH_TAG, :PRODUCT ); END;"	
	
    OraSession.CommitTrans	
	
	objEH.CatchORA ( OraSession )
	
	
	OraDatabase.Parameters.Remove "PROD_ID"
	OraDatabase.Parameters.Remove "PROC_ID"
	OraDatabase.Parameters.Remove "IS_INTERFACE"
	OraDatabase.Parameters.Remove "OS_ID"
	OraDatabase.Parameters.Remove "CMD_INTERFACE"
	OraDatabase.Parameters.Remove "PKG_OWNER"
	OraDatabase.Parameters.Remove "PKG_HEALTH_TAG"
	OraDatabase.Parameters.Remove "PRODUCT"
	
End Sub
'--------------------------------------------------------------------------------------------------------------------------
Sub UpdateProdAtBaseEnv ()
	On Error Resume Next
	
	OraDatabase.Parameters.Add "OLD_PROD_ID", 	Request("prod_id_list"), 	ORAPARM_INPUT, ORATYPE_NUMBER 
	OraDatabase.Parameters.Add "NEW_PROD_VERSION", 	Request("new_prod_version"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
	OraDatabase.Parameters.Add "BASE_ENV_ID", 		Request("base_env_id"), 			ORAPARM_INPUT, ORATYPE_NUMBER 
	OraDatabase.Parameters.Add "SEQ_NUM", 		Request("seq_num"), 		ORAPARM_INPUT, ORATYPE_NUMBER 
	OraDatabase.Parameters.Add "PROD_COMMENTS", Request("product_comments"),ORAPARM_INPUT, ORATYPE_VARCHAR2
	OraDatabase.Parameters.Add "ELECTRONIC_NAME", Request("electronic_name"),ORAPARM_INPUT, ORATYPE_VARCHAR2	
	
	
	
	objEH.TryORA ( OraSession )
	
	OraDatabase.ExecuteSQL _
	"BEGIN pk_Base_Env.Update_Product ( :OLD_PROD_ID, :NEW_PROD_VERSION, :BASE_ENV_ID, :SEQ_NUM, :PROD_COMMENTS, :ELECTRONIC_NAME ); END;"	
	
	objEH.CatchORA ( OraSession )
	
	
	OraDatabase.Parameters.Remove "OLD_PROD_ID"
	OraDatabase.Parameters.Remove "NEW_PROD_VERSION"
	OraDatabase.Parameters.Remove "BASE_ENV_ID"
	OraDatabase.Parameters.Remove "SEQ_NUM"
	OraDatabase.Parameters.Remove "PROD_COMMENTS"
	OraDatabase.Parameters.Remove "ELECTRONIC_NAME"		
	
End Sub
'--------------------------------------------------------------------------------------------------------------------------
%>
<%
'------------ RUN BEFORE PAGE RENDER ----------
objPMod.PersistInQryString ( Array("base_env_id") )

' --- Get Form details from DB ---
Call GetFormDetails ( parProd_id, parOs_id, parBase_env_id, parBom_id, objFormCollector )

' --- Enter Form Validation Rule Changes here... ----
'----------------------------------------------------

If Request("action") = "true" Then
	If objForm.IsValidOnPostBack Then
		' --- Form is Valid ---

			Call UpdateProcAtOs()

		
		
		If objEH.Finally Then
			Call OpenInParentWindow ( Request("rfile") &"?UPDATED=OK&bom_id="& parBom_id &"&os_id="& parOs_id )
			Call CloseWindow()
		End If
		
	End If
ElseIf Request("action") = "filter_off" Then
	parFilter_on = 0
End If
'----------------------------------------------
%>
<html>
<head>
<title>Deployment Manager</title>
<link rel="shortcut icon" href="<%=FavIcon%>"/>
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="scripts/deployment_manager.css?ver=<%=VixVerNum%>" rel="stylesheet" type="text/css">
<script language="JavaScript" src="scripts/common.js?ver=<%=VixVerNum%>"></script>
</head>

<body background="images/bg_bage_0.gif" leftmargin="0" topmargin="0" onLoad="self.focus();">
<table width="100%"  border="0" cellspacing="0" cellpadding="10">
  <tr>
    <td bgcolor="#FFFFFF" class="body_txt"><span class="body_h1"><img src="icons/i_linkarrow_black.gif" width="11" height="11" align="absmiddle">&nbsp;Edit Process</span> <br>
    Update process details and click Submit. 
    </td>
  </tr>
  <%
  '-- FROM START ---------------------------------------------------------------------------------------------------------
  objFormComponent.FormName = "FormName"
  objFormComponent.Action = SCRIPT_NAME
  objFormComponent.OnSubmit = "ShowProgress();"
  Call objFormComponent.FormStart()
  %>   
  <tr>
    <td background="images/bg_login.gif"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td><%=ProgressBar%></td>
        <td align="right"><input name="btn" type="submit" class="form_btn" value="Submit">
          <input name="btn" type="reset" class="form_btn" value="Cancel" onClick="self.close();"></td>
      </tr>
    </table></td>
  </tr>
  <tr>
    <td><table width="100%"  border="0" cellspacing="2" cellpadding="0">
	  <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->	
	  <%If NOT objEH.Finally Then%>
      <tr>
        <td class="form_iname">&nbsp;</td>
        <td>
		 <%objEH.DisplayMessage()%>
		</td>
        <td class="val_err"></td>
      </tr>
	  <%End If%>
	  <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->

	  <tr>
        <td nowrap class="form_iname" valign="top">Package Health Tag</td>
        <td valign="top"><%=objFormComponent.TextBox ( "pkg_health_tag", objFormCollector.Item("pkg_health_tag"), "size='70' class='form_ivalue'" )%></td>
		<td valign="top"></td>
      </tr>
	  <tr>
        <td nowrap class="form_iname" valign="top">Package/Product</td>
		<td valign="top">
		<%
		OraDatabase.Parameters.Add "PKG_NAME", 	objFormCollector.Item("pkg_name"),	ORAPARM_INPUT,  ORATYPE_VARCHAR2 
		OraDatabase.Parameters.Add "OS_ID", 	Request("os_id"), 	ORAPARM_INPUT, ORATYPE_NUMBER
		Dim rsQry
		Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("ProductsLessPatchesCombo.sql"), cint(0))
		%>	  
		<select name="prod_id" class="form_ivalue">	  
		<%
		While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))%>
        	<option value="<%=rsQry("prod_id")%>" <%=rsQry("selected")%>><%=rsQry("pkg_name")%> - <%=rsQry("pkg_version")%></option>
        <%rsQry.MoveNext
		WEnd
		rsQry.Close
		Set rsQry = Nothing
		
		OraDatabase.Parameters.Remove "PKG_NAME"
		OraDatabase.Parameters.Remove "OS_ID"
		%>
		</td>
		<td valign="top"></td>
		</select>
      </tr>	  
      <tr>
        <td nowrap class="form_iname" valign="top">Command Interface</td>
		<%If NOT IsNull(objFormCollector.Item("cmd_interface")) Then%>
        	<td valign="top"><input type="text" name="cmd_interface" value="<%=Server.HTMLEncode(objFormCollector.Item("cmd_interface"))%>" size='70' class='form_ivalue'>
		<%Else%>
			<td valign="top"><input type="text" name="cmd_interface" value="<%=objFormCollector.Item("cmd_interface")%>" size='70' class='form_ivalue'>
		<%End If%>
		<td valign="top"></td>
      </tr>
	  <tr>
        <td nowrap class="form_iname" valign="top">Is Interface</td>
		<%If (objFormCollector.Item("is_interface")) = "F" Then%>
        <td valign="top"><input type="checkbox" name="isInterface"></td>
		<%Else%>
        <td valign="top"><input type="checkbox" name="isInterface" checked></td>
		<%End If%>
		<td valign="top"></td>
      </tr>	 
      <tr>
        <td nowrap class="form_iname" valign="top">Package Owner</td>
        <td valign="top"><%=objFormComponent.TextBox ( "pkg_owner", objFormCollector.Item("pkg_owner"), "size='70' class='form_ivalue'" )%></td>
		<td valign="top"></td>
      </tr>
      <tr>
        <td width="10%" class="form_iname">&nbsp;</td>
        <td width="1%">&nbsp;</td>
		<td width="90%" class="val_err"></td>
      </tr>
    </table></td>
  </tr>
  <%=objPMod.ComposeHiddenTags()%>
  <input type="hidden" name="proc_id_list" value="<%=parProd_id%>">
  <input type="hidden" name="proc_name" value="<%=parProc_name%>">
  <input type="hidden" name="proc_id" value="<%=objFormCollector.Item("proc_id")%>">
  <input type="hidden" name="action" value="true">
  <%
  Call objFormComponent.FormEnd()
  '-- FROM END ----------------------------------------------------------------------------------------------------------------
  %>
</table>
</body>
</html>
<!--#include file="common/globals_destructor.asp"-->