Subversion Repositories DevTools

Rev

Details | Last modification | View Log | RSS feed

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