Subversion Repositories DevTools

Rev

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

Rev 29 Rev 5355
Line 1... Line 1...
1 
<%@LANGUAGE="VBSCRIPT"%>
 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
 2 
<%
3 
'=====================================================
 3 
'=====================================================
4 
'|                                                   |
 4 
'|                                                   |
5 
'|			          wEditProc					 	 |
 5 
'|			          wEditProc					 	 |
6 
'|                                                   |
 6 
'|                                                   |
7 
'=====================================================
 7 
'=====================================================
8 
%>
 8 
%>
9 
<%
 9 
<%
10 
Option explicit
 10 
Option explicit
11 
Response.Expires = 0
 11 
Response.Expires = 0
12 
%>
 12 
%>
13 
<!--#include file="common/globals.asp"-->
 13 
<!--#include file="common/globals.asp"-->
14 
<!--#include file="common/config.asp"-->
 14 
<!--#include file="common/config.asp"-->
15 
<!--#include file="common/common_subs.asp"-->
 15 
<!--#include file="common/common_subs.asp"-->
16 
<!--#include file="common/_popup_window_common.asp"-->
 16 
<!--#include file="common/_popup_window_common.asp"-->
17 
<%
 17 
<%
18 
'------------ ACCESS CONTROL ------------------
 18 
'------------ ACCESS CONTROL ------------------
19 
%>
 19 
%>
20 
<!--#include file="_access_control_general.asp"-->
 20 
<!--#include file="_access_control_general.asp"-->
21 
<%
 21 
<%
22 
'------------ VARIABLE DEFINITION -------------
 22 
'------------ VARIABLE DEFINITION -------------
23 
Dim objFormCollector, isInterface
 23 
Dim objFormCollector, isInterface
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 parProc_name
 29 
Dim parProc_name
30 
'------------ CONSTANTS DECLARATION -----------
 30 
'------------ CONSTANTS DECLARATION -----------
31 
'------------ VARIABLE INIT -------------------
 31 
'------------ VARIABLE INIT -------------------
32 
parProd_id = Request("proc_id_list")
 32 
parProd_id = Request("proc_id_list")
33 
parOs_id = Request("os_id")
 33 
parOs_id = Request("os_id")
34 
parBom_id = Request("bom_id")
 34 
parBom_id = Request("bom_id")
35 
parFilter_on = Request("filter_on")
 35 
parFilter_on = Request("filter_on")
36 
parBase_env_id = Request("base_env_id")
 36 
parBase_env_id = Request("base_env_id")
37 
parProc_name = Request("proc_name")
 37 
parProc_name = Request("proc_name")
38 
Set objFormCollector = CreateObject("Scripting.Dictionary")
 38 
Set objFormCollector = CreateObject("Scripting.Dictionary")
39 
isInterface = NULL
 39 
isInterface = NULL
40 
'------------ CONDITIONS ----------------------
 40 
'------------ CONDITIONS ----------------------
41 
'----------------------------------------------
 41 
'----------------------------------------------
42 
%>
 42 
%>
43 
<%
 43 
<%
44 
'--------------------------------------------------------------------------------------------------------------------------
 44 
'--------------------------------------------------------------------------------------------------------------------------
45 
Sub GetFormDetails ( nProd_id, nOs_id, nBaseEnvId, nBom_id, ByRef outobjDetails )
 45 
Sub GetFormDetails ( nProd_id, nOs_id, nBaseEnvId, nBom_id, ByRef outobjDetails )
46 
	Dim rsQry, query
 46 
	Dim rsQry, query
47
47
48
48
49 
 
 49 
 
50
50
51
51
52 
	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 )
 52 
	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 )
53
53
54 
	If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
 54 
	If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
55 
		outobjDetails.Item ("pkg_health_tag")   = rsQry("pkg_health_tag")
 55 
		outobjDetails.Item ("pkg_health_tag")   = rsQry("pkg_health_tag")
56 
		outobjDetails.Item ("prod_id") = rsQry("prod_id")
 56 
		outobjDetails.Item ("prod_id") = rsQry("prod_id")
57 
		outobjDetails.Item ("os_id") = rsQry("os_id")
 57 
		outobjDetails.Item ("os_id") = rsQry("os_id")
58 
		outobjDetails.Item ("cmd_interface") = rsQry("cmd_interface")
 58 
		outobjDetails.Item ("cmd_interface") = rsQry("cmd_interface")
