Subversion Repositories DevTools

Rev

Rev 6182 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
5355 dpurdie 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 -------------
23 
Dim rsQry
24 
Dim objFormCollector
25 
Dim sMessage
26 
Dim aAddPkgList, aFullList, dAddPkgList, PvId
27 
'------------ CONSTANTS DECLARATION -----------
28 
Const LIMG_PRODUCT_PATCH = "<img src='icons/i_patch_small.gif' hspace='2' align='absmiddle'>"
29 
'------------ VARIABLE INIT -------------------
30 
sMessage = NULL
31 
parBom_id = Request("bom_id")
32 
parOs_id = Request("os_id")
33 
Set objFormCollector = CreateObject("Scripting.Dictionary")
34 
Set dAddPkgList = CreateObject("Scripting.Dictionary")
35 
'------------ CONDITIONS ----------------------
36 
'----------------------------------------------
37 
%>
38 
<%
39 
'--------------------------------------------------------------------------------------------------------------------------
40 
Sub GetFormDetails ( nBom_id, ByRef outobjDetails )
41 
	Dim rsQry, query
42 
	OraDatabase.Parameters.Add "BOM_ID", 		nBom_id,		ORAPARM_INPUT, ORATYPE_NUMBER
43 
 
44 
	query = _
45 
	"  SELECT bo.RTAG_ID_FK,"&_
46 
	"	   rm_proj.PROJ_ID,"&_
47 
	"	   rm_proj.PROJ_NAME,"&_
48 
	"	   rt.RTAG_NAME"&_
49 
	"  FROM BOMS bo,"&_
50 
	"	   PROJECTS rm_proj,"&_
51 
	"	   RELEASE_TAGS rt"&_
52 
	" WHERE rt.PROJ_ID = rm_proj.PROJ_ID"&_
53 
	"   AND bo.RTAG_ID_FK = rt.RTAG_ID"&_
54 
	"   AND bo.BOM_ID = :BOM_ID"
55 
 
56 
	Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
57 
	If (NOT rsQry.BOF) AND (NOT rsQry.EOF)Then
58 
		outobjDetails.Item ("rtag_id_fk") = rsQry("rtag_id_fk")
59 
		outobjDetails.Item ("proj_id") = rsQry("proj_id")
60 
		outobjDetails.Item ("proj_name") = rsQry("proj_name")
61 
		outobjDetails.Item ("rtag_name") = rsQry("rtag_name")
62 
 
63 
	End If
64 
 
65 
 
66 
	OraDatabase.Parameters.Remove "BOM_ID"
67 
 
68 
	rsQry.Close
69 
	Set rsQry = Nothing
70 
End Sub
71 
'--------------------------------------------------------------------------------------------------------------------------
72 
Sub AddProdToBaseEnv ()
73 
	On Error Resume Next
74 
 
