Subversion Repositories DevTools

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
23 rsolanki 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
3 
'=====================================================
4 
'|                                                   |
5 
'|			          wUnhideProducts                  |
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 aProducts
25 
Dim numOfRows
26 
Dim rowNum
27 
Dim objFormCollector
28 
Dim currPkg_id
4216 dpurdie 29 
Dim objList
30 
Dim key
31 
 
23 rsolanki 32 
'------------ CONSTANTS DECLARATION -----------
33 
'------------ VARIABLE INIT -------------------
34 
parBom_id = Request("bom_id")
35 
Set objFormCollector = CreateObject("Scripting.Dictionary")
4216 dpurdie 36 
Set objList = CreateObject("Scripting.Dictionary")
37 
 
23 rsolanki 38 
'------------ CONDITIONS ----------------------
39 
'----------------------------------------------
40 
%>
41 
<%
42 
'----------------------------------------------------------------------------------------------------------------------------------
43 
Sub GetFormDetails ( nBom_id, ByRef outobjDetails )
44 
	Dim rsQry, query
45 
	OraDatabase.Parameters.Add "BOM_ID", 		nBom_id,		ORAPARM_INPUT, ORATYPE_NUMBER
46 
 
47 
	query = _
48 
	"  SELECT rt.RTAG_ID, "&_
49 
	"	      rt.RTAG_NAME "&_
50 
	"	 FROM RELEASE_TAGS rt,"&_
51 
	"	 	   BOMS bo"&_
52 
	"	WHERE bo.RTAG_ID_FK = rt.RTAG_ID"&_
53 
	"	  AND bo.BOM_ID = :BOM_ID"
54 
 
55 
	Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
56 
	If (NOT rsQry.BOF) AND (NOT rsQry.EOF)Then
57 
		outobjDetails.Item ("rtag_id_fk") = rsQry("rtag_id")
58 
		outobjDetails.Item ("rtag_name") = rsQry("rtag_name")
59 
	End If
60 
 
61 
 
62 
	OraDatabase.Parameters.Remove "BOM_ID"
63 
 
64 
	rsQry.Close
65 
	Set rsQry = Nothing
66 
End Sub
67 
'----------------------------------------------------------------------------------------------------------------------------------
68 
Sub UnhideProducts()
69 
	Dim aDiffList, numOfRows, rowNum, OraParameter
70 
	Const os_id_column = 2
71 
	Const old_prod_id_column = 1
72 
 
73 
	'/* Get Lates Release Manager */
74 
	OraDatabase.Parameters.Add "BOM_ID", parBom_id,		ORAPARM_INPUT, ORATYPE_NUMBER
75 
	OraDatabase.Parameters.Add "RTAG_ID", objFormCollector.Item("rtag_id_fk"),		ORAPARM_INPUT, ORATYPE_NUMBER
76 
 
77 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("CompareBomWithLatestFromRM.sql"), ORADYN_DEFAULT )
78 
 
79 
 
80 
	'-- Get Rows
81 
	If rsQry.RecordCount > 0 Then
82 
		aDiffList = rsQry.GetRows()
83 
 
84 
	Else
85 
		'-- No differencses with Release Manager, hence exit
86 
		OraDatabase.Parameters.Remove "BOM_ID"
87 
		OraDatabase.Parameters.Remove "RTAG_ID"
88 
		Exit Sub
89 
 
90 
	End If
91 
 
92 
 
93 
 
94 
	'/* Update Versions */
95 
	On Error Resume Next
96 
 
97 
	OraDatabase.Parameters.Add "PROD_ID", 	0, 	ORAPARM_INPUT, ORATYPE_NUMBER
98 
	OraDatabase.Parameters.Add "OS_ID", 		0, 	ORAPARM_INPUT, ORATYPE_NUMBER
99 
	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
100 
 
101 
	Set OraParameter = OraDatabase.Parameters
102 
 
103 
 
104 
 
105 
	objEH.TryORA ( OraSession )
106 
 
107 
	numOfRows = UBound( aDiffList, 2 )
