Subversion Repositories DevTools

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
13 rsolanki 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
3 
'=====================================================
4 
'|                                                   |
5 
'|			          wSyncProducts                  |
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
29 
'------------ CONSTANTS DECLARATION -----------
30 
'------------ VARIABLE INIT -------------------
31 
parBom_id = Request("bom_id")
32 
Set objFormCollector = CreateObject("Scripting.Dictionary")
33 
'------------ CONDITIONS ----------------------
34 
'----------------------------------------------
35 
%>
36 
<%
37 
'----------------------------------------------------------------------------------------------------------------------------------
38 
Sub GetFormDetails ( nBom_id, ByRef outobjDetails )
39 
	Dim rsQry, query
40 
	OraDatabase.Parameters.Add "BOM_ID", 		nBom_id,		ORAPARM_INPUT, ORATYPE_NUMBER
41 
 
42 
	query = _
43 
	"  SELECT rt.RTAG_ID, "&_
44 
	"	      rt.RTAG_NAME "&_
45 
	"	 FROM RELEASE_TAGS rt,"&_
46 
	"	 	   BOMS bo"&_
47 
	"	WHERE bo.RTAG_ID_FK = rt.RTAG_ID"&_
48 
	"	  AND bo.BOM_ID = :BOM_ID"
49 
 
50 
	Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
51 
	If (NOT rsQry.BOF) AND (NOT rsQry.EOF)Then
52 
		outobjDetails.Item ("rtag_id_fk") = rsQry("rtag_id")
53 
		outobjDetails.Item ("rtag_name") = rsQry("rtag_name")
54 
	End If
55 
 
56 
 
57 
	OraDatabase.Parameters.Remove "BOM_ID"
58 
 
59 
	rsQry.Close
60 
	Set rsQry = Nothing
61 
End Sub
62 
'----------------------------------------------------------------------------------------------------------------------------------
63 
Sub UpdateProducts()
64 
	Dim aDiffList, numOfRows, rowNum, OraParameter
65 
	Const os_id_column = 2
66 
	Const old_prod_id_column = 1
67 
 
68 
	'/* Get Lates Release Manager */
69 
	OraDatabase.Parameters.Add "BOM_ID", parBom_id,		ORAPARM_INPUT, ORATYPE_NUMBER
70 
	OraDatabase.Parameters.Add "RTAG_ID", objFormCollector.Item("rtag_id_fk"),		ORAPARM_INPUT, ORATYPE_NUMBER
71 
 
72 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("CompareBomWithLatestFromRM.sql"), ORADYN_DEFAULT )
73 
 
74 
 
75 
	'-- Get Rows
76 
	If rsQry.RecordCount > 0 Then
77 
		aDiffList = rsQry.GetRows()
78 
 
79 
	Else
80 
		'-- No differencses with Release Manager, hence exit
81 
		OraDatabase.Parameters.Remove "BOM_ID"
82 
		OraDatabase.Parameters.Remove "RTAG_ID"
83 
		Exit Sub
84 
 
85 
	End If
86 
 
87 
 
88 
 
89 
	'/* Update Versions */
90 
	On Error Resume Next
91 
 
92 
	OraDatabase.Parameters.Add "OLD_PROD_ID", 	0, 	ORAPARM_INPUT, ORATYPE_NUMBER
93 
	OraDatabase.Parameters.Add "NEW_PROD_ID", 	0, 	ORAPARM_INPUT, ORATYPE_NUMBER
94 
	OraDatabase.Parameters.Add "OS_ID", 		0, 	ORAPARM_INPUT, ORATYPE_NUMBER
95 
	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
96 
 
97 
	Set OraParameter = OraDatabase.Parameters
98 
 
99 
 
100 
 
101 
	objEH.TryORA ( OraSession )
102 
 
103 
	numOfRows = UBound( aDiffList, 2 )
104 
 
105 
	For rowNum = 0 To numOfRows