59 
		'outobjDetails.Item ("electronic_name") = rsQry("electronic_name")
 59 
		'outobjDetails.Item ("electronic_name") = rsQry("electronic_name")
60 
		outobjDetails.Item ("pkg_owner") = rsQry("pkg_owner")
 60 
		outobjDetails.Item ("pkg_owner") = rsQry("pkg_owner")
61 
		outobjDetails.Item ("is_interface") = rsQry("is_interface")
 61 
		outobjDetails.Item ("is_interface") = rsQry("is_interface")
62 
		outobjDetails.Item ("pkg_name") = rsQry("pkg_name")
 62 
		outobjDetails.Item ("pkg_name") = rsQry("pkg_name")
63 
		outobjDetails.Item ("proc_id") = rsQry("proc_id")
 63 
		outobjDetails.Item ("proc_id") = rsQry("proc_id")
64
64
65 
 
 65 
 
66
66
67 
	Else
 67 
	Else
68 
		Err.Raise 8, "Sub GetFormDetails", "Empty record set returned. nProc_id="& nProd_id &", nOs_id="& nOs_id
 68 
		Err.Raise 8, "Sub GetFormDetails", "Empty record set returned. nProc_id="& nProd_id &", nOs_id="& nOs_id
69
69
70 
	End If
 70 
	End If
71
71
72 
	rsQry.Close
 72 
	rsQry.Close
73 
	Set rsQry = Nothing
 73 
	Set rsQry = Nothing
74 
 
 74 
 
75 
End Sub
 75 
End Sub
76 
'--------------------------------------------------------------------------------------------------------------------------
 76 
'--------------------------------------------------------------------------------------------------------------------------
77 
Sub UpdateProcAtOs ()
 77 
Sub UpdateProcAtOs ()
78 
	On Error Resume Next
 78 
	On Error Resume Next
79
79
80 
	If Request("isInterface") = "" Then
 80 
	If Request("isInterface") = "" Then
81 
  		isInterface = "F"
 81 
  		isInterface = "F"
82 
  	Else
 82 
  	Else
83 
  		isInterface = "T"
 83 
  		isInterface = "T"
84 
  	End If
84 
  	End If
85
85
86 
	OraDatabase.Parameters.Add "PROD_ID", 			Request("proc_id_list"), ORAPARM_INPUT, ORATYPE_NUMBER
86 
	OraDatabase.Parameters.Add "PROD_ID", 			Request("proc_id_list"), ORAPARM_INPUT, ORATYPE_NUMBER
87 
	OraDatabase.Parameters.Add "PROC_ID", 			Request("proc_id"), ORAPARM_INPUT, ORATYPE_NUMBER
87 
	OraDatabase.Parameters.Add "PROC_ID", 			Request("proc_id"), ORAPARM_INPUT, ORATYPE_NUMBER
88 
	OraDatabase.Parameters.Add "IS_INTERFACE", 		isInterface, ORAPARM_INPUT, ORATYPE_VARCHAR2
88 
	OraDatabase.Parameters.Add "IS_INTERFACE", 		isInterface, ORAPARM_INPUT, ORATYPE_VARCHAR2
89 
	OraDatabase.Parameters.Add "OS_ID", 			Request("os_id"), ORAPARM_INPUT, ORATYPE_NUMBER
89 
	OraDatabase.Parameters.Add "OS_ID", 			Request("os_id"), ORAPARM_INPUT, ORATYPE_NUMBER
90 
	OraDatabase.Parameters.Add "CMD_INTERFACE", 	Request("cmd_interface"), ORAPARM_INPUT, ORATYPE_VARCHAR2
90 
	OraDatabase.Parameters.Add "CMD_INTERFACE", 	Request("cmd_interface"), ORAPARM_INPUT, ORATYPE_VARCHAR2
91 
	OraDatabase.Parameters.Add "PKG_OWNER", 		Request("pkg_owner"),	ORAPARM_INPUT, ORATYPE_VARCHAR2
 91 
	OraDatabase.Parameters.Add "PKG_OWNER", 		Request("pkg_owner"),	ORAPARM_INPUT, ORATYPE_VARCHAR2
92 
	OraDatabase.Parameters.Add "PKG_HEALTH_TAG", 	Request("pkg_health_tag"),	ORAPARM_INPUT, ORATYPE_VARCHAR2
 92 
	OraDatabase.Parameters.Add "PKG_HEALTH_TAG", 	Request("pkg_health_tag"),	ORAPARM_INPUT, ORATYPE_VARCHAR2
