Subversion Repositories DevTools

Rev

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

Rev 23 Rev 5355
Line 1... Line 1...
1 
<%@LANGUAGE="VBSCRIPT"%>
 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
 2 
<%
3 
'=====================================================
 3 
'=====================================================
4 
'|                                                   |
 4 
'|                                                   |
5 
'|			          wAddProd					 	 |
 5 
'|			          wAddProd					 	 |
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 rsQry, healthTag, cmdInterface, pkgOwner, isInterface, package, procDesc
 23 
Dim rsQry, healthTag, cmdInterface, pkgOwner, isInterface, package, procDesc
24 
Dim Query_String
 24 
Dim Query_String
25 
Dim objFormCollector
 25 
Dim objFormCollector
26 
Dim sMessage
 26 
Dim sMessage
27 
Dim SEQ_proc_id
 27 
Dim SEQ_proc_id
28 
'------------ CONSTANTS DECLARATION -----------
 28 
'------------ CONSTANTS DECLARATION -----------
29 
Const LIMG_PRODUCT = "<img src='icons/i_product.gif' width='19' height='19' hspace='2' align='absmiddle'>"
 29 
Const LIMG_PRODUCT = "<img src='icons/i_product.gif' width='19' height='19' hspace='2' align='absmiddle'>"
30 
Const LIMG_PRODUCT_UNPACKAGED = "<img src='icons/i_product_unpackaged.gif' width='19' height='19' hspace='2' align='absmiddle' title='Product is unofficial'>"
 30 
Const LIMG_PRODUCT_UNPACKAGED = "<img src='icons/i_product_unpackaged.gif' width='19' height='19' hspace='2' align='absmiddle' title='Product is unofficial'>"
31 
Const LIMG_PRODUCT_PATCH = "<img src='icons/i_patch_small.gif' hspace='2' align='absmiddle'>"
 31 
Const LIMG_PRODUCT_PATCH = "<img src='icons/i_patch_small.gif' hspace='2' align='absmiddle'>"
32 
'------------ VARIABLE INIT -------------------
 32 
'------------ VARIABLE INIT -------------------
33 
sMessage = NULL
 33 
sMessage = NULL
34 
isInterface = NULL
 34 
isInterface = NULL
35 
parOs_id = Request("os_id")
 35 
parOs_id = Request("os_id")
36 
parBom_id = Request("bom_id")
 36 
parBom_id = Request("bom_id")
37 
Set objFormCollector = CreateObject("Scripting.Dictionary")
 37 
Set objFormCollector = CreateObject("Scripting.Dictionary")
38 
'------------ CONDITIONS ----------------------
 38 
'------------ CONDITIONS ----------------------
39 
'----------------------------------------------
 39 
'----------------------------------------------
40 
%>
 40 
%>
41 
<%
 41 
<%
42 
 
 42 
 
43 
%>
 43 
%>
44 
<%
 44 
<%
45 
'------------ RUN BEFORE PAGE RENDER ----------
 45 
'------------ RUN BEFORE PAGE RENDER ----------
46 
If Request("btn") = "Import" Then
 46 
If Request("btn") = "Import" Then
47 
	If Request("prod_id_list") <> "" Then
 47 
	If Request("prod_id_list") <> "" Then
48
48
49 
		On Error Resume Next
 49 
		On Error Resume Next
50
50
51 
		OraDatabase.Parameters.Add "PROD_ID", 		Request("prod_id_list"), 			ORAPARM_INPUT, ORATYPE_NUMBER
51 
		OraDatabase.Parameters.Add "PROD_ID", 		Request("prod_id_list"), 			ORAPARM_INPUT, ORATYPE_NUMBER
52 
		OraDatabase.Parameters.Add "OS_ID", 		Request("os_id"), 			ORAPARM_INPUT, ORATYPE_NUMBER
52 
		OraDatabase.Parameters.Add "OS_ID", 		Request("os_id"), 			ORAPARM_INPUT, ORATYPE_NUMBER
53 
		OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
53 
		OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
54
54
55 
		objEH.TryORA ( OraSession )
 55 
		objEH.TryORA ( OraSession )
56
56
57 
		OraDatabase.ExecuteSQL _
 57 
		OraDatabase.ExecuteSQL _
58 
		"BEGIN   PK_OPERATING_SYSTEM.ADD_PACKAGES_PROCESS ( :PROD_ID, :OS_ID, :USER_ID );   END;"
 58 
		"BEGIN   PK_OPERATING_SYSTEM.ADD_PACKAGES_PROCESS ( :PROD_ID, :OS_ID, :USER_ID );   END;"
59
59
60 
		objEH.CatchORA ( OraSession )
 60 
		objEH.CatchORA ( OraSession )
61
61
62 
		OraDatabase.Parameters.Remove "PROD_ID"
62 
		OraDatabase.Parameters.Remove "PROD_ID"
63 
		OraDatabase.Parameters.Remove "OS_ID"
 63 
		OraDatabase.Parameters.Remove "OS_ID"
