Subversion Repositories DevTools

Rev

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

Rev 15 Rev 19
Line 63... Line 63...
63 
		outobjDetails.Item ("is_node_spec") = rsQry("is_node_spec")
 63 
		outobjDetails.Item ("is_node_spec") = rsQry("is_node_spec")
64 
		outobjDetails.Item ("sunos_electronic_name") = rsQry("sunos_electronic_name")
 64 
		outobjDetails.Item ("sunos_electronic_name") = rsQry("sunos_electronic_name")
65 
		outobjDetails.Item ("win_electronic_name") = rsQry("win_electronic_name")
 65 
		outobjDetails.Item ("win_electronic_name") = rsQry("win_electronic_name")
66 
		outobjDetails.Item ("pkg_version") = rsQry("pkg_version")
 66 
		outobjDetails.Item ("pkg_version") = rsQry("pkg_version")
67 
		outobjDetails.Item ("product_comments") = rsQry("product_comments")
 67 
		outobjDetails.Item ("product_comments") = rsQry("product_comments")
- 
 
 68 
		outobjDetails.Item ("not_xml") = rsQry("not_xml")
- 
 
 69 
		outobjDetails.Item ("is_patch") = rsQry("is_patch")
- 
 
 70 
		outobjDetails.Item ("patch_electronic_name") = rsQry("patch_electronic_name")
68
71
69 
		If nBaseEnvId = "" Then
 72 
		If nBaseEnvId = "" Then
70 
			outobjDetails.Item ("os_id") = rsQry("os_id")
 73 
			outobjDetails.Item ("os_id") = rsQry("os_id")
71 
		Else
 74 
		Else
72 
			outobjDetails.Item ("base_env_id") = rsQry("base_env_id")
 75 
			outobjDetails.Item ("base_env_id") = rsQry("base_env_id")
Line 205... Line 208...
205 
	OraDatabase.Parameters.Add "SEQ_NUM", 		Request("seq_num"), 		ORAPARM_INPUT, ORATYPE_NUMBER
208 
	OraDatabase.Parameters.Add "SEQ_NUM", 		Request("seq_num"), 		ORAPARM_INPUT, ORATYPE_NUMBER
206 
	OraDatabase.Parameters.Add "PROD_COMMENTS", Request("product_comments"),ORAPARM_INPUT, ORATYPE_VARCHAR2
 209 
	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
210 
	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
211 
	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
212 
	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 "PATCH_ELECTRONIC_NAME", Request("patch_electronic_name"),ORAPARM_INPUT, ORATYPE_VARCHAR2
210
215
211
216
212 
	objEH.TryORA ( OraSession )
 217 
	objEH.TryORA ( OraSession )
213
218
214 
	OraDatabase.ExecuteSQL _
 219 
	OraDatabase.ExecuteSQL _
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;"
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;"
216
221
217 
	objEH.CatchORA ( OraSession )
 222 
	objEH.CatchORA ( OraSession )
218
223
219
224
220 
	OraDatabase.Parameters.Remove "OLD_PROD_ID"
 225 
	OraDatabase.Parameters.Remove "OLD_PROD_ID"
Line 223... Line 228...
223 
	OraDatabase.Parameters.Remove "SEQ_NUM"
 228 
	OraDatabase.Parameters.Remove "SEQ_NUM"
224 
	OraDatabase.Parameters.Remove "PROD_COMMENTS"
 229 
	OraDatabase.Parameters.Remove "PROD_COMMENTS"
225 
	OraDatabase.Parameters.Remove "SUNOS_ELECTRONIC_NAME"
230 
	OraDatabase.Parameters.Remove "SUNOS_ELECTRONIC_NAME"
226 
	OraDatabase.Parameters.Remove "WIN_ELECTRONIC_NAME"
 231 
	OraDatabase.Parameters.Remove "WIN_ELECTRONIC_NAME"
227 
	OraDatabase.Parameters.Remove "IS_NODE_SPEC"
232 
	OraDatabase.Parameters.Remove "IS_NODE_SPEC"
- 
 
 233 
	OraDatabase.Parameters.Remove "NOT_XML"