93 
	OraDatabase.Parameters.Add "PRODUCT", 			Request("prod_id"),	ORAPARM_INPUT, ORATYPE_NUMBER
 93 
	OraDatabase.Parameters.Add "PRODUCT", 			Request("prod_id"),	ORAPARM_INPUT, ORATYPE_NUMBER
94
94
95 
	objEH.TryORA ( OraSession )
 95 
	objEH.TryORA ( OraSession )
96
96
97 
	OraDatabase.ExecuteSQL _
 97 
	OraDatabase.ExecuteSQL _
98 
	"BEGIN pk_Product.Update_Process ( :PROC_ID, :PROD_ID, :IS_INTERFACE, :OS_ID, :CMD_INTERFACE, :PKG_OWNER, :PKG_HEALTH_TAG, :PRODUCT ); END;"
98 
	"BEGIN pk_Product.Update_Process ( :PROC_ID, :PROD_ID, :IS_INTERFACE, :OS_ID, :CMD_INTERFACE, :PKG_OWNER, :PKG_HEALTH_TAG, :PRODUCT ); END;"
99
99
100 
    OraSession.CommitTrans
100 
    OraSession.CommitTrans
101
101
102 
	objEH.CatchORA ( OraSession )
 102 
	objEH.CatchORA ( OraSession )
103
103
104
104
105 
	OraDatabase.Parameters.Remove "PROD_ID"
 105 
	OraDatabase.Parameters.Remove "PROD_ID"
106 
	OraDatabase.Parameters.Remove "PROC_ID"
 106 
	OraDatabase.Parameters.Remove "PROC_ID"
107 
	OraDatabase.Parameters.Remove "IS_INTERFACE"
 107 
	OraDatabase.Parameters.Remove "IS_INTERFACE"
108 
	OraDatabase.Parameters.Remove "OS_ID"
 108 
	OraDatabase.Parameters.Remove "OS_ID"
109 
	OraDatabase.Parameters.Remove "CMD_INTERFACE"
 109 
	OraDatabase.Parameters.Remove "CMD_INTERFACE"
110 
	OraDatabase.Parameters.Remove "PKG_OWNER"
 110 
	OraDatabase.Parameters.Remove "PKG_OWNER"
111 
	OraDatabase.Parameters.Remove "PKG_HEALTH_TAG"
 111 
	OraDatabase.Parameters.Remove "PKG_HEALTH_TAG"
112 
	OraDatabase.Parameters.Remove "PRODUCT"
 112 
	OraDatabase.Parameters.Remove "PRODUCT"
113
113
114 
End Sub
 114 
End Sub
115 
'--------------------------------------------------------------------------------------------------------------------------
 115 
'--------------------------------------------------------------------------------------------------------------------------
116 
Sub UpdateProdAtBaseEnv ()
 116 
Sub UpdateProdAtBaseEnv ()
117 
	On Error Resume Next
 117 
	On Error Resume Next
118
118
119 
	OraDatabase.Parameters.Add "OLD_PROD_ID", 	Request("prod_id_list"), 	ORAPARM_INPUT, ORATYPE_NUMBER
119 
	OraDatabase.Parameters.Add "OLD_PROD_ID", 	Request("prod_id_list"), 	ORAPARM_INPUT, ORATYPE_NUMBER