64 
		OraDatabase.Parameters.Remove "USER_ID"
64 
		OraDatabase.Parameters.Remove "USER_ID"
65
65
66 
		If objEH.Finally Then
 66 
		If objEH.Finally Then
67 
			Call OpenInParentWindow ("Os_Processes.asp?bom_id="& parBom_id &"&os_id="& parOs_id)
 67 
			Call OpenInParentWindow ("Os_Processes.asp?bom_id="& parBom_id &"&os_id="& parOs_id)
68 
			Call CloseWindow()
 68 
			Call CloseWindow()
69 
		End If
69 
		End If
70 
	Else
 70 
	Else
71 
		sMessage = "Please select Product(s) from Release Manager list then click Add."
 71 
		sMessage = "Please select Product(s) from Release Manager list then click Add."
72 
	End If
 72 
	End If
73
73
74
74
75 
End If
 75 
End If
76 
 
 76 
 
77 
If CBool(Request("action")) Then
 77 
If CBool(Request("action")) Then
78
78
79 
 	If Request("isInterface") = "" Then
 79 
 	If Request("isInterface") = "" Then
80 
  		isInterface = "F"
 80 
  		isInterface = "F"
81 
  	Else
 81 
  	Else
82 
  		isInterface = "T"
 82 
  		isInterface = "T"
83 
  	End If
83 
  	End If
84 
 
 84 
 
85 
	Query_String = _
 85 
	Query_String = _
86 
	"	SELECT * FROM PROCESSES WHERE PROC_NAME = '"& Request("healthTag") &"'"&_
 86 
	"	SELECT * FROM PROCESSES WHERE PROC_NAME = '"& Request("healthTag") &"'"&_
87 
	"	AND RUN_AS = '"& Replace(Request("cmdInterface"), "'", "''") &"' AND PKG_OWNER = '"& Request("pkgOwner") &"'"&_
 87 
	"	AND RUN_AS = '"& Replace(Request("cmdInterface"), "'", "''") &"' AND PKG_OWNER = '"& Request("pkgOwner") &"'"&_
88 
	"	AND IS_INTERFACE = '"& isInterface &"'"
 88 
	"	AND IS_INTERFACE = '"& isInterface &"'"
89
89
90 
	Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
 90 
	Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
91
91
92 
	If rsTemp.RecordCount = 0 Then
92 
	If rsTemp.RecordCount = 0 Then
93
93
94 
		objEH.Try
 94 
		objEH.Try
95 
 
 95 
 
96 
		SEQ_proc_id = Get_From_DUAL("SEQ_PROC_ID.nextval")
 96 
		SEQ_proc_id = Get_From_DUAL("SEQ_PROC_ID.nextval")
97 
 
 97 
 
98 
		OraDatabase.Parameters.Add "PROC_ID", 			SEQ_proc_id, ORAPARM_INPUT, ORATYPE_NUMBER
 98 
		OraDatabase.Parameters.Add "PROC_ID", 			SEQ_proc_id, ORAPARM_INPUT, ORATYPE_NUMBER
99 
		OraDatabase.Parameters.Add "PKG_HEALTH_TAG", 	Request("healthTag"), ORAPARM_INPUT, ORATYPE_VARCHAR2
 99 
		OraDatabase.Parameters.Add "PKG_HEALTH_TAG", 	Request("healthTag"), ORAPARM_INPUT, ORATYPE_VARCHAR2
100 
		OraDatabase.Parameters.Add "PROC_DESC", 		Request("procDesc"), ORAPARM_INPUT, ORATYPE_VARCHAR2
100 
		OraDatabase.Parameters.Add "PROC_DESC", 		Request("procDesc"), ORAPARM_INPUT, ORATYPE_VARCHAR2
101 
		OraDatabase.Parameters.Add "OS_ID", 			Request("os_id"), ORAPARM_INPUT, ORATYPE_NUMBER
 101 
		OraDatabase.Parameters.Add "OS_ID", 			Request("os_id"), ORAPARM_INPUT, ORATYPE_NUMBER
102 
		OraDatabase.Parameters.Add "CMD_INTERFACE", 	Request("cmdInterface"), ORAPARM_INPUT, ORATYPE_VARCHAR2
 102 
		OraDatabase.Parameters.Add "CMD_INTERFACE", 	Request("cmdInterface"), ORAPARM_INPUT, ORATYPE_VARCHAR2
103 
		OraDatabase.Parameters.Add "PKG_OWNER", 		Request("pkgOwner"), ORAPARM_INPUT, ORATYPE_VARCHAR2
103 
		OraDatabase.Parameters.Add "PKG_OWNER", 		Request("pkgOwner"), ORAPARM_INPUT, ORATYPE_VARCHAR2
104 
		OraDatabase.Parameters.Add "IS_INTERFACE", 		isInterface, ORAPARM_INPUT, ORATYPE_VARCHAR