106 
 
107 
		If Request("update_"& aDiffList( os_id_column, rowNum ) &"_"& aDiffList( old_prod_id_column, rowNum ) ) <> "" Then
108 
			OraParameter("OLD_PROD_ID").Value = aDiffList( old_prod_id_column, rowNum )
109 
			OraParameter("NEW_PROD_ID").Value = Request("update_"& aDiffList( os_id_column, rowNum ) &"_"& aDiffList( old_prod_id_column, rowNum ) )
110 
			OraParameter("OS_ID").Value = aDiffList( os_id_column, rowNum )
111 
 
112 
			OraDatabase.ExecuteSQL "BEGIN   pk_Product.Replace_Product ( :OLD_PROD_ID, :NEW_PROD_ID, :OS_ID, :USER_ID );   END;"
113 
		End If
114 
 
115 
	Next
116 
 
117 
 
118 
	'--- Log Action ---
119 
	'objEH.LogAction  _
120 
	'objAccessControl.UserId, _
121 
	'enumAT_EVENT_COMMENT, _
122 
	'"Sub UpdateProducts for OS list="& Request("spos_id_list"), _
123 
	'SCRIPT_NAME, _
124 
	'"Updated Products with new versions.", _
125 
	'OraDatabase
126 
 
127 
 
128 
	objEH.CatchORA ( OraSession )
129 
 
130 
	OraDatabase.Parameters.Remove "BOM_ID"
131 
	OraDatabase.Parameters.Remove "RTAG_ID"
132 
	OraDatabase.Parameters.Remove "OLD_PROD_ID"
133 
	OraDatabase.Parameters.Remove "NEW_PROD_ID"
134 
	OraDatabase.Parameters.Remove "OS_ID"
135 
	OraDatabase.Parameters.Remove "USER_ID"
136 
End Sub
137 
'----------------------------------------------------------------------------------------------------------------------------------
138 
Sub AddPatches()
139 
	Dim aDiffList, numOfRows, rowNum, OraParameter
140 
	Const os_id_column = 2
141 
	Const prod_id_column = 1
142 
 
143 
	'/* Get Lates Release Manager */
144 
	OraDatabase.Parameters.Add "BOM_ID", parBom_id,		ORAPARM_INPUT, ORATYPE_NUMBER
145 
 
146 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("NewPatches.sql"), ORADYN_DEFAULT )
147 
 
148 
 
149 
	'-- Get Rows
150 
	If rsQry.RecordCount > 0 Then
151 
		aDiffList = rsQry.GetRows()
152 
 
153 
	Else
154 
		'-- No differencses with Release Manager, hence exit
23 rsolanki 155 
		OraDatabase.Parameters.Remove "BOM_ID"
13 rsolanki 156 
		Exit Sub
157 
	End If
158 
 
159 
 
160 
 
161 
	'/* Update Versions */
162 
	On Error Resume Next
163 
 
164 
	OraDatabase.Parameters.Add "NEW_PROD_ID", 	0, 	ORAPARM_INPUT, ORATYPE_NUMBER
165 
	OraDatabase.Parameters.Add "OS_ID", 		0, 	ORAPARM_INPUT, ORATYPE_NUMBER
166 
	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
167 
 
168 
	Set OraParameter = OraDatabase.Parameters
169 
 
170 
 
171 
 
172 
	objEH.TryORA ( OraSession )
173 
 
174 
	numOfRows = UBound( aDiffList, 2 )
175 
 
176 
	For rowNum = 0 To numOfRows
177 
 
178 
		If Request("add_"& aDiffList( os_id_column, rowNum ) &"_"& aDiffList( prod_id_column, rowNum ) ) <> "" Then
179 
			OraParameter("NEW_PROD_ID").Value = Request("add_"& aDiffList( os_id_column, rowNum ) &"_"& aDiffList( prod_id_column, rowNum ) )