120 
	OraDatabase.Parameters.Add "NEW_PROD_VERSION", 	Request("new_prod_version"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
 120 
	OraDatabase.Parameters.Add "NEW_PROD_VERSION", 	Request("new_prod_version"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
121 
	OraDatabase.Parameters.Add "BASE_ENV_ID", 		Request("base_env_id"), 			ORAPARM_INPUT, ORATYPE_NUMBER
121 
	OraDatabase.Parameters.Add "BASE_ENV_ID", 		Request("base_env_id"), 			ORAPARM_INPUT, ORATYPE_NUMBER
122 
	OraDatabase.Parameters.Add "SEQ_NUM", 		Request("seq_num"), 		ORAPARM_INPUT, ORATYPE_NUMBER
122 
	OraDatabase.Parameters.Add "SEQ_NUM", 		Request("seq_num"), 		ORAPARM_INPUT, ORATYPE_NUMBER
123 
	OraDatabase.Parameters.Add "PROD_COMMENTS", Request("product_comments"),ORAPARM_INPUT, ORATYPE_VARCHAR2
 123 
	OraDatabase.Parameters.Add "PROD_COMMENTS", Request("product_comments"),ORAPARM_INPUT, ORATYPE_VARCHAR2
124 
	OraDatabase.Parameters.Add "ELECTRONIC_NAME", Request("electronic_name"),ORAPARM_INPUT, ORATYPE_VARCHAR2
124 
	OraDatabase.Parameters.Add "ELECTRONIC_NAME", Request("electronic_name"),ORAPARM_INPUT, ORATYPE_VARCHAR2
125
125
126
126
127
127
128 
	objEH.TryORA ( OraSession )
 128 
	objEH.TryORA ( OraSession )
129
129
130 
	OraDatabase.ExecuteSQL _
 130 
	OraDatabase.ExecuteSQL _
131 
	"BEGIN pk_Base_Env.Update_Product ( :OLD_PROD_ID, :NEW_PROD_VERSION, :BASE_ENV_ID, :SEQ_NUM, :PROD_COMMENTS, :ELECTRONIC_NAME ); END;"
131 
	"BEGIN pk_Base_Env.Update_Product ( :OLD_PROD_ID, :NEW_PROD_VERSION, :BASE_ENV_ID, :SEQ_NUM, :PROD_COMMENTS, :ELECTRONIC_NAME ); END;"
132
132
133 
	objEH.CatchORA ( OraSession )
 133 
	objEH.CatchORA ( OraSession )
134
134
135
135
136 
	OraDatabase.Parameters.Remove "OLD_PROD_ID"
 136 
	OraDatabase.Parameters.Remove "OLD_PROD_ID"
137 
	OraDatabase.Parameters.Remove "NEW_PROD_VERSION"
 137 
	OraDatabase.Parameters.Remove "NEW_PROD_VERSION"
138 
	OraDatabase.Parameters.Remove "BASE_ENV_ID"
 138 
	OraDatabase.Parameters.Remove "BASE_ENV_ID"
139 
	OraDatabase.Parameters.Remove "SEQ_NUM"
 139 
	OraDatabase.Parameters.Remove "SEQ_NUM"
140 
	OraDatabase.Parameters.Remove "PROD_COMMENTS"
 140 
	OraDatabase.Parameters.Remove "PROD_COMMENTS"
141 
	OraDatabase.Parameters.Remove "ELECTRONIC_NAME"
141 
	OraDatabase.Parameters.Remove "ELECTRONIC_NAME"
142
142
143 
End Sub
 143 
End Sub
144 
'--------------------------------------------------------------------------------------------------------------------------
 144 
'--------------------------------------------------------------------------------------------------------------------------
145 
%>
 145 
%>
146 
<%
 146 
<%
147 
'------------ RUN BEFORE PAGE RENDER ----------
 147 
'------------ RUN BEFORE PAGE RENDER ----------
148 
objPMod.PersistInQryString ( Array("base_env_id") )
 148 
objPMod.PersistInQryString ( Array("base_env_id") )
149 
 
 149 
 
150 
' --- Get Form details from DB ---
 150 
' --- Get Form details from DB ---
151 
Call GetFormDetails ( parProd_id, parOs_id, parBase_env_id, parBom_id, objFormCollector )
 151 
Call GetFormDetails ( parProd_id, parOs_id, parBase_env_id, parBom_id, objFormCollector )
152 
 
 152 
 
153 
' --- Enter Form Validation Rule Changes here... ----
 153 
' --- Enter Form Validation Rule Changes here... ----
154 
'----------------------------------------------------
 154 
'----------------------------------------------------
155 
 
 155 
 
156 
If Request("action") = "true" Then
 156 
If Request("action") = "true" Then
157 
	If objForm.IsValidOnPostBack Then
 157 
	If objForm.IsValidOnPostBack Then
158 
		' --- Form is Valid ---
 158 
		' --- Form is Valid ---
159 
 
 159 
 
160 
			Call UpdateProcAtOs()
 160 
			Call UpdateProcAtOs()
161 
 
 161 
 
162
162
163
163
164 
		If objEH.Finally Then
 164 
		If objEH.Finally Then
165 
			Call OpenInParentWindow ( Request("rfile") &"?UPDATED=OK&bom_id="& parBom_id &"&os_id="& parOs_id )
 165 
			Call OpenInParentWindow ( Request("rfile") &"?UPDATED=OK&bom_id="& parBom_id &"&os_id="& parOs_id )
166 
			Call CloseWindow()
 166 
			Call CloseWindow()
167 
		End If
 167 
		End If
168
168
169 
	End If
 169 
	End If
170 
ElseIf Request("action") = "filter_off" Then
 170 
ElseIf Request("action") = "filter_off" Then
171 
	parFilter_on = 0
 171 
	parFilter_on = 0
172 
End If
 172 
End If
173 
'----------------------------------------------
 173 
'----------------------------------------------
174 
%>
 174 
%>
175 
<html>
 175 
<html>
176 
<head>
 176 
<head>
177 
<title>Deployment Manager</title>
 177 
<title>Deployment Manager</title>
178 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
 178 
<link rel="shortcut icon" href="<%=FavIcon%>"/>
179 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
 179 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
180 
<link href="scripts/deployment_manager.css" rel="stylesheet" type="text/css">
 180 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
181 
<script language="JavaScript" src="scripts/common.js"></script>
 181 
<link href="scripts/deployment_manager.css" rel="stylesheet" type="text/css">
182 
</head>
 182 
<script language="JavaScript" src="scripts/common.js"></script>
183 
 
 183 
</head>
184 
<body background="images/bg_bage_0.gif" leftmargin="0" topmargin="0" onLoad="self.focus();">
 184 
 
185 
<table width="100%"  border="0" cellspacing="0" cellpadding="10">
 185 
<body background="images/bg_bage_0.gif" leftmargin="0" topmargin="0" onLoad="self.focus();">
186 
  <tr>
 186 
<table width="100%"  border="0" cellspacing="0" cellpadding="10">
187 
    <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>
 187 
  <tr>
188 
    Update process details and click Submit.
188 
    <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>
189 
    </td>
 189 
    Update process details and click Submit.
190 
  </tr>
 190 
    </td>
191 
  <%
 191 
  </tr>
192 
  '-- FROM START ---------------------------------------------------------------------------------------------------------
 192 
  <%
193 
  objFormComponent.FormName = "FormName"
 193 
  '-- FROM START ---------------------------------------------------------------------------------------------------------
194 
  objFormComponent.Action = SCRIPT_NAME
 194 
  objFormComponent.FormName = "FormName"
195 
  objFormComponent.OnSubmit = "ShowProgress();"
 195 
  objFormComponent.Action = SCRIPT_NAME
196 
  Call objFormComponent.FormStart()
 196 
  objFormComponent.OnSubmit = "ShowProgress();"
197 
  %>
197 
  Call objFormComponent.FormStart()
198 
  <tr>
 198 
  %>
199 
    <td background="images/bg_login.gif"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
 199 
  <tr>
200 
      <tr>
 200 
    <td background="images/bg_login.gif"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
201 
        <td><%=ProgressBar%></td>
 201 
      <tr>
202 
        <td align="right"><input name="btn" type="submit" class="form_btn" value="Submit">
 202 
        <td><%=ProgressBar%></td>
203 
          <input name="btn" type="reset" class="form_btn" value="Cancel" onClick="self.close();"></td>
 203 
        <td align="right"><input name="btn" type="submit" class="form_btn" value="Submit">
204 
      </tr>
 204 
          <input name="btn" type="reset" class="form_btn" value="Cancel" onClick="self.close();"></td>
205 
    </table></td>
 205 
      </tr>
206 
  </tr>
 206 
    </table></td>
207 
  <tr>
 207 
  </tr>
208 
    <td><table width="100%"  border="0" cellspacing="2" cellpadding="0">
 208 
  <tr>
209 
	  <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
209 
    <td><table width="100%"  border="0" cellspacing="2" cellpadding="0">
210 
	  <%If NOT objEH.Finally Then%>
 210 
	  <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
211 
      <tr>
 211 
	  <%If NOT objEH.Finally Then%>
212 
        <td class="form_iname">&nbsp;</td>
 212 
      <tr>
213 
        <td>
 213 
        <td class="form_iname">&nbsp;</td>
214 
		 <%objEH.DisplayMessage()%>
 214 
        <td>
215 
		</td>
 215 
		 <%objEH.DisplayMessage()%>
216 
        <td class="val_err"></td>
 216 
		</td>
217 
      </tr>
 217 
        <td class="val_err"></td>
218 
	  <%End If%>
 218 
      </tr>
219 
	  <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 219 
	  <%End If%>
220 
 
 220 
	  <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
221 
	  <tr>
 221 
 
222 
        <td nowrap class="form_iname" valign="top">Package Health Tag</td>
 222 
	  <tr>
223 
        <td valign="top"><%=objFormComponent.TextBox ( "pkg_health_tag", objFormCollector.Item("pkg_health_tag"), "size='70' class='form_ivalue'" )%></td>
 223 
        <td nowrap class="form_iname" valign="top">Package Health Tag</td>
224 
		<td valign="top"></td>
 224 
        <td valign="top"><%=objFormComponent.TextBox ( "pkg_health_tag", objFormCollector.Item("pkg_health_tag"), "size='70' class='form_ivalue'" )%></td>
225 
      </tr>
 225 
		<td valign="top"></td>
226 
	  <tr>
 226 
      </tr>
227 
        <td nowrap class="form_iname" valign="top">Package/Product</td>
 227 
	  <tr>
228 
		<td valign="top">
 228 
        <td nowrap class="form_iname" valign="top">Package/Product</td>
229 
		<%
 229 
		<td valign="top">
230 
		OraDatabase.Parameters.Add "PKG_NAME", 	objFormCollector.Item("pkg_name"),	ORAPARM_INPUT,  ORATYPE_VARCHAR2
230 
		<%
231 
		OraDatabase.Parameters.Add "OS_ID", 	Request("os_id"), 	ORAPARM_INPUT, ORATYPE_NUMBER
 231 
		OraDatabase.Parameters.Add "PKG_NAME", 	objFormCollector.Item("pkg_name"),	ORAPARM_INPUT,  ORATYPE_VARCHAR2
232 
		Dim rsQry
 232 
		OraDatabase.Parameters.Add "OS_ID", 	Request("os_id"), 	ORAPARM_INPUT, ORATYPE_NUMBER
233 
		Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("ProductsLessPatchesCombo.sql"), cint(0))
 233 
		Dim rsQry
234 
		%>
234 
		Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("ProductsLessPatchesCombo.sql"), cint(0))