104 
		OraDatabase.Parameters.Add "IS_INTERFACE", 		isInterface, ORAPARM_INPUT, ORATYPE_VARCHAR
105 
		OraDatabase.Parameters.Add "PROD_ID", 			Request("prod_id"), ORAPARM_INPUT, ORATYPE_NUMBER
105 
		OraDatabase.Parameters.Add "PROD_ID", 			Request("prod_id"), ORAPARM_INPUT, ORATYPE_NUMBER
106 
		OraDatabase.Parameters.Add "USER_ID", 			objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
106 
		OraDatabase.Parameters.Add "USER_ID", 			objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
107
107
108 
		OraSession.BeginTrans
 108 
		OraSession.BeginTrans
109
109
110 
		OraDatabase.ExecuteSQL _
 110 
		OraDatabase.ExecuteSQL _
111 
			"BEGIN  Add_Process( :PROC_ID, :PKG_HEALTH_TAG, :OS_ID, :CMD_INTERFACE, :PKG_OWNER, :IS_INTERFACE, :PROD_ID, :USER_ID);  END;"
 111 
			"BEGIN  Add_Process( :PROC_ID, :PKG_HEALTH_TAG, :OS_ID, :CMD_INTERFACE, :PKG_OWNER, :IS_INTERFACE, :PROD_ID, :USER_ID);  END;"
112 
 
 112 
 
113 
	    OraSession.CommitTrans
113 
	    OraSession.CommitTrans
114
114
115 
		OraSession.BeginTrans
 115 
		OraSession.BeginTrans
116
116
117 
		OraDatabase.ExecuteSQL _
 117 
		OraDatabase.ExecuteSQL _
118 
		"BEGIN  RELEASE_MANAGER.PK_PACKAGE.ADD_PROCESS( :PROC_ID, :PKG_HEALTH_TAG, :PROC_DESC, :CMD_INTERFACE, :PKG_OWNER, :IS_INTERFACE, :PROD_ID, :USER_ID);  END;"
118 
		"BEGIN  RELEASE_MANAGER.PK_PACKAGE.ADD_PROCESS( :PROC_ID, :PKG_HEALTH_TAG, :PROC_DESC, :CMD_INTERFACE, :PKG_OWNER, :IS_INTERFACE, :PROD_ID, :USER_ID);  END;"
119 
 
 119 
 
120 
	    OraSession.CommitTrans
120 
	    OraSession.CommitTrans
121
121
122 
		OraDatabase.Parameters.Remove "PROC_ID"
 122 
		OraDatabase.Parameters.Remove "PROC_ID"
123 
		OraDatabase.Parameters.Remove "PKG_HEALTH_TAG"
 123 
		OraDatabase.Parameters.Remove "PKG_HEALTH_TAG"
124 
		OraDatabase.Parameters.Remove "OS_ID"
 124 
		OraDatabase.Parameters.Remove "OS_ID"
125 
		OraDatabase.Parameters.Remove "CMD_INTERFACE"
 125 
		OraDatabase.Parameters.Remove "CMD_INTERFACE"
126 
		OraDatabase.Parameters.Remove "PKG_OWNER"
126 
		OraDatabase.Parameters.Remove "PKG_OWNER"
127 
		OraDatabase.Parameters.Remove "IS_INTERFACE"
127 
		OraDatabase.Parameters.Remove "IS_INTERFACE"
128 
		OraDatabase.Parameters.Remove "PROD_ID"
128 
		OraDatabase.Parameters.Remove "PROD_ID"
129 
		OraDatabase.Parameters.Remove "USER_ID"
129 
		OraDatabase.Parameters.Remove "USER_ID"
130
130
131 
	If objEH.Finally Then
 131 
	If objEH.Finally Then
132 
		Call OpenInParentWindow ("Os_Processes.asp?bom_id="& parBom_id &"&os_id="& parOs_id)
 132 
		Call OpenInParentWindow ("Os_Processes.asp?bom_id="& parBom_id &"&os_id="& parOs_id)
133 
		Call CloseWindow()
 133 
		Call CloseWindow()
134 
	End If
 134 
	End If
135 
	Else
 135 
	Else
136 
		Call Messenger ("Cannot add process! The process already exists in the database. Select a product and search for the process by name.", 1, "100%")
 136 
		Call Messenger ("Cannot add process! The process already exists in the database. Select a product and search for the process by name.", 1, "100%")
137 
	End If
137 
	End If
138 
End If
 138 
End If
139 
 
 139 
 
140 
'--------------------------------------------------------------------------------------------------------------------------
 140 
'--------------------------------------------------------------------------------------------------------------------------
141 
Sub GetFormDetails ( nBom_id, ByRef outobjDetails )
 141 
Sub GetFormDetails ( nBom_id, ByRef outobjDetails )
142 
	Dim rsQry, query
 142 
	Dim rsQry, query
143 
	OraDatabase.Parameters.Add "BOM_ID", 		nBom_id,		ORAPARM_INPUT, ORATYPE_NUMBER