75 
	OraDatabase.Parameters.Add "PROD_ID_LIST", 	Request("prod_id_list"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
76 
	OraDatabase.Parameters.Add "BASE_ENV_ID", 	Request("base_env_id"),		ORAPARM_INPUT, ORATYPE_NUMBER
77 
	OraDatabase.Parameters.Add "OS_ID", 		Request("os_id"), 			ORAPARM_INPUT, ORATYPE_NUMBER
78 
	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
79 
	OraDatabase.Parameters.Add "BOM_ID",		parBom_id,					ORAPARM_INPUT, ORATYPE_NUMBER
80 
 
81 
 
82 
	objEH.TryORA ( OraSession )
83 
 
84 
	OraDatabase.ExecuteSQL _
85 
	"BEGIN   pk_Base_Env.Add_Product ( :PROD_ID_LIST, :BASE_ENV_ID, :OS_ID, :USER_ID );   END;"
86 
 
87 
	objEH.CatchORA ( OraSession )
88 
 
89 
	aFullList = Split ( Replace( Request("prod_id_list"), " ", "" ), "," )
90 
 
91 
 
92 
	' Clean empty parameters
93 
	For Each PvId In aFullList
94 
		If PvId <> "" Then
95 
			dAddPkgList.Add CStr( PvId ), Empty
96 
		End If
97 
	Next
98 
 
99 
	aFullList = NULL
100 
	aAddPkgList = dAddPkgList.Keys
101 
 
102 
	For Each PvId In aAddPkgList
103 
		Call PopulateSBOMField(parBom_id, PvId, NULL, NULL )
104 
	Next
105 
 
106 
 
107 
	OraDatabase.Parameters.Remove "PROD_ID_LIST"
108 
	OraDatabase.Parameters.Remove "BASE_ENV_ID"
109 
	OraDatabase.Parameters.Remove "OS_ID"
110 
	OraDatabase.Parameters.Remove "USER_ID"
111 
	OraDatabase.Parameters.Remove "BOM_ID"
112 
End Sub
113 
'--------------------------------------------------------------------------------------------------------------------------
114 
Sub AddProdToOs ()
115 
	On Error Resume Next
116 
 
117 
	OraDatabase.Parameters.Add "PROD_ID_LIST", 	Request("prod_id_list"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
118 
	OraDatabase.Parameters.Add "OS_ID", 		Request("os_id"), 			ORAPARM_INPUT, ORATYPE_NUMBER
119 
	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
120 
	OraDatabase.Parameters.Add "BOM_ID",		parBom_id,					ORAPARM_INPUT, ORATYPE_NUMBER
121 
 
122 
	objEH.TryORA ( OraSession )
123 
 
124 
	OraDatabase.ExecuteSQL _
125 
	"BEGIN   pk_Product.Add_Product ( :PROD_ID_LIST, :OS_ID, :USER_ID );   END;"
126 
 
127 
	objEH.CatchORA ( OraSession )
128 
 
129 
	aFullList = Split ( Replace( Request("prod_id_list"), " ", "" ), "," )
130 
 
131 
	' Clean empty parameters
132 
	For Each PvId In aFullList
133 
		If PvId <> "" Then
134 
			dAddPkgList.Add CStr( PvId ), Empty
135 
		End If
136 
	Next
137 
 
138 
	aFullList = NULL
139 
	aAddPkgList = dAddPkgList.Keys
140 
 
141 
	For Each PvId In aAddPkgList
142 
		Call PopulateSBOMField(parBom_id, PvId, NULL, NULL )
143 
	Next
144 
 
145 
 
146 
	OraDatabase.Parameters.Remove "PROD_ID_LIST"
147 
	OraDatabase.Parameters.Remove "OS_ID"
148 
	OraDatabase.Parameters.Remove "USER_ID"
149 
	OraDatabase.Parameters.Remove "BOM_ID"
150 
 
151 
End Sub
152 
'--------------------------------------------------------------------------------------------------------------------------
153 
%>
154 
<%
155 
'------------ RUN BEFORE PAGE RENDER ----------
156 
objPMod.PersistInQryString ( Array("base_env_id") )
157 
 
158 
If CBool(Request("action")) Then
159 
	If Request("prod_id_list") <> "" Then
160 
 
161 
		'-- Add Product List
162 
		If Request("base_env_id") = "" Then
163 
			Call AddProdToOs()
164 
		Else
165 
			Call AddProdToBaseEnv()
166 
		End If
167 
 
168 
		If objEH.Finally Then
169 
			Call OpenInParentWindow ( Request("rfile") &"?ADDED=OK"& objPMod.ComposeURLWithout("rfile,base_env_id") )
170 
			Call CloseWindow()
171 
		End If
172 
 
173 
	Else
174 
		sMessage = "Please select Product(s) from Release Manager list then click Add."
175 
 
176 
	End If
177 
 
178 
End If
179 
 
180 
Call GetFormDetails ( parBom_id, objFormCollector )
181 
'----------------------------------------------
182 
%>
183 
<html>
184 
<head>
185 
<title>Deployment Manager</title>
186 
<link rel="shortcut icon" href="<%=FavIcon%>"/>
187 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
188 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
6663 dpurdie 189 
<link href="scripts/deployment_manager.css?ver=<%=VixVerNum%>" rel="stylesheet" type="text/css">
190 
<script language="JavaScript" src="scripts/common.js?ver=<%=VixVerNum%>"></script>
5355 dpurdie 191 
</head>
192 
 
193 
<body background="images/bg_bage_0.gif" leftmargin="0" topmargin="0" onLoad="self.focus();FormSearch.prod_name.focus();">
194 
<table width="100%"  border="0" cellspacing="0" cellpadding="10">
195 
  <tr>
196 
    <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 Product </span> <br>
197 
    Search for Product, Create New Product or select from Release Manager list.
198 
      </td>
199 
  </tr>
200 
 
201 
<%
202 
'-- FROM START ---------------------------------------------------------------------------------------------------------------
203 
objFormComponent.FormName = "FormSearch"
204 
objFormComponent.Action = "wAddProdBySearch.asp"
205 
Call objFormComponent.FormStart()
206 
%>
207 
  <tr>
208 
    <td background="images/bg_quicksearch.gif" class="body_txt"><table width="100" border="0" cellspacing="3" cellpadding="0">
209 
        <tr>
210 
          <td nowrap class="body_txtw"><strong>Product Search</strong> </td>
211 
          <td><input name="prod_name" type="text" class="body_txt" size="20"></td>
212 
          <td><input name="btn" type="image" src="icons/b_search.gif" width="16" height="16" border="0"></td>
213 
        </tr>
214 
      </table></td>
215 
  </tr>
216 
  <%=objPMod.ComposeHiddenTags()%>
217 
<%
218 
Call objFormComponent.FormEnd()
219 
'-- FROM END ----------------------------------------------------------------------------------------------------------------
220 
%>
221 
 
222 
<%
223 
'-- FROM START --------------------------------------------------------------------------------------------------------------
224 
objFormComponent.FormName = "FormName"
225 
objFormComponent.Action = SCRIPT_NAME
226 
objFormComponent.OnSubmit = "ShowProgress();"
227 
Call objFormComponent.FormStart()
228 
%>
229 
  <tr>
230 
    <td background="images/bg_login.gif"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
231 
      <tr>
232 
        <td><%=ProgressBar()%></td>
233 
        <td align="right"><input name="btn" type="submit" class="form_btn" value="Add">
234 
          <input name="btn" type="reset" class="form_btn" value="Cancel" onClick="self.close();"></td>
235 
      </tr>
236 
    </table></td>
237 
  </tr>
238 
  <tr>
239 
    <td>
240 
<!-- NEW PRODUCT ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
241 
	<%Call Messenger ( sMessage , 3, "100%" )%>
242 
	<!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
243 
	<!--#include file="messages/_msg_inline.asp"-->
244 
    <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
245 
	<table width="100%"  border="0" cellspacing="10" cellpadding="0">
246 
      <tr>
247 
        <td width="50%" valign="top" class="body_txt"><strong>Create New</strong><br>
248 
            <a href="wAddProdNew.asp?NEW=OK&<%=objPMod.ComposeURL()%>" class="menu_link"><img src="icons/i_product_new.gif" width="15" height="17" hspace="5" vspace="3" border="0" align="absmiddle">Product</a><br>
249 
        </td>
250 
        <td width="1" background="images/bg_bage_2.gif"><img src="images/spacer.gif" width="1" height="1"></td>
251 
        <td width="50%" valign="top" nowrap class="body_txt"><strong>Add from Release Manager</strong><br>
252 
		  <%If (objFormCollector.Item("rtag_id_fk") <> "")  Then%>
253 
		  <%=objFormCollector.Item ("proj_name") &"&nbsp;/&nbsp;"& objFormCollector.Item ("rtag_name")%>
254 
		  <%Else%>
255 
		  <%Call Messenger ( "This BOM does not have Release Manager Reference release.<br>Please edit BOM properties first.<br>" , 1, "100%" )%>
256 
		  <%End If%>
257 
          <br>
258 
          <table width="100%"  border="0" cellspacing="3" cellpadding="0">
259 
            <tr>
260 
              <td width="1"><img src="images/spacer.gif" width="1" height="1"></td>
261 
              <td width="100%"><img src="images/spacer.gif" width="1" height="1"></td>
262 
            </tr>
263 
            <%
264 
	  ' -- Only run if links with Release Manager
265 
	  If (objFormCollector.Item("rtag_id_fk") <> "")  Then
266 
 
267 
		  '===== Release Manager PRODUCTS =====
268 
		  OraDatabase.Parameters.Add "RTAG_ID_FK", 				objFormCollector.Item("rtag_id_fk"),	ORAPARM_INPUT, ORATYPE_NUMBER
269 
		  OraDatabase.Parameters.Add "enumPRODUCTS_BASE_VIEW_ID", 	enumPRODUCTS_BASE_VIEW_ID,				ORAPARM_INPUT, ORATYPE_NUMBER
270 
		  OraDatabase.Parameters.Add "enumAUTOPRODUCTS_BASE_VIEW_ID", 	enumAUTOPRODUCTS_BASE_VIEW_ID,				ORAPARM_INPUT, ORATYPE_NUMBER
271 
		  OraDatabase.Parameters.Add "OS_ID", 						parOs_id,								ORAPARM_INPUT, ORATYPE_NUMBER
272 
 
273 
		  Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("ReleaseManagerProductsView.sql"), ORADYN_DEFAULT )
274 
 
5955 dpurdie 275 
		  OraDatabase.Parameters.Remove "RTAG_ID_FK"
276 
		  OraDatabase.Parameters.Remove "enumPRODUCTS_BASE_VIEW_ID"
277 
		  OraDatabase.Parameters.Remove "enumAUTOPRODUCTS_BASE_VIEW_ID"
278 
		  OraDatabase.Parameters.Remove "OS_ID"
279 
 
5355 dpurdie 280 
		  If rsQry.RecordCount < 1 Then
281 
		  	Response.write "No Products Found."
282 
		  End If
283 
 
284 
		  While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
285 
		  %>
286 
            <tr>
287 
              <td nowrap class="form_iname"><input type="checkbox" name="prod_id_list" value="<%=rsQry("prod_id")%>" <%=rsQry("used")%>></td>
288 
              <td nowrap class="body_txt"><%=Eval( rsQry("icon") )%><%=rsQry("pkg_name") &" "& rsQry("pkg_version")%></td>
289 
            </tr>
290 
            <%rsQry.MoveNext%>
291 
            <%
292 
		  WEnd
293 
 
294 
 
295 
 
296 
		  %>
297 
		  </table>
298 
		  <br><br>
299 
		  <!-- NEW PATCHES ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
300 
		  <strong>Add New Patches</strong><br>
301 
          <table width="100%"  border="0" cellspacing="3" cellpadding="0">
302 
		  <%
6182 dpurdie 303 
 
304 
		  OraDatabase.Parameters.Add "OS_ID", 						parOs_id,								ORAPARM_INPUT, ORATYPE_NUMBER
5355 dpurdie 305 
		  Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("ReleaseManagerProductsUnusedPatches.sql"), ORADYN_DEFAULT )