235 
		<select name="prod_id" class="form_ivalue">
235 
		%>
236 
		<%
 236 
		<select name="prod_id" class="form_ivalue">
237 
		While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))%>
 237 
		<%
238 
        	<option value="<%=rsQry("prod_id")%>" <%=rsQry("selected")%>><%=rsQry("pkg_name")%> - <%=rsQry("pkg_version")%></option>
 238 
		While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))%>
239 
        <%rsQry.MoveNext
 239 
        	<option value="<%=rsQry("prod_id")%>" <%=rsQry("selected")%>><%=rsQry("pkg_name")%> - <%=rsQry("pkg_version")%></option>
240 
		WEnd
 240 
        <%rsQry.MoveNext
241 
		rsQry.Close
 241 
		WEnd
242 
		Set rsQry = Nothing
 242 
		rsQry.Close
243
243 
		Set rsQry = Nothing
244 
		OraDatabase.Parameters.Remove "PKG_NAME"
 244
245 
		OraDatabase.Parameters.Remove "OS_ID"
 245 
		OraDatabase.Parameters.Remove "PKG_NAME"
246 
		%>
 246 
		OraDatabase.Parameters.Remove "OS_ID"
247 
		</td>
 247 
		%>
248 
		<td valign="top"></td>
 248 
		</td>