143 
	OraDatabase.Parameters.Add "BOM_ID", 		nBom_id,		ORAPARM_INPUT, ORATYPE_NUMBER
144
144
145 
	query = _
 145 
	query = _
146 
	"  SELECT bo.RTAG_ID_FK,"&_
 146 
	"  SELECT bo.RTAG_ID_FK,"&_
147 
	"	   rm_proj.PROJ_ID,"&_
 147 
	"	   rm_proj.PROJ_ID,"&_
148 
	"	   rm_proj.PROJ_NAME,"&_
 148 
	"	   rm_proj.PROJ_NAME,"&_
149 
	"	   rt.RTAG_NAME"&_
 149 
	"	   rt.RTAG_NAME"&_
150 
	"  FROM BOMS bo,"&_
 150 
	"  FROM BOMS bo,"&_
151 
	"	   PROJECTS rm_proj,"&_
 151 
	"	   PROJECTS rm_proj,"&_
152 
	"	   RELEASE_TAGS rt"&_
 152 
	"	   RELEASE_TAGS rt"&_
153 
	" WHERE rt.PROJ_ID = rm_proj.PROJ_ID"&_
 153 
	" WHERE rt.PROJ_ID = rm_proj.PROJ_ID"&_
154 
	"   AND bo.RTAG_ID_FK = rt.RTAG_ID"&_
 154 
	"   AND bo.RTAG_ID_FK = rt.RTAG_ID"&_
155 
	"   AND bo.BOM_ID = :BOM_ID"
 155 
	"   AND bo.BOM_ID = :BOM_ID"
156
156
157 
	Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
 157 
	Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
158 
	If (NOT rsQry.BOF) AND (NOT rsQry.EOF)Then
 158 
	If (NOT rsQry.BOF) AND (NOT rsQry.EOF)Then
159 
		outobjDetails.Item ("rtag_id_fk") = rsQry("rtag_id_fk")
 159 
		outobjDetails.Item ("rtag_id_fk") = rsQry("rtag_id_fk")
160 
		outobjDetails.Item ("proj_id") = rsQry("proj_id")
 160 
		outobjDetails.Item ("proj_id") = rsQry("proj_id")
161 
		outobjDetails.Item ("proj_name") = rsQry("proj_name")
 161 
		outobjDetails.Item ("proj_name") = rsQry("proj_name")
162 
		outobjDetails.Item ("rtag_name") = rsQry("rtag_name")
 162 
		outobjDetails.Item ("rtag_name") = rsQry("rtag_name")
163
163
164 
	End If
 164 
	End If
165
165
166
166
167 
	OraDatabase.Parameters.Remove "BOM_ID"
 167 
	OraDatabase.Parameters.Remove "BOM_ID"
168
168
169 
	rsQry.Close
 169 
	rsQry.Close
170 
	Set rsQry = Nothing
 170 
	Set rsQry = Nothing
171 
End Sub
 171 
End Sub
172 
'--------------------------------------------------------------------------------------------------------------------------
 172 
'--------------------------------------------------------------------------------------------------------------------------
173 
 
 173 
 
174 
Call GetFormDetails ( parBom_id, objFormCollector )
 174 
Call GetFormDetails ( parBom_id, objFormCollector )
175 
'----------------------------------------------
 175 
'----------------------------------------------
176 
%>
 176 
%>
177 
<html>
 177 
<html>
178 
<head>
 178 
<head>
179 
<title>Deployment Manager</title>
 179 
<title>Deployment Manager</title>
180 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
 180 
<link rel="shortcut icon" href="<%=FavIcon%>"/>
181 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
 181 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
182 
<link href="scripts/deployment_manager.css" rel="stylesheet" type="text/css">
 182 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
183 
<script language="JavaScript" src="scripts/common.js"></script>
 183 
<link href="scripts/deployment_manager.css" rel="stylesheet" type="text/css">
184 
</head>
 184 
<script language="JavaScript" src="scripts/common.js"></script>
185 
 
 185 
</head>
186 
<body background="images/bg_bage_0.gif" leftmargin="0" topmargin="0" onLoad="self.focus();FormSearch.prod_name.focus();">
 186 
 
187 
<table width="100%"  border="0" cellspacing="0" cellpadding="10">
 187 
<body background="images/bg_bage_0.gif" leftmargin="0" topmargin="0" onLoad="self.focus();FormSearch.prod_name.focus();">
188 
  <tr>
 188 
<table width="100%"  border="0" cellspacing="0" cellpadding="10">
189 
    <td bgcolor="#FFFFFF" class="body_txt"><span class="body_h1"><img src="icons/i_linkarrow_black.gif" width="11" height="11" align="absmiddle">&nbsp;Add Process</span> <br>
 189 
  <tr>
190 
    Add a process for the node.
 190 
    <td bgcolor="#FFFFFF" class="body_txt"><span class="body_h1"><img src="icons/i_linkarrow_black.gif" width="11" height="11" align="absmiddle">&nbsp;Add Process</span> <br>