6182 dpurdie 306 
		  OraDatabase.Parameters.Remove "OS_ID"
5355 dpurdie 307 
 
308 
		  If rsQry.RecordCount < 1 Then
309 
		  	Response.write "No New Patches Found."
310 
		  End If
311 
 
312 
		  While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
313 
		  %>
314 
            <tr>
315 
              <td nowrap class="form_iname"><input type="checkbox" name="prod_id_list" value="<%=rsQry("prod_id")%>"></td>
316 
              <td nowrap class="body_txt"><%=LIMG_PRODUCT_PATCH%><%=rsQry("pkg_name") &" "& rsQry("pkg_version")%></td>
317 
            </tr>
318 
            <%rsQry.MoveNext%>
319 
            <%
320 
		  WEnd
321 
	  End If
322 
	  %>
323 
          </table></td>
324 
        <td width="1" valign="top" class="body_txt"><img src="images/spacer.gif" width="1" height="320"></td>
325 
      </tr>
326 
    </table>
327 
	<!-- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
328 
    </td>
329 
  </tr>
330 
  <%=objPMod.ComposeHiddenTags()%>
331 
  <input type="hidden" name="action" value="true">
332 
<%
333 
Call objFormComponent.FormEnd()
334 
'-- FROM END ----------------------------------------------------------------------------------------------------------------
335 
%>
336 
</table>
337 
</body>
338 
</html>
5958 dpurdie 339 
<!--#include file="common/globals_destructor.asp"-->