249 
		</select>
 249 
		<td valign="top"></td>
250 
      </tr>
250 
		</select>
251 
      <tr>
 251 
      </tr>
252 
        <td nowrap class="form_iname" valign="top">Command Interface</td>
 252 
      <tr>
253 
		<%If NOT IsNull(objFormCollector.Item("cmd_interface")) Then%>
 253 
        <td nowrap class="form_iname" valign="top">Command Interface</td>
254 
        	<td valign="top"><input type="text" name="cmd_interface" value="<%=Server.HTMLEncode(objFormCollector.Item("cmd_interface"))%>" size='70' class='form_ivalue'>
 254 
		<%If NOT IsNull(objFormCollector.Item("cmd_interface")) Then%>
255 
		<%Else%>
 255 
        	<td valign="top"><input type="text" name="cmd_interface" value="<%=Server.HTMLEncode(objFormCollector.Item("cmd_interface"))%>" size='70' class='form_ivalue'>
256 
			<td valign="top"><input type="text" name="cmd_interface" value="<%=objFormCollector.Item("cmd_interface")%>" size='70' class='form_ivalue'>
 256 
		<%Else%>
257 
		<%End If%>
 257 
			<td valign="top"><input type="text" name="cmd_interface" value="<%=objFormCollector.Item("cmd_interface")%>" size='70' class='form_ivalue'>