180 
			OraParameter("OS_ID").Value = aDiffList( os_id_column, rowNum )
181 
 
182 
			OraDatabase.ExecuteSQL "BEGIN   pk_Product.Add_Product ( :NEW_PROD_ID, :OS_ID, :USER_ID );   END;"
183 
		End If
184 
 
185 
	Next
186 
 
187 
 
188 
	objEH.CatchORA ( OraSession )
189 
 
190 
	OraDatabase.Parameters.Remove "BOM_ID"
191 
	OraDatabase.Parameters.Remove "NEW_PROD_ID"
192 
	OraDatabase.Parameters.Remove "OS_ID"
193 
	OraDatabase.Parameters.Remove "USER_ID"
194 
End Sub
195 
'----------------------------------------------------------------------------------------------------------------------------------
23 rsolanki 196 
Sub HideProducts()
197 
	Dim aDiffList, numOfRows, rowNum, OraParameter
198 
	Const os_id_column = 2
199 
	Const old_prod_id_column = 1
200 
 
201 
	'/* Get Lates Release Manager */
202 
	OraDatabase.Parameters.Add "BOM_ID", parBom_id,		ORAPARM_INPUT, ORATYPE_NUMBER
203 
	OraDatabase.Parameters.Add "RTAG_ID", objFormCollector.Item("rtag_id_fk"),		ORAPARM_INPUT, ORATYPE_NUMBER
204 
 
205 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("CompareBomWithLatestFromRM.sql"), ORADYN_DEFAULT )
206 
 
207 
 
208 
	'-- Get Rows
209 
	If rsQry.RecordCount > 0 Then
210 
		aDiffList = rsQry.GetRows()
211 
 
212 
	Else
213 
		'-- No differencses with Release Manager, hence exit
214 
		OraDatabase.Parameters.Remove "BOM_ID"
215 
		OraDatabase.Parameters.Remove "RTAG_ID"
216 
		Exit Sub
217 
 
218 
	End If
219 
 
220 
 
221 
 
222 
	'/* Update Versions */
223 
	On Error Resume Next
224 
 
225 
	OraDatabase.Parameters.Add "NEW_PROD_ID", 	0, 	ORAPARM_INPUT, ORATYPE_NUMBER
226 
	OraDatabase.Parameters.Add "OS_ID", 		0, 	ORAPARM_INPUT, ORATYPE_NUMBER
227 
	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
228 
 
229 
	Set OraParameter = OraDatabase.Parameters
230 
 
231 
 
232 
 
233 
	objEH.TryORA ( OraSession )
234 
 
235 
	numOfRows = UBound( aDiffList, 2 )
236 
 
237 
	For rowNum = 0 To numOfRows
238 
 
239 
		If Request("hide_"& aDiffList( os_id_column, rowNum ) &"_"& aDiffList( old_prod_id_column, rowNum ) ) <> "" Then
240 
			OraParameter("NEW_PROD_ID").Value = Request("hide_"& aDiffList( os_id_column, rowNum ) &"_"& aDiffList( old_prod_id_column, rowNum ) )
241 
			OraParameter("OS_ID").Value = aDiffList( os_id_column, rowNum )
242 
 
243 
			OraDatabase.ExecuteSQL "BEGIN   pk_Product.Hide_Product ( :NEW_PROD_ID, :OS_ID, :USER_ID );   END;"
244 
		End If
245 
 
246 
	Next
247 
 
248 
 
249 
	'--- Log Action ---
250 
	'objEH.LogAction  _
251 
	'objAccessControl.UserId, _
252 
	'enumAT_EVENT_COMMENT, _
253 
	'"Sub UpdateProducts for OS list="& Request("spos_id_list"), _
254 
	'SCRIPT_NAME, _
255 
	'"Updated Products with new versions.", _
256 
	'OraDatabase
257 
 
258 
 
259 
	objEH.CatchORA ( OraSession )
260 
 