191 
      </td>
 191 
    Add a process for the node.
192 
  </tr>
 192 
      </td>
193
193 
  </tr>
194 
<%
 194
195 
'-- FROM START ---------------------------------------------------------------------------------------------------------------
 195 
<%
196 
objFormComponent.FormName = "FormSearch"
 196 
'-- FROM START ---------------------------------------------------------------------------------------------------------------
197 
objFormComponent.Action = "wAddProcessBySearch.asp"
 197 
objFormComponent.FormName = "FormSearch"
198 
Call objFormComponent.FormStart()
 198 
objFormComponent.Action = "wAddProcessBySearch.asp"
199 
%>
199 
Call objFormComponent.FormStart()
200 
  <tr>
 200 
%>
201 
    <td background="images/bg_quicksearch.gif" class="body_txt"><table width="100" border="0" cellspacing="3" cellpadding="0">
 201 
  <tr>
202 
  <tr>
 202 
    <td background="images/bg_quicksearch.gif" class="body_txt"><table width="100" border="0" cellspacing="3" cellpadding="0">
203 
    <td nowrap class="body_txtw"><strong>Package/Product</strong> </td>
 203 
  <tr>
204 
    <td><%
 204 
    <td nowrap class="body_txtw"><strong>Package/Product</strong> </td>
205 
	Dim rsTemp
 205 
    <td><%
206
206 
	Dim rsTemp
207 
	OraDatabase.Parameters.Add "OS_ID", 	Request("os_id"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
 207
208 
 
 208 
	OraDatabase.Parameters.Add "OS_ID", 	Request("os_id"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
209 
	Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("ProductsLessPatches.sql"), cint(0))
 209 
 
210
210 
	Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("ProductsLessPatches.sql"), cint(0))
211
211
212 
	Response.write "<select name='prod_id' class='body_txt'>"
 212
213 
	Response.write "<option value =''>"
 213 
	Response.write "<select name='prod_id' class='body_txt'>"
214
214 
	Response.write "<option value =''>"
215 
		While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
 215
216 
 
 216 
		While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
217 
				Response.write "<option value='"& rsTemp.Fields("prod_id") &"'>"& (rsTemp.Fields("pkg_name")) &" - "& (rsTemp.Fields("pkg_version")) &"</option>"
 217 
 
218 
 
 218 
				Response.write "<option value='"& rsTemp.Fields("prod_id") &"'>"& (rsTemp.Fields("pkg_name")) &" - "& (rsTemp.Fields("pkg_version")) &"</option>"
219 
			rsTemp.MoveNext
 219 
 
220 
		WEnd
 220 
			rsTemp.MoveNext
221 
	Response.write "</select>"
 221 
		WEnd
222
222 
	Response.write "</select>"
223 
	rsTemp.Close
 223
224 
	Set rsTemp = nothing
224 
	rsTemp.Close
225 
 
 225 
	Set rsTemp = nothing
226 
	OraDatabase.Parameters.Remove "OS_ID"
 226 
 
227 
 
 227 
	OraDatabase.Parameters.Remove "OS_ID"
228 
	%></td>
 228 
 
229 
  </tr>
229 
	%></td>
230 
	    <tr>
 230 
  </tr>
231 
          <td nowrap class="body_txtw"><strong>Process Search</strong> </td>
 231 
	    <tr>
232 
          <td><input name="prod_name" type="text" class="body_txt" size="20"></td>
 232 
          <td nowrap class="body_txtw"><strong>Process Search</strong> </td>
233 
          <td><input name="btn" type="image" src="icons/b_search.gif" width="16" height="16" border="0"></td>
 233 
          <td><input name="prod_name" type="text" class="body_txt" size="20"></td>
234 
        </tr>
 234 
          <td><input name="btn" type="image" src="icons/b_search.gif" width="16" height="16" border="0"></td>
235 
      </table></td>
 235 
        </tr>
236 
  </tr>
 236 
      </table></td>
237 
  <%=objPMod.ComposeHiddenTags()%>
 237 
  </tr>
238 
<%
 238 
  <%=objPMod.ComposeHiddenTags()%>
239 
Call objFormComponent.FormEnd()
 239 
<%
240 
'-- FROM END ----------------------------------------------------------------------------------------------------------------
 240 
Call objFormComponent.FormEnd()
241 
%>
 241 
'-- FROM END ----------------------------------------------------------------------------------------------------------------
242 
 
 242 
%>
243 
<%
 243 
 
244 
'-- FROM START --------------------------------------------------------------------------------------------------------------
 244 
<%
245 
objFormComponent.FormName = "FormName"
 245 
'-- FROM START --------------------------------------------------------------------------------------------------------------
246 
objFormComponent.Action = SCRIPT_NAME
 246 
objFormComponent.FormName = "FormName"
247 
objFormComponent.OnSubmit = "ShowProgress();"
 247 