258 
		<td valign="top"></td>
 258 
		<%End If%>
259 
      </tr>
 259 
		<td valign="top"></td>
260 
	  <tr>
 260 
      </tr>
261 
        <td nowrap class="form_iname" valign="top">Is Interface</td>
 261 
	  <tr>
262 
		<%If (objFormCollector.Item("is_interface")) = "F" Then%>
 262 
        <td nowrap class="form_iname" valign="top">Is Interface</td>
263 
        <td valign="top"><input type="checkbox" name="isInterface"></td>
 263 
		<%If (objFormCollector.Item("is_interface")) = "F" Then%>
264 
		<%Else%>
 264 
        <td valign="top"><input type="checkbox" name="isInterface"></td>
265 
        <td valign="top"><input type="checkbox" name="isInterface" checked></td>
 265 
		<%Else%>
266 
		<%End If%>
 266 
        <td valign="top"><input type="checkbox" name="isInterface" checked></td>
267 
		<td valign="top"></td>
 267 
		<%End If%>
268 
      </tr>
268 
		<td valign="top"></td>
269 
      <tr>
 269 
      </tr>
270 
        <td nowrap class="form_iname" valign="top">Package Owner</td>
 270 
      <tr>
271 
        <td valign="top"><%=objFormComponent.TextBox ( "pkg_owner", objFormCollector.Item("pkg_owner"), "size='70' class='form_ivalue'" )%></td>
 271 
        <td nowrap class="form_iname" valign="top">Package Owner</td>
272 
		<td valign="top"></td>
 272 
        <td valign="top"><%=objFormComponent.TextBox ( "pkg_owner", objFormCollector.Item("pkg_owner"), "size='70' class='form_ivalue'" )%></td>
273 
      </tr>
 273 
		<td valign="top"></td>
274 
      <tr>
 274 
      </tr>
275 
        <td width="10%" class="form_iname">&nbsp;</td>
 275 
      <tr>
276 
        <td width="1%">&nbsp;</td>
 276 
        <td width="10%" class="form_iname">&nbsp;</td>
277 
		<td width="90%" class="val_err"></td>
 277 
        <td width="1%">&nbsp;</td>
278 
      </tr>
 278 
		<td width="90%" class="val_err"></td>
279 
    </table></td>
 279 
      </tr>
280 
  </tr>
 280 
    </table></td>
281 
  <%=objPMod.ComposeHiddenTags()%>
 281 
  </tr>
282 
  <input type="hidden" name="proc_id_list" value="<%=parProd_id%>">
 282 
  <%=objPMod.ComposeHiddenTags()%>
283 
  <input type="hidden" name="proc_name" value="<%=parProc_name%>">
 283 
  <input type="hidden" name="proc_id_list" value="<%=parProd_id%>">
284 
  <input type="hidden" name="proc_id" value="<%=objFormCollector.Item("proc_id")%>">
 284 
  <input type="hidden" name="proc_name" value="<%=parProc_name%>">
285 
  <input type="hidden" name="action" value="true">
 285 
  <input type="hidden" name="proc_id" value="<%=objFormCollector.Item("proc_id")%>">
286 
  <%
 286 
  <input type="hidden" name="action" value="true">
287 
  Call objFormComponent.FormEnd()
 287 
  <%
288 
  '-- FROM END ----------------------------------------------------------------------------------------------------------------
 288 
  Call objFormComponent.FormEnd()
289 
  %>
 289 
  '-- FROM END ----------------------------------------------------------------------------------------------------------------
290 
</table>
 290 
  %>
291 
</body>
 291 
</table>
292 
</html>
 292 
</body>
293 
<%
 293 
</html>
294 
'------------ RUN AFTER PAGE RENDER -----------
 294 
<%
295 
Set objFormCollector = Nothing
 295 
'------------ RUN AFTER PAGE RENDER -----------
296 
'----------------------------------------------
 296 
Set objFormCollector = Nothing
297 
%><!--#include file="common/globals_destructor.asp"-->
 297 
'----------------------------------------------
- 
 
 298 
%><!--#include file="common/globals_destructor.asp"-->