108 
 
109 
	For rowNum = 0 To numOfRows
110 
 
111 
		If Request("unhide_"& aDiffList( os_id_column, rowNum ) &"_"& aDiffList( old_prod_id_column, rowNum ) ) <> "" Then
112 
			OraParameter("PROD_ID").Value = Request("unhide_"& aDiffList( os_id_column, rowNum ) &"_"& aDiffList( old_prod_id_column, rowNum ) )
113 
			OraParameter("OS_ID").Value = aDiffList( os_id_column, rowNum )
114 
 
115 
			OraDatabase.ExecuteSQL "BEGIN   pk_Product.Unhide_Product ( :PROD_ID, :OS_ID, :USER_ID );   END;"
116 
		End If
117 
 
118 
	Next
119 
 
120 
 
121 
	'--- Log Action ---
122 
	'objEH.LogAction  _
123 
	'objAccessControl.UserId, _
124 
	'enumAT_EVENT_COMMENT, _
125 
	'"Sub UpdateProducts for OS list="& Request("spos_id_list"), _
126 
	'SCRIPT_NAME, _
127 
	'"Updated Products with new versions.", _
128 
	'OraDatabase
129 
 
130 
 
131 
	objEH.CatchORA ( OraSession )
132 
 
133 
	OraDatabase.Parameters.Remove "BOM_ID"
134 
	OraDatabase.Parameters.Remove "RTAG_ID"
135 
	OraDatabase.Parameters.Remove "PROD_ID"
136 
	OraDatabase.Parameters.Remove "OS_ID"
137 
	OraDatabase.Parameters.Remove "USER_ID"
138 
End Sub
139 
'----------------------------------------------------------------------------------------------------------------------------------
140 
Sub UnhidePatches()
141 
	Dim aDiffList, numOfRows, rowNum, OraParameter
142 
	Const os_id_column = 2
143 
	Const old_prod_id_column = 1
144 
 
145 
	'/* Get Lates Release Manager */
146 
	OraDatabase.Parameters.Add "BOM_ID", parBom_id,		ORAPARM_INPUT, ORATYPE_NUMBER
147 
 
148 
 
149 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("UnHidePatches.sql"), ORADYN_DEFAULT )
150 
 
151 
 
152 
	'-- Get Rows
153 
	If rsQry.RecordCount > 0 Then
154 
		aDiffList = rsQry.GetRows()
155 
 
156 
	Else
157 
		'-- No differencses with Release Manager, hence exit
158 
		OraDatabase.Parameters.Remove "BOM_ID"
159 
 
160 
		Exit Sub
161 
 
162 
	End If
163 
 
164 
 
165 
 
166 
	'/* Unhide Products/Patches */
167 
	On Error Resume Next
168 
 
169 
	OraDatabase.Parameters.Add "PROD_ID", 	0, 	ORAPARM_INPUT, ORATYPE_NUMBER
170 
	OraDatabase.Parameters.Add "OS_ID", 		0, 	ORAPARM_INPUT, ORATYPE_NUMBER
171 
	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
172 
 
173 
	Set OraParameter = OraDatabase.Parameters
174 
 
175 
 
176 
 
177 
	objEH.TryORA ( OraSession )
178 
 
179 
	numOfRows = UBound( aDiffList, 2 )
180 
 
181 
 
182 
	For rowNum = 0 To numOfRows
183 
 
184 
 
185 
		If Request("unhide_"& aDiffList( os_id_column, rowNum ) &"_"& aDiffList( old_prod_id_column, rowNum ) ) <> "" Then
186 
			OraParameter("PROD_ID").Value = Request("unhide_"& aDiffList( os_id_column, rowNum ) &"_"& aDiffList( old_prod_id_column, rowNum ) )
187 
			OraParameter("OS_ID").Value = aDiffList( os_id_column, rowNum )
188 
 
189 
			OraDatabase.ExecuteSQL "BEGIN   pk_Product.Unhide_Product ( :PROD_ID, :OS_ID, :USER_ID );   END;"
190 
 