261 
	OraDatabase.Parameters.Remove "BOM_ID"
262 
	OraDatabase.Parameters.Remove "RTAG_ID"
263 
	OraDatabase.Parameters.Remove "OLD_PROD_ID"
264 
	OraDatabase.Parameters.Remove "NEW_PROD_ID"
265 
	OraDatabase.Parameters.Remove "OS_ID"
266 
	OraDatabase.Parameters.Remove "USER_ID"
267 
End Sub
268 
'----------------------------------------------------------------------------------------------------------------------------------
269 
Sub HidePatches()
270 
	Dim aDiffList, numOfRows, rowNum, OraParameter
271 
	Const os_id_column = 2
272 
	Const prod_id_column = 1
273 
 
274 
	'/* Get Lates Release Manager */
275 
	OraDatabase.Parameters.Add "BOM_ID", parBom_id,		ORAPARM_INPUT, ORATYPE_NUMBER
276 
 
277 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("NewPatches.sql"), ORADYN_DEFAULT )
278 
 
279 
 
280 
	'-- Get Rows
281 
	If rsQry.RecordCount > 0 Then
282 
		aDiffList = rsQry.GetRows()
283 
 
284 
	Else
285 
		'-- No differencses with Release Manager, hence exit
286 
		OraDatabase.Parameters.Remove "BOM_ID"
287 
		Exit Sub
288 
	End If
289 
 
290 
 
291 
 
292 
	'/* Hide Versions */
293 
	On Error Resume Next
294 
 
295 
	OraDatabase.Parameters.Add "NEW_PROD_ID", 	0, 	ORAPARM_INPUT, ORATYPE_NUMBER
296 
	OraDatabase.Parameters.Add "OS_ID", 		0, 	ORAPARM_INPUT, ORATYPE_NUMBER
297 
	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
298 
 
299 
	Set OraParameter = OraDatabase.Parameters
300 
 
301 
 
302 
 
303 
	objEH.TryORA ( OraSession )
304 
 
305 
	numOfRows = UBound( aDiffList, 2 )
306 
 
307 
 
308 
	For rowNum = 0 To numOfRows
309 
 
310 
		If Request("hide_"& aDiffList( os_id_column, rowNum ) &"_"& aDiffList( prod_id_column, rowNum ) ) <> "" Then
311 
			OraParameter("NEW_PROD_ID").Value = Request("hide_"& aDiffList( os_id_column, rowNum ) &"_"& aDiffList( prod_id_column, rowNum ) )
312 
			OraParameter("OS_ID").Value = aDiffList( os_id_column, rowNum )
313 
 
314 
			OraDatabase.ExecuteSQL "BEGIN   pk_Product.Hide_Product ( :NEW_PROD_ID, :OS_ID, :USER_ID );   END;"
315 
		End If
316 
 
317 
	Next
318 
 
319 
 
320 
	objEH.CatchORA ( OraSession )
321 
 
322 
	OraDatabase.Parameters.Remove "BOM_ID"
323 
	OraDatabase.Parameters.Remove "NEW_PROD_ID"
324 
	OraDatabase.Parameters.Remove "OS_ID"
325 
	OraDatabase.Parameters.Remove "USER_ID"
326 
End Sub
327 
'----------------------------------------------------------------------------------------------------------------------------------
13 rsolanki 328 
%>
329 
<%
330 
'------------ RUN BEFORE PAGE RENDER ----------
331 
Call GetFormDetails ( parBom_id, objFormCollector )
332 
 
333 
If Request("action") <> "" Then
334 
	' --- Form is Valid ---
335 
	Call UpdateProducts()
336 
 
337 
	Call AddPatches()
338 
 
23 rsolanki 339 
	Call HideProducts()
340 
 
341 
	Call HidePatches()
342 
 
13 rsolanki 343 
	If objEH.Finally Then
344 
		Call OpenInParentWindow ( Request("rfile") &"?UPDATED=OK"& objPMod.ComposeURLWithout("rfile") )