objFormComponent.Action = SCRIPT_NAME
248 
Call objFormComponent.FormStart()
 248 
objFormComponent.OnSubmit = "ShowProgress();"
249 
 
 249 
Call objFormComponent.FormStart()
250 
%>
250 
 
251 
  <tr>
 251 
%>
252 
    <td background="images/bg_login.gif"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
 252 
  <tr>
253 
      <tr>
 253 
    <td background="images/bg_login.gif"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
254 
        <td><%=ProgressBar()%></td>
 254 
      <tr>
255 
        <td align="right"><input name="btn" type="submit" class="form_btn" value="Add">
 255 
        <td><%=ProgressBar()%></td>
256 
          <input name="btn" type="reset" class="form_btn" value="Cancel" onClick="self.close();"></td>
 256 
        <td align="right"><input name="btn" type="submit" class="form_btn" value="Add">
257 
      </tr>
 257 
          <input name="btn" type="reset" class="form_btn" value="Cancel" onClick="self.close();"></td>
258 
    </table></td>
 258 
      </tr>
259 
  </tr>
 259 
    </table></td>
260 
  <tr>
 260 
  </tr>
261 
    <td>
 261 
  <tr>
262 
<!-- NEW PRODUCT ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
262 
    <td>
263 
	<%Call Messenger ( sMessage , 3, "100%" )%>
 263 
<!-- NEW PRODUCT ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
264 
	<!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
264 
	<%Call Messenger ( sMessage , 3, "100%" )%>
265 
	<!--#include file="messages/_msg_inline.asp"-->
 265 
	<!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
266 
<table width="664" border="0">
 266 
	<!--#include file="messages/_msg_inline.asp"-->
267 
  <tr>
 267 
<table width="664" border="0">
268 
    <td><span class="body_txt">Package Health Tag</span>&nbsp;</td>
 268 
  <tr>
269 
    <td><input name="healthTag" type="text" class="body_txt" value="<%=healthTag%>">&nbsp;</td>
 269 
    <td><span class="body_txt">Package Health Tag</span>&nbsp;</td>
270 
  </tr>
 270 
    <td><input name="healthTag" type="text" class="body_txt" value="<%=healthTag%>">&nbsp;</td>
271 
  <tr>
 271 
  </tr>
272 
    <td><span class="body_txt">Package/Product</span></td>
 272 
  <tr>
273 
    <td><%
 273 
    <td><span class="body_txt">Package/Product</span></td>
274 
 
 274 
    <td><%
275
275 
 
276 
	OraDatabase.Parameters.Add "OS_ID", 	Request("os_id"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
 276
277 
 
 277 
	OraDatabase.Parameters.Add "OS_ID", 	Request("os_id"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
278 
	Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("ProductsLessPatches.sql"), cint(0))
 278 
 
279
279 
	Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("ProductsLessPatches.sql"), cint(0))
280
280
281 
	Response.write "<select name='prod_id' class='body_txt'>"
 281
282 
	Response.write "<option value =''>"
 282 
	Response.write "<select name='prod_id' class='body_txt'>"
283
283 
	Response.write "<option value =''>"
284 
		While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
 284
285 
 
 285 
		While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
286 
				Response.write "<option value='"& rsTemp.Fields("prod_id") &"'>"& (rsTemp.Fields("pkg_name")) &" - "& (rsTemp.Fields("pkg_version")) &"</option>"
 286 
 
287 
 
 287 
				Response.write "<option value='"& rsTemp.Fields("prod_id") &"'>"& (rsTemp.Fields("pkg_name")) &" - "& (rsTemp.Fields("pkg_version")) &"</option>"
288 
			rsTemp.MoveNext
 288 
 
289 
		WEnd
 289 
			rsTemp.MoveNext
290 
	Response.write "</select>"
 290 
		WEnd
291
291 
	Response.write "</select>"
292 
	rsTemp.Close
 292
293 
	Set rsTemp = nothing
293 
	rsTemp.Close
294 
 
 294 
	Set rsTemp = nothing
295 
	OraDatabase.Parameters.Remove "OS_ID"
 295 
 
296 
 
 296 
	OraDatabase.Parameters.Remove "OS_ID"
297 
	%></td>
 297 
 
298 
  </tr>
 298 
	%></td>
299 
  <tr>
 299 
  </tr>
300 
    <td><span class="body_txt">Process Description</span></td>
 300 
  <tr>
301 
    <td><textarea name="procDesc" rows=3 cols=50 class="body_txt"><%=procDesc%></textarea>
 301 
    <td><span class="body_txt">Process Description</span></td>
302 
	</td>
 302 
    <td><textarea name="procDesc" rows=3 cols=50 class="body_txt"><%=procDesc%></textarea>
303 
  </tr>
303 
	</td>
304 
  <tr>
 304 
  </tr>
305 
    <td><span class="body_txt">Command Interface</span></td>
 305 
  <tr>