191 
		End If
192 
 
193 
	Next
194 
 
195 
 
196 
	'--- Log Action ---
197 
	'objEH.LogAction  _
198 
	'objAccessControl.UserId, _
199 
	'enumAT_EVENT_COMMENT, _
200 
	'"Sub UpdateProducts for OS list="& Request("spos_id_list"), _
201 
	'SCRIPT_NAME, _
202 
	'"Updated Products with new versions.", _
203 
	'OraDatabase
204 
 
205 
 
206 
	objEH.CatchORA ( OraSession )
207 
 
208 
	OraDatabase.Parameters.Remove "BOM_ID"
209 
 
210 
	OraDatabase.Parameters.Remove "PROD_ID"
211 
	OraDatabase.Parameters.Remove "OS_ID"
212 
	OraDatabase.Parameters.Remove "USER_ID"
213 
End Sub
214 
'----------------------------------------------------------------------------------------------------------------------------------
215 
%>
216 
<%
217 
'------------ RUN BEFORE PAGE RENDER ----------
218 
Call GetFormDetails ( parBom_id, objFormCollector )
219 
 
220 
If Request("action") <> "" Then
221 
 
222 
	' --- Form is Valid ---
223 
	Call UnhideProducts()
224 
 
225 
	Call UnhidePatches()
226 
 
227 
	If objEH.Finally Then
228 
		Call OpenInParentWindow ( Request("rfile") &"?UPDATED=OK"& objPMod.ComposeURLWithout("rfile") )
229 
		Call CloseWindow()
230 
	End If
231 
End If
232 
 
233 
'----------------------------------------------
234 
%>
235 
 
236 
 
237 
<html>
238 
<head>
239 
<SCRIPT LANGUAGE="JavaScript">
240 
<!-- Begin
241 
var checkflag = "false";
242 
function check(field) {
243 
if (checkflag == "false") {
244 
  for (i = 0; i < field.length; i++) {
245 
  field[i].checked = true;}
246 
  checkflag = "true";
247 
  return "Uncheck all"; }
248 
else {
249 
  for (i = 0; i < field.length; i++) {
250 
  field[i].checked = false; }
251 
  checkflag = "false";
252 
  return "Check all"; }
253 
}
254 
//  End -->
255 
</script>
256 
 
257 
 
258 
<title>Deployment Manager</title>
259 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
260 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
261 
<link href="scripts/deployment_manager.css" rel="stylesheet" type="text/css">
262 
<script language="JavaScript" src="scripts/common.js"></script>
263 
<style type="text/css">
264 
<!--
265 
.style8 {font-size: 12px}
266 
-->
267 
</style>
268 
</head>
269 
 
270 
<body background="images/bg_bage_0.gif" leftmargin="0" topmargin="0" onLoad="self.focus();">
271 
<table width="100%"  border="0" cellspacing="0" cellpadding="10">
272 
  <tr>
273 
    <td bgcolor="#FFFFFF" class="body_txt"><span class="body_h1"><img src="icons/i_linkarrow_black.gif" width="11" height="11" align="absmiddle">&nbsp;Unhide Patches/Products </span> <br>
274 
    </td>
275 
  </tr>
276 
<%
277 
'-- FROM START --------------------------------------------------------------------------------------------------------------
278 
objFormComponent.FormName = "FormName"
279 
objFormComponent.Action = SCRIPT_NAME
280 
objFormComponent.OnSubmit = "ShowProgress();"
281 
Call objFormComponent.FormStart()
282 
%>
283 
  <tr>
284 
    <td background="images/bg_login.gif"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
285 
      <tr>
286 
        <td><%=ProgressBar()%>
287 
          <input name="btn" type="submit" class="form_btn" value="Unhide">
288 
          <input name="btn" type="reset" class="form_btn" value="Cancel" onClick="self.close();"></td>
289 
        <td align="left">&nbsp;        </td>
290 
      </tr>
291 
    </table></td>
292 
  </tr>
293 
  <tr>
294 
    <td>