345 
		Call CloseWindow()
346 
	End If
347 
End If
348 
 
349 
'----------------------------------------------
350 
%>
351 
 
352 
 
353 
<html>
354 
<head>
355 
<SCRIPT LANGUAGE="JavaScript">
356 
<!-- Begin
357 
var checkflag = "false";
358 
function check(field) {
359 
if (checkflag == "false") {
360 
  for (i = 0; i < field.length; i++) {
361 
  field[i].checked = true;}
362 
  checkflag = "true";
363 
  return "Uncheck all"; }
364 
else {
365 
  for (i = 0; i < field.length; i++) {
366 
  field[i].checked = false; }
367 
  checkflag = "false";
368 
  return "Check all"; }
369 
}
370 
//  End -->
371 
</script>
23 rsolanki 372 
<script language="javascript">
373 
function checkAllHide()
374 
{
375 
  var args = arguments;
376 
  start_point:
377 
  for (var i=0;i<document.forms[0].elements.length;i++)
378 
  {
13 rsolanki 379 
 
23 rsolanki 380 
     found = false;
381 
     var e=document.forms[0].elements[i];
382 
     if ((e.name != 'checkall') && (e.type=='checkbox'))
383 
     {
384 
        for (var j = 0; j < args.length; j++)
385 
           if (args[j] == e.name)
386 
             continue start_point;
13 rsolanki 387 
 
23 rsolanki 388 
       e.checked=document.forms[0].checkallhide.checked;
389 
    }
390 
  }
391 
}
392 
function checkAllAdd()
393 
{
394 
  var args = arguments;
395 
  start_point:
396 
  for (var i=0;i<document.forms[0].elements.length;i++)
397 
  {
398 
 
399 
     found = false;
400 
     var e=document.forms[0].elements[i];
401 
     if ((e.name != 'checkall') && (e.type=='checkbox'))
402 
     {
403 
        for (var j = 0; j < args.length; j++)
404 
           if (args[j] == e.name)
405 
             continue start_point;
406 
 
407 
       e.checked=document.forms[0].checkalladd.checked;
408 
    }
409 
  }
410 
}
411 
</script>
412 
 
413 
 
13 rsolanki 414 
<title>Deployment Manager</title>
415 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
416 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
417 
<link href="scripts/deployment_manager.css" rel="stylesheet" type="text/css">
418 
<script language="JavaScript" src="scripts/common.js"></script>
419 
<style type="text/css">
420 
<!--
421 
.style8 {font-size: 12px}
422 
-->
423 
</style>
424 
</head>
425 
 
426 
<body background="images/bg_bage_0.gif" leftmargin="0" topmargin="0" onLoad="self.focus();">
427 
<table width="100%"  border="0" cellspacing="0" cellpadding="10">
428 
  <tr>
429 
    <td bgcolor="#FFFFFF" class="body_txt"><span class="body_h1"><img src="icons/i_linkarrow_black.gif" width="11" height="11" align="absmiddle">&nbsp;Update Products </span> <br>
430 
    Update Products, selecting the latest from "Release Manager".
431 
    </td>
432 
  </tr>
433 
<%
434 
'-- FROM START --------------------------------------------------------------------------------------------------------------
435 
objFormComponent.FormName = "FormName"
436 
objFormComponent.Action = SCRIPT_NAME
437 
objFormComponent.OnSubmit = "ShowProgress();"
438 
Call objFormComponent.FormStart()
439 
%>
440 
  <tr>
441 
    <td background="images/bg_login.gif"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
442 
      <tr>
443 
        <td><%=ProgressBar()%>
444 
          <input name="btn" type="submit" class="form_btn" value="Update">
445 
          <input name="btn" type="reset" class="form_btn" value="Cancel" onClick="self.close();"></td>
446 
        <td align="left">&nbsp;        </td>
447 
      </tr>