306 
    <td><input name="cmdInterface" type="text" class="body_txt" value="<%=cmdInterface%>" size=80></td>
 306 
    <td><span class="body_txt">Command Interface</span></td>
307 
  </tr>
 307 
    <td><input name="cmdInterface" type="text" class="body_txt" value="<%=cmdInterface%>" size=80></td>
308 
  <tr>
 308 
  </tr>
309 
    <td><span class="body_txt">Is Interface</span></td>
 309 
  <tr>
310 
    <td><input type="checkbox" name="isInterface">
 310 
    <td><span class="body_txt">Is Interface</span></td>
311 
      <span class="body_txt">(Checked If True)</span> </td>
 311 
    <td><input type="checkbox" name="isInterface">
312 
  </tr>
 312 
      <span class="body_txt">(Checked If True)</span> </td>
313 
  <tr>
 313 
  </tr>
314 
    <td><span class="body_txt">Package Owner</span></td>
 314 
  <tr>
315 
    <td><input name="pkgOwner" type="text" class="body_txt" value="<%=pkgOwner%>">
 315 
    <td><span class="body_txt">Package Owner</span></td>
316 
	</td>
 316 
    <td><input name="pkgOwner" type="text" class="body_txt" value="<%=pkgOwner%>">
317 
  </tr>
 317 
	</td>
318 
  <tr>
 318 
  </tr>
319 
    <td>&nbsp;</td>
 319 
  <tr>
320 
    <td>&nbsp;</td>
 320 
    <td>&nbsp;</td>
321 
  </tr>
 321 
    <td>&nbsp;</td>
322 
</table>
322 
  </tr>
323 
 
 323 
</table>
324 
 
 324 
 
325 
 
 325 
 
326
326 
 
327 
 
 327
328 
 
 328 
 
329 
</td>
 329 
 
330 
  </tr>
 330 
</td>
331 
  <%=objPMod.ComposeHiddenTags()%>
 331 
  </tr>
332 
  <input type="hidden" name="action" value="true">
 332 
  <%=objPMod.ComposeHiddenTags()%>
333 
 
 333 
  <input type="hidden" name="action" value="true">
334
334 
 
335 
<%
 335
336 
Call objFormComponent.FormEnd()
 336 
<%
337 
'-- FROM END ----------------------------------------------------------------------------------------------------------------
 337 
Call objFormComponent.FormEnd()
338 
%>
 338 
'-- FROM END ----------------------------------------------------------------------------------------------------------------
339 
<%
 339 
%>
340 
'-- FROM START ---------------------------------------------------------------------------------------------------------------
 340 
<%
341 
objFormComponent.FormName = "FormSearch"
 341 
'-- FROM START ---------------------------------------------------------------------------------------------------------------
342 
objFormComponent.Action = SCRIPT_NAME
 342 
objFormComponent.FormName = "FormSearch"
343 
Call objFormComponent.FormStart()
 343 
objFormComponent.Action = SCRIPT_NAME
344 
%>
 344 
Call objFormComponent.FormStart()
345 
<td width="50%" valign="top" nowrap class="body_txt"><strong>Add Product Processes from Release Manager</strong><br>
345 
%>
346 
<%If (objFormCollector.Item("rtag_id_fk") <> "")  Then%>
 346 
<td width="50%" valign="top" nowrap class="body_txt"><strong>Add Product Processes from Release Manager</strong><br>
347 
<%=objFormCollector.Item ("proj_name") &"&nbsp;/&nbsp;"& objFormCollector.Item ("rtag_name")%>
 347 
<%If (objFormCollector.Item("rtag_id_fk") <> "")  Then%>
348 
<%Else%>
 348 
<%=objFormCollector.Item ("proj_name") &"&nbsp;/&nbsp;"& objFormCollector.Item ("rtag_name")%>
349 
<%Call Messenger ( "This BOM does not have Release Manager Reference release.<br>Please edit BOM properties first.<br>" , 1, "100%" )%>
 349 
<%Else%>
350 
<%End If%>
 350 
<%Call Messenger ( "This BOM does not have Release Manager Reference release.<br>Please edit BOM properties first.<br>" , 1, "100%" )%>
351 
<br>
 351 
<%End If%>
352 
          <table width="100%"  border="0" cellspacing="3" cellpadding="0">
 352 
<br>
353 
            <tr>
 353 
          <table width="100%"  border="0" cellspacing="3" cellpadding="0">
354 
              <td width="1"><img src="images/spacer.gif" width="1" height="1"></td>
 354 
            <tr>
355 
              <td width="100%"><img src="images/spacer.gif" width="1" height="1"></td>
 355 
              <td width="1"><img src="images/spacer.gif" width="1" height="1"></td>
356 
            </tr>
 356 
              <td width="100%"><img src="images/spacer.gif" width="1" height="1"></td>
357 
            <%
 357 
            </tr>
358 
	  ' -- Only run if links with Release Manager
 358 
            <%