295 
<!-- PRODUCT NAME RESULTS ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
296 
	<table width="100%"  border="0" cellspacing="10" cellpadding="0">
297 
      <tr>
298 
        <td width="100%" valign="top" nowrap class="body_txt">
299 
		  <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
300 
		  <!--#include file="messages/_msg_inline.asp"-->
301 
		  <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
302 
		  <%
303 
		  If objFormCollector.Item("rtag_id_fk") = "" Then
304 
			Call Messenger ( "This BOM does not have Release Manager Reference release.<br>Please edit BOM properties first.<br>", 1, "100%" )
305 
		  End If
306 
		  %>
307 
		  <!-- UNHIDE PRODUCTS +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
308 
		  Select Products and click Unhide.
309 
          <table width="100%"  border="0" cellspacing="3" cellpadding="0">
310 
            <tr>
311 
              <td align="right" background="images/bg_bage_0h.gif" class="body_col"><div align="center">Unhide</div></td>
312 
              <td width="40%" align="right" nowrap background="images/bg_bage_0h.gif" class="body_col"><div align="left">Location</div></td>
313 
              <td width="20%" align="right" nowrap background="images/bg_bage_0h.gif" class="body_col"><div align="left">Version</div></td>
314 
 
315 
              <td align="right" background="images/bg_bage_0h.gif" class="body_col"><div align="left"><img src="images/spacer.gif" width="1" height="18" align="absmiddle">Latest</div>                <div align="left"></div></td>
316 
              </tr>
317 
			<%
318 
			OraDatabase.Parameters.Add "BOM_ID", parBom_id,		ORAPARM_INPUT, ORATYPE_NUMBER
319 
			OraDatabase.Parameters.Add "RTAG_ID", objFormCollector.Item("rtag_id_fk"),		ORAPARM_INPUT, ORATYPE_NUMBER
320 
 
321 
			Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("UnHideProducts.sql"), ORADYN_DEFAULT )
322 
			currPkg_id = 0
323 
			%>
324 
			<%If rsQry.RecordCount < 1 Then%>
325 
			<tr>
326 
              <td colspan="5" class="body_row">No Products to Update.                 </td>
327 
            </tr>
328 
			<%End If%>
4216 dpurdie 329 
			<%While (NOT rsQry.BOF) AND (NOT rsQry.EOF)%>
23 rsolanki 330 
			<%If currPkg_id <> rsQry("pkg_id") Then%>
331 
            <tr>
332 
			  <td nowrap><div align="left"><span class="body_row"><img src="icons/i_product.gif" width="19" height="19" hspace="2" align="absmiddle"><%=rsQry("prod_name")%>                                                                     				   </span></div></td>
333 
              <td nowrap></td>
334 
              <td nowrap class="body_row">&nbsp;</td>
335 
              <td nowrap class="body_row"><div align="center"></div></td>
336 
              <td nowrap class="body_row"></td>
337 
              </tr>
338 
			<tr>
339 
              <td colspan="5" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
340 
            </tr>
341 
			<%currPkg_id = rsQry("pkg_id")%>
342 
			<%End If%>
4216 dpurdie 343 
            <%key = rsQry("os_id") & "_" & rsQry("prod_id")%>
23 rsolanki 344 
            <tr>
4216 dpurdie 345 
              <%If objList.Exists(key) Then%>
346 
              <td></td>
347 
              <%Else%>
23 rsolanki 348 
              <td align="center" nowrap><input type="checkbox" name="unhide_<%=rsQry("os_id") &"_"& rsQry("prod_id")%>" value="<%=rsQry("prod_id")%>"> </td>
4216 dpurdie 349 
              <%End If%>
350 
              <%objList.Item(key) = objList.Item(key) + 1 %>
23 rsolanki 351 
              <td nowrap class="body_row"><img hspace="2" src="icons/<%=rsQry("node_icon")%>" align="absmiddle" border="0"><%=rsQry("prod_location")%></td>
352 
              <td nowrap class="body_row"><%=rsQry("prod_version")%></td>