448 
    </table></td>
449 
  </tr>
450 
  <tr>
451 
    <td>
452 
<!-- PRODUCT NAME RESULTS ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
453 
	<table width="100%"  border="0" cellspacing="10" cellpadding="0">
454 
      <tr>
455 
        <td width="100%" valign="top" nowrap class="body_txt">
456 
		  <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
457 
		  <!--#include file="messages/_msg_inline.asp"-->
458 
		  <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
459 
		  <%
460 
		  If objFormCollector.Item("rtag_id_fk") = "" Then
461 
			Call Messenger ( "This BOM does not have Release Manager Reference release.<br>Please edit BOM properties first.<br>", 1, "100%" )
462 
		  End If
463 
		  %>
464 
		  <!-- UPDATE PRODUCTS +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
465 
		  Select Products and click Update.
466 
          <table width="100%"  border="0" cellspacing="3" cellpadding="0">
467 
            <tr>
468 
			  <td width="1%" nowrap background="images/bg_bage_0h.gif" class="body_col">Update</td>
469 
              <td width="40%" align="right" nowrap background="images/bg_bage_0h.gif" class="body_col"><div align="left">Location</div></td>
470 
              <td width="20%" align="right" nowrap background="images/bg_bage_0h.gif" class="body_col"><div align="left">Version</div></td>
23 rsolanki 471 
              <td align="right" background="images/bg_bage_0h.gif" class="body_col"><div align="center">Hide</div></td>
13 rsolanki 472 
              <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>
23 rsolanki 473 
              </tr>
13 rsolanki 474 
			<%
475 
			OraDatabase.Parameters.Add "BOM_ID", parBom_id,		ORAPARM_INPUT, ORATYPE_NUMBER
476 
			OraDatabase.Parameters.Add "RTAG_ID", objFormCollector.Item("rtag_id_fk"),		ORAPARM_INPUT, ORATYPE_NUMBER
477 
 
478 
			Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("CompareBomWithLatestFromRM.sql"), ORADYN_DEFAULT )
479 
			currPkg_id = 0
480 
			%>
481 
			<%If rsQry.RecordCount < 1 Then%>
482 
			<tr>
23 rsolanki 483 
              <td colspan="5" class="body_row">No Products to Update.                 </td>
13 rsolanki 484 
            </tr>
485 
			<%End If%>
486 
			<%
487 
			While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
23 rsolanki 488 
			Dim rsTemp
489 
 
490 
			Set rsTemp = OraDatabase.DbCreateDynaset( "SELECT * FROM HIDE_PRODUCTS WHERE OS_ID="& rsQry("os_id") &" AND PROD_ID="& rsQry("prod_id"), ORADYN_DEFAULT )
491 
 
492 
			If rsTemp.RecordCount = 0 Then
493 
 
494 
 
13 rsolanki 495 
			%>
496 
			<%If currPkg_id <> rsQry("pkg_id") Then%>
497 
            <tr>
498 
			  <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>
499 
              <td nowrap></td>
500 
              <td nowrap class="body_row">&nbsp;</td>
23 rsolanki 501 
              <td nowrap class="body_row"><div align="center"></div></td>
13 rsolanki 502 
              <td nowrap class="body_row"></td>
503 
              </tr>
504 
			<tr>
23 rsolanki 505 
              <td colspan="5" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
13 rsolanki 506 
            </tr>
507 
			<%currPkg_id = rsQry("pkg_id")%>
508 
			<%End If%>
509 
 
510 
            <tr>
511 
              <td align="center" nowrap><input type="checkbox" name="update_<%=rsQry("os_id") &"_"& rsQry("prod_id")%>" value="<%=rsQry("latest_prod_id")%>"> </td>
512 
              <td nowrap class="body_row"><img hspace="2" src="icons/<%=rsQry("node_icon")%>" align="absmiddle" border="0"><%=rsQry("prod_location")%></td>