- 
 
 234 
	OraDatabase.Parameters.Remove "PATCH_ELECTRONIC_NAME"
228
235
229 
End Sub
 236 
End Sub
230 
'--------------------------------------------------------------------------------------------------------------------------
 237 
'--------------------------------------------------------------------------------------------------------------------------
231 
Sub UpdateProdAtBaseEnv ()
 238 
Sub UpdateProdAtBaseEnv ()
232 
	On Error Resume Next
 239 
	On Error Resume Next
233
240
Line 236... Line 243...
236 
	OraDatabase.Parameters.Add "BASE_ENV_ID", 		Request("base_env_id"), 			ORAPARM_INPUT, ORATYPE_NUMBER
243 
	OraDatabase.Parameters.Add "BASE_ENV_ID", 		Request("base_env_id"), 			ORAPARM_INPUT, ORATYPE_NUMBER
237 
	OraDatabase.Parameters.Add "SEQ_NUM", 		Request("seq_num"), 		ORAPARM_INPUT, ORATYPE_NUMBER
244 
	OraDatabase.Parameters.Add "SEQ_NUM", 		Request("seq_num"), 		ORAPARM_INPUT, ORATYPE_NUMBER
238 
	OraDatabase.Parameters.Add "PROD_COMMENTS", Request("product_comments"),ORAPARM_INPUT, ORATYPE_VARCHAR2
 245 
	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
246 
	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
247 
	OraDatabase.Parameters.Add "WIN_ELECTRONIC_NAME", Request("win_electronic_name"),ORAPARM_INPUT, ORATYPE_VARCHAR2
241
- 
 
- 
 
 248 
	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
242
250
243 
	objEH.TryORA ( OraSession )
 251 
	objEH.TryORA ( OraSession )
244
252
245 
	OraDatabase.ExecuteSQL _
 253 
	OraDatabase.ExecuteSQL _
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;"
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;"
247
255
248 
	objEH.CatchORA ( OraSession )
 256 
	objEH.CatchORA ( OraSession )
249
257
250
258
251 
	OraDatabase.Parameters.Remove "OLD_PROD_ID"
 259 
	OraDatabase.Parameters.Remove "OLD_PROD_ID"
Line 253... Line 261...
253 
	OraDatabase.Parameters.Remove "BASE_ENV_ID"
 261 
	OraDatabase.Parameters.Remove "BASE_ENV_ID"
254 
	OraDatabase.Parameters.Remove "SEQ_NUM"
 262 
	OraDatabase.Parameters.Remove "SEQ_NUM"
255 
	OraDatabase.Parameters.Remove "PROD_COMMENTS"
 263 
	OraDatabase.Parameters.Remove "PROD_COMMENTS"
256 
	OraDatabase.Parameters.Remove "SUNOS_ELECTRONIC_NAME"
 264 
	OraDatabase.Parameters.Remove "SUNOS_ELECTRONIC_NAME"
257 
	OraDatabase.Parameters.Remove "WIN_ELECTRONIC_NAME"
265 
	OraDatabase.Parameters.Remove "WIN_ELECTRONIC_NAME"
- 
 
 266 
	OraDatabase.Parameters.Remove "NOT_XML"
- 
 
 267 
	OraDatabase.Parameters.Remove "PATCH_ELECTRONIC_NAME"
258
268
259 
End Sub
 269 
End Sub
260 
'--------------------------------------------------------------------------------------------------------------------------
 270 
'--------------------------------------------------------------------------------------------------------------------------
261 
%>
 271 
%>
262 
<%
 272 
<%
Line 346... Line 356...
346 
	  <tr>
 356 
	  <tr>
347 
        <td nowrap class="form_iname" valign="top">Product Name</td>
 357 
        <td nowrap class="form_iname" valign="top">Product Name</td>
348 
        <td valign="top"><%=objFormComponent.TextBox ( "pkg_name", objFormCollector.Item("pkg_name"), "size='70' class='form_ivalue' disabled" )%></td>
 358 
        <td valign="top"><%=objFormComponent.TextBox ( "pkg_name", objFormCollector.Item("pkg_name"), "size='70' class='form_ivalue' disabled" )%></td>