353 
              <td nowrap class="body_row"><span class="body_txtr"><%=rsQry("rm_latest_version")%></span></td>
354 
              </tr>
355 
			<tr>
356 
              <td colspan="5" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
357 
            </tr>
358 
            <%rsQry.MoveNext
359 
			Wend
360 
			%>
361 
 
362 
		  <!-- UNHIDE PATCHES +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
363 
		    <%
364 
			Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("UnHidePatches.sql"), ORADYN_DEFAULT )
365 
			currPkg_id = 0
366 
			%>
367 
 
368 
			<%If rsQry.RecordCount > 0 Then%>
369 
		    <tr>
370 
              <td align="right" background="images/bg_bage_0h.gif" class="body_col"><div align="center">Unhide</div></td>
371 
              <td align="right" nowrap background="images/bg_bage_0h.gif" class="body_col"><div align="left">Location</div></td>
372 
			  <td align="right" nowrap background="images/bg_bage_0h.gif" class="body_col"><div align="left">Version</div></td>
373 
 
374 
              <td align="right" background="images/bg_bage_0h.gif" class="body_col"><div align="left">Comments<img src="images/spacer.gif" width="1" height="18" align="absmiddle"></div>                </td>
375 
              </tr>
376 
 
377 
			<%
378 
			While (NOT rsQry.BOF) AND (NOT rsQry.EOF)%>
379 
			<%If currPkg_id <> rsQry("pkg_id") Then%>
380 
            <tr>
381 
			  <td colspan="2" nowrap><div align="left"><span class="body_row"><img src="icons/i_product.gif" width="19" height="19" hspace="2" align="absmiddle"><%=rsQry("prod_name")%></span></div></td>
382 
              <td nowrap class="body_row">&nbsp;</td>
383 
              <td nowrap class="body_row"><div align="center"></div></td>
384 
              <td nowrap class="body_row"></td>
385 
              </tr>
386 
			<tr>
387 
              <td colspan="5" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
388 
            </tr>
389 
			<%currPkg_id = rsQry("pkg_id")%>
390 
			<%End If%>
391 
 
392 
            <tr>
393 
              <td align="center" nowrap><input type="checkbox" name="unhide_<%=rsQry("os_id") &"_"& rsQry("prod_id")%>" value="<%=rsQry("prod_id")%>"> </td>
394 
              <td nowrap class="body_row"><img hspace="2" src="icons/<%=rsQry("node_icon")%>" align="absmiddle" border="0"><%=rsQry("prod_location")%></td>
395 
              <td nowrap class="body_row"><img src="icons/i_patch_small.gif" width="16" height="16" border="0" align="absmiddle"><%=rsQry("prod_version")%></td>
396 
              <td nowrap class="body_row"><span class="body_row"><%=rsQry("comments")%></span></td>
397 
              </tr>
398 
			<tr>
399 
              <td colspan="5" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
400 
            </tr>
401 
            <%rsQry.MoveNext
402 
			Wend
403 
			%>
404 
 
405 
			<%End If%>
406 
 
407 
			<tr>
408 
              <td colspan="5" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="3"></td>
409 
            </tr>
410 
          </table>
411 
 
412 
 
413 
		  <%
414 
		  OraDatabase.Parameters.Remove "RTAG_ID"
415 
		  OraDatabase.Parameters.Remove "BOM_ID"
416 
		  rsQry.Close
417 
		  Set rsQry = Nothing
418 
		  %>		  </td>
419 
        </tr>
420 
    </table>
421 
	<!-- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
422 
    </td>
423 
  </tr>
424 
  <%=objPMod.ComposeHiddenTags()%>
425 
  <input type="hidden" name="action" value="true">
426 
<%
427 
Call objFormComponent.FormEnd()
428 
'-- FROM END ----------------------------------------------------------------------------------------------------------------
429 
%>
430 
</table>
431 
</body>
432 
</html>
433 
<%
434 
'------------ RUN AFTER PAGE RENDER -----------
435 
'----------------------------------------------
436 
%><!--#include file="common/globals_destructor.asp"-->