513 
              <td nowrap class="body_row"><%=rsQry("prod_version")%></td>
23 rsolanki 514 
			  <td align="center" nowrap><input type="checkbox" name="hide_<%=rsQry("os_id") &"_"& rsQry("prod_id")%>" value="<%=rsQry("prod_id")%>"> </td>
13 rsolanki 515 
              <td nowrap class="body_row"><span class="body_txtr"><%=rsQry("rm_latest_version")%></span></td>
516 
              </tr>
517 
			<tr>
23 rsolanki 518 
              <td colspan="5" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
13 rsolanki 519 
            </tr>
23 rsolanki 520 
			<%
521 
			End If
13 rsolanki 522 
 
23 rsolanki 523 
			rsTemp.Close()
524 
			Set rsTemp = nothing
525 
 
526 
			%>
13 rsolanki 527 
            <%rsQry.MoveNext
528 
			Wend
529 
			%>
530 
 
531 
		  <!-- NEW PATCHES +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
532 
		    <%
23 rsolanki 533 
			Dim strAdd, rsAdd, strHide
13 rsolanki 534 
			Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("NewPatches.sql"), ORADYN_DEFAULT )
23 rsolanki 535 
			Set rsAdd = OraDatabase.DbCreateDynaset( GetQuery ("NewPatches.sql"), ORADYN_DEFAULT )
13 rsolanki 536 
			currPkg_id = 0
537 
			%>
538 
 
23 rsolanki 539 
			<%If rsQry.RecordCount > 0 Then
540 
				While (NOT rsAdd.BOF) AND (NOT rsAdd.EOF)
541 
				Set rsTemp = OraDatabase.DbCreateDynaset( "SELECT * FROM HIDE_PRODUCTS WHERE OS_ID="& rsAdd("os_id") &" AND PROD_ID="& rsAdd("prod_id"), ORADYN_DEFAULT )
542 
 
543 
				If rsTemp.RecordCount = 0 Then
544 
					strAdd = strAdd + "'add_"&rsAdd("os_id") &"_"& rsAdd("prod_id")&"',"
545 
					strHide = strHide + "'hide_"&rsAdd("os_id") &"_"& rsAdd("prod_id")&"',"
546 
				End If
547 
					rsAdd.MoveNext
548 
				Wend
549 
 
550 
				rsAdd.Close()
551 
				rsTemp.Close()
552 
				Set rsAdd = nothing
553 
				Set rsTemp = nothing
554 
 
555 
				If NOT IsEmpty(strAdd) Then
556 
					strAdd = Mid(strAdd, 1, Len(strAdd)-1) + ", 'checkalladd'"
557 
				End If
558 
				If NOT IsEmpty(strHide) Then
559 
					strHide = Mid(strHide, 1, Len(strHide)-1) + ", 'checkallhide'"
560 
				End If
561 
 
562 
			%>
563 
 
13 rsolanki 564 
		    <tr>
565 
			  <td nowrap background="images/bg_bage_0h.gif" class="body_col" align="center">Add</td>
566 
              <td align="right" nowrap background="images/bg_bage_0h.gif" class="body_col"><div align="left">Location</div></td>
567 
			  <td align="right" nowrap background="images/bg_bage_0h.gif" class="body_col"><div align="left">Version</div></td>
23 rsolanki 568 
              <td align="right" background="images/bg_bage_0h.gif" class="body_col"><div align="center">Hide</div></td>
13 rsolanki 569 
              <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>
570 
              </tr>
23 rsolanki 571 
			  <%If NOT IsEmpty(strAdd) Then%>
572 
			  <tr>
573 
			   <td align="center" nowrap><INPUT type=checkbox name="checkalladd" value="Check All" onClick="checkAllAdd(<%=strHide%>);"></td>
574 
			   <td nowrap class="body_row">&nbsp;</td>
575 
			   <td nowrap class="body_row">&nbsp;</td>
576 
			   <td align="center" nowrap><INPUT type=checkbox name="checkallhide" value="Check All" onClick="checkAllHide(<%=strAdd%>);"></td>
577 
			   <td nowrap class="body_row">&nbsp;</td>
578 
			  </tr>
579 
			<%End If%>
13 rsolanki 580 
			<%
581 
			While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
23 rsolanki 582 
 
583 
 
584 
			Set rsTemp = OraDatabase.DbCreateDynaset( "SELECT * FROM HIDE_PRODUCTS WHERE OS_ID="& rsQry("os_id") &" AND PROD_ID="& rsQry("prod_id"), ORADYN_DEFAULT )
585 
 
586 
			If rsTemp.RecordCount = 0 Then
587 
 
13 rsolanki 588 
			%>
589 
			<%If currPkg_id <> rsQry("pkg_id") Then%>
590 
            <tr>
591 
			  <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>
592 
              <td nowrap class="body_row">&nbsp;</td>
23 rsolanki 593 
              <td nowrap class="body_row"><div align="center"></div></td>
13 rsolanki 594 
              <td nowrap class="body_row"></td>
595 
              </tr>
596 
			<tr>
23 rsolanki 597 
              <td colspan="5" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
13 rsolanki 598 
            </tr>
599 
			<%currPkg_id = rsQry("pkg_id")%>
600 
			<%End If%>
601 
 
602 
            <tr>
603 
              <td align="center" nowrap><input type="checkbox" name="add_<%=rsQry("os_id") &"_"& rsQry("prod_id")%>" value="<%=rsQry("prod_id")%>"> </td>
604 
              <td nowrap class="body_row"><img hspace="2" src="icons/<%=rsQry("node_icon")%>" align="absmiddle" border="0"><%=rsQry("prod_location")%></td>
605 
              <td nowrap class="body_row"><img src="icons/i_patch_small.gif" width="16" height="16" border="0" align="absmiddle"><%=rsQry("prod_version")%></td>
23 rsolanki 606 
              <td align="center" nowrap><input type="checkbox" name="hide_<%=rsQry("os_id") &"_"& rsQry("prod_id")%>" value="<%=rsQry("prod_id")%>"> </td>
13 rsolanki 607 
              <td nowrap class="body_row"><span class="body_row"><%=rsQry("comments")%></span></td>
608 
              </tr>
609 
			<tr>
23 rsolanki 610 
              <td colspan="5" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
13 rsolanki 611 
            </tr>
23 rsolanki 612 
			<%
613 
			End If
13 rsolanki 614 
 
23 rsolanki 615 
			rsTemp.Close()
616 
			Set rsTemp = nothing
617 
 
618 
			%>
619 
 
13 rsolanki 620 
            <%rsQry.MoveNext
621 
			Wend
622 
			%>
623 
 
624 
			<%End If%>
625 
 
626 
			<tr>
23 rsolanki 627 
              <td colspan="5" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="3"></td>
13 rsolanki 628 
            </tr>
629 
          </table>
630 
 
631 
 
632 
		  <%
633 
		  OraDatabase.Parameters.Remove "RTAG_ID"
634 
		  OraDatabase.Parameters.Remove "BOM_ID"
635 
		  rsQry.Close
636 
		  Set rsQry = Nothing
637 
		  %>		  </td>
638 
        </tr>
639 
    </table>
640 
	<!-- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
641 
    </td>
642 
  </tr>
643 
  <%=objPMod.ComposeHiddenTags()%>
644 
  <input type="hidden" name="action" value="true">
645 
<%
646 
Call objFormComponent.FormEnd()
647 
'-- FROM END ----------------------------------------------------------------------------------------------------------------
648 
%>
649 
</table>
650 
</body>
651 
</html>
652 
<%
653 
'------------ RUN AFTER PAGE RENDER -----------
654 
'----------------------------------------------
655 
%><!--#include file="common/globals_destructor.asp"-->