349 
		<td valign="top"></td>
 359 
		<td valign="top"></td>
350 
      </tr>
 360 
      </tr>
- 
 
 361 
<%If IsNull(objFormCollector.Item("is_patch")) Then%>
351 
	  <tr>
 362 
	  <tr>
352 
        <td nowrap class="form_iname" valign="top">SunOS Electronic Name</td>
 363 
        <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>
 364 
        <td valign="top"><%=objFormComponent.TextBox ( "sunos_electronic_name", objFormCollector.Item("sunos_electronic_name"), "size='70' class='form_ivalue'" )%></td>
354 
		<td valign="top"></td>
 365 
		<td valign="top"></td>
355 
      </tr>
 366 
      </tr>
356 
	  <tr>
 367 
	  <tr>
357 
        <td nowrap class="form_iname" valign="top">Windows Electronic Name</td>
 368 
        <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>
 369 
        <td valign="top"><%=objFormComponent.TextBox ( "win_electronic_name", objFormCollector.Item("win_electronic_name"), "size='70' class='form_ivalue'" )%></td>
359 
		<td valign="top"></td>
 370 
		<td valign="top"></td>
- 
 
 371 
      </tr>
- 
 
 372 
<%Else%>
- 
 
 373 
	  <tr>
- 
 
 374 
        <td nowrap class="form_iname" valign="top">Patch Electronic Name</td>
- 
 
 375 
        <td valign="top"><%=objFormComponent.TextBox ( "patch_electronic_name", objFormCollector.Item("patch_electronic_name"), "size='70' class='form_ivalue'" )%></td>
- 
 
 376 
		<td valign="top"></td>
- 
 
 377 
		<input type="hidden" name="sunos_electronic_name" value="<%=objFormCollector.Item("sunos_electronic_name")%>">
- 
 
 378 
		<input type="hidden" name="win_electronic_name" value="<%=objFormCollector.Item("win_electronic_name")%>">
- 
 
 379
360 
      </tr>
380 
      </tr>
- 
 
 381 
<%End If%>
361 
	  <tr>
 382 
	  <tr>
362 
        <td nowrap class="form_iname" valign="top">Include In Node Spec File</td>
 383 
        <td nowrap class="form_iname" valign="top">Include In Node Spec File</td>
363 
		<%If IsNull(objFormCollector.Item("is_node_spec")) Then%>
 384 
		<%If IsNull(objFormCollector.Item("is_node_spec")) Then%>
364 
        <td valign="top"><input type="checkbox" name="is_node_spec"></td>
 385 
        <td valign="top"><input type="checkbox" name="is_node_spec"></td>
365 
		<%Else%>
 386 
		<%Else%>
366 
        <td valign="top"><input type="checkbox" name="is_node_spec" checked></td>
 387 
        <td valign="top"><input type="checkbox" name="is_node_spec" checked></td>
367 
		<%End If%>
 388 
		<%End If%>
368 
		<td valign="top"></td>
 389 
		<td valign="top"></td>
369 
      </tr>
390 
      </tr>
370
391 
	  <tr>
- 
 
 392 
        <td nowrap class="form_iname" valign="top">Checked If Not Required In XML</td>
- 
 
 393 
		<%If IsNull(objFormCollector.Item("not_xml")) Then%>
- 
 
 394 
        <td valign="top"><input type="checkbox" name="not_xml"></td>
- 
 
 395 
		<%Else%>
- 
 
 396 
        <td valign="top"><input type="checkbox" name="not_xml" checked></td>
- 
 
 397 
		<%End If%>
- 
 
 398 
		<td valign="top"></td>
- 
 
 399 
      </tr>
371 
      <tr>
 400 
      <tr>
372 
        <td nowrap class="form_iname" valign="top">Version</td>
 401 
        <td nowrap class="form_iname" valign="top">Version</td>
373 
        <td valign="top"><%
 402 
        <td valign="top"><%
374 
		Call GetProductVersions( aRs, MoreLink )
 403 
		Call GetProductVersions( aRs, MoreLink )
375 
		ForceDropdown = FALSE
 404 
		ForceDropdown = FALSE