359 
	  If (objFormCollector.Item("rtag_id_fk") <> "")  Then
 359 
	  ' -- Only run if links with Release Manager
360
360 
	  If (objFormCollector.Item("rtag_id_fk") <> "")  Then
361 
		  '===== Release Manager PRODUCTS =====
 361
362 
		  OraDatabase.Parameters.Add "RTAG_ID_FK", 				objFormCollector.Item("rtag_id_fk"),	ORAPARM_INPUT, ORATYPE_NUMBER
362 
		  '===== Release Manager PRODUCTS =====
363 
		  OraDatabase.Parameters.Add "enumPRODUCTS_BASE_VIEW_ID", 	enumPRODUCTS_BASE_VIEW_ID,				ORAPARM_INPUT, ORATYPE_NUMBER
363 
		  OraDatabase.Parameters.Add "RTAG_ID_FK", 				objFormCollector.Item("rtag_id_fk"),	ORAPARM_INPUT, ORATYPE_NUMBER
364 
		  OraDatabase.Parameters.Add "OS_ID", 						parOs_id,								ORAPARM_INPUT, ORATYPE_NUMBER
364 
		  OraDatabase.Parameters.Add "enumPRODUCTS_BASE_VIEW_ID", 	enumPRODUCTS_BASE_VIEW_ID,				ORAPARM_INPUT, ORATYPE_NUMBER
365
365 
		  OraDatabase.Parameters.Add "OS_ID", 						parOs_id,								ORAPARM_INPUT, ORATYPE_NUMBER
366 
		  Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("ReleaseManagerProductsViewProcesses.sql"), ORADYN_DEFAULT )
 366
367
367 
		  Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("ReleaseManagerProductsViewProcesses.sql"), ORADYN_DEFAULT )
368 
		  If rsQry.RecordCount < 1 Then
 368
369 
		  	Response.write "No Products Found."
 369 
		  If rsQry.RecordCount < 1 Then
370 
		  End If
 370 
		  	Response.write "No Products Found."
371
371 
		  End If
372 
		  While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
 372
373 
		  %>
 373 
		  While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
374 
            <tr>
 374 
		  %>
375 
              <td nowrap class="form_iname"><input type="checkbox" name="prod_id_list" value="<%=rsQry("prod_id")%>" <%=rsQry("used")%>></td>
 375 
            <tr>
376 
              <td nowrap class="body_txt"><%=Eval( rsQry("icon") )%><%=rsQry("pkg_name") &" "& rsQry("pkg_version")%></td>
 376 
              <td nowrap class="form_iname"><input type="checkbox" name="prod_id_list" value="<%=rsQry("prod_id")%>" <%=rsQry("used")%>></td>
377 
            </tr>
 377 
              <td nowrap class="body_txt"><%=Eval( rsQry("icon") )%><%=rsQry("pkg_name") &" "& rsQry("pkg_version")%></td>
378 
            <%rsQry.MoveNext%>
 378 
            </tr>
379 
            <%
 379 
            <%rsQry.MoveNext%>
380 
		  WEnd
 380 
            <%
381 
		  OraDatabase.Parameters.Remove "RM_BRANCH_ID"
 381 
		  WEnd
382 
		  OraDatabase.Parameters.Remove "enumPRODUCTS_BASE_VIEW_ID"
 382 
		  OraDatabase.Parameters.Remove "RM_BRANCH_ID"
383 
		  OraDatabase.Parameters.Remove "OS_ID"
 383 
		  OraDatabase.Parameters.Remove "enumPRODUCTS_BASE_VIEW_ID"
384
384 
		  OraDatabase.Parameters.Remove "OS_ID"
385 
	  End If
385
386
386 
	  End If
387
387
388
388
389 
		  %>
 389
390 
		  </table>
 390 
		  %>
391 
<input name="btn" type="submit" class="form_btn" value="Import">
 391 
		  </table>
392 
 
 392 
<input name="btn" type="submit" class="form_btn" value="Import">
393 
</td>
 393 
 
394 
  <%=objPMod.ComposeHiddenTags()%>
 394 
</td>
395 
 
 395 
  <%=objPMod.ComposeHiddenTags()%>
396 
 
 396 
 
397
397 
 
398 
<%
 398
399 
Call objFormComponent.FormEnd()
 399 
<%
400 
%>
 400 
Call objFormComponent.FormEnd()
401 
</table>
 401 
%>
402 
</body>
 402 
</table>
403 
</html>
 403 
</body>
404 
<%
 404 
</html>
405 
'------------ RUN AFTER PAGE RENDER -----------
 405 
<%
406 
Set objFormCollector = Nothing
 406 
'------------ RUN AFTER PAGE RENDER -----------
407 
'----------------------------------------------
 407 
Set objFormCollector = Nothing
408 
%><!--#include file="common/globals_destructor.asp"-->
 408 
'----------------------------------------------
- 
 
 409 
%><!--#include file="common/globals_destructor.asp"-->