Subversion Repositories DevTools

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
62 rsolanki 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
3 
'=====================================================
4 
'|                                                   |
5 
'|				         DIFF					     |
6 
'|                                                   |
7 
'=====================================================
8 
%>
9 
<%
10 
Option explicit
11 
' Good idea to set when using redirect
12 
Response.Expires = 0	' always load the page, dont store
13 
%>
14 
 
15 
<%
16 
'To enable the script timeout to 5 mins
17 
Server.ScriptTimeout=600
18 
%>
19 
<!--#include file="common/config.asp"-->
20 
<!--#include file="common/globals.asp"-->
21 
<!--#include file="common/formating.asp"-->
22 
<!--#include file="common/common_subs.asp"-->
23 
<!--#include file="common/common_dbedit.asp"-->
24 
<!--#include file="common/_form_window_common.asp"-->
25 
<!--#include file="common/_rtree_common.asp"-->
26 
<%
27 
' Set rfile parameter. This is a return page after Login
28 
'Call objPMod.StoreParameter ( "rfile", "rtree.asp" )
29 
'objPMod.PersistInQryString("proj_id")
30 
'------------ ACCESS CONTROL ------------------
31 
%>
32 
 
33 
<!--#include file="_access_control_general.asp"-->
34 
<%
35 
'------------ Variable Definition -------------
36 
Dim rsQry
37 
Dim objRelCollectorA
38 
Dim objRelCollectorB
39 
Dim parRtagA
40 
Dim parRtagB
41 
Dim parSBOMA
42 
Dim parSBOMB
43 
Dim dDiffFilter
44 
Dim colorA, colorB, ChangeTypeIcon
45 
Dim btnMerge, btnRemove
46 
Dim rowId
47 
Dim pkgA, pkgB, pkgname, delimiter, rsQryA, rsQryB, rsQryCommentsA, rsQryCommentsB, sqlstrA, counterA, sqlstrB, sqlstrC, counterB
64 jtweddle 48 
Dim SSsql, retVal, rsCQ, DEVIiss, TDSEiss, VT5DMiss, VTSUPiss
62 rsolanki 49 
Dim a, b, c, d, pkgversion, errormsg, source_change
64 jtweddle 50 
Dim VersionList
62 rsolanki 51 
 
52 
 
53 
'------------ Constants Declaration -----------
54 
Const LIMG_UPDATED = "<img src='images/i_updated.gif' width='11' height='11' border='0' hspace='5' align='absmiddle' title='Updated'>"
55 
Const LIMG_ADDED = "<img src='images/i_added.gif' width='11' height='11' border='0' hspace='5' align='absmiddle' title='Added'>"
56 
Const LIMG_REMOVED = "<img src='images/i_removed.gif' width='11' height='11' border='0' hspace='5' align='absmiddle' title='Removed'>"
57 
Const LIMG_FILTER_ON = "<img src='images/i_data_table.gif' border='0' align='absmiddle' hspace='0' title='Filter in use.'>"
58 
Const LIMG_FILTER_OFF = "<img src='images/i_data_table_off.gif' border='0' align='absmiddle' hspace='0' title='Filter not in use.'>"
59 
Const LIMG_DROP_DOWN_ARROW = "<img src='images/i_drop_down_arrow.gif' width='5' height='15' hspace='1' border='0' align='absmiddle'>"
60 
Const LCOLOR_NOT_CHANGED = "#F5F5F5"
61 
Const LCOLOR_CHANGED = "#d2f7c9"
62 
Const LCOLOR_BLANK = "#FFFFFF"
63 
Const LIMG_MERGE = "<img src='images/bt_move_all_right.gif' title='Click to merge.' border='0'>"
64 
Const LIMG_MERGE_WARN = "<img src='images/bt_move_warn_right.gif' title='Right hand side version is newer.' border='0'>"
65 
Const LIMG_REMOVE = "<img src='images/bt_remove.gif' title='Remove this version from release.' border='0'>"
66 
Const LIMG_UNDO = "<img src='images/bt_undo.gif' title='Undo merge/remove.' border='0'>"
67 
'------------ Variable Init -------------------
68 
parRtagA = Request("rtagA")
69 
parRtagB = Request("rtagB")
70 
parSBOMA = Request("sbomA")
71 
parSBOMB = Request("sbomB")
72 
Set objRelCollectorA = CreateObject("Scripting.Dictionary")
73 
Set objRelCollectorB = CreateObject("Scripting.Dictionary")
74 
Set dDiffFilter = CreateObject("Scripting.Dictionary")
75 
 
76 
'----------------------------------------------
77 
%>
78 
<%
79 
'--------------------------------------------------------------------------------------------------------------------------
80 
Sub GetDiffFilterValues ( outDepFilter )
81 
	Dim FilterVal, aFilterValues
82 
 
83 
	If Request.Cookies(enum_RELMGR_COOKIE_DOMAIN)(COOKIE_HIDE_DIFF_FILTER) <> "" Then
84 
		aFilterValues = Split( Replace( Request.Cookies(enum_RELMGR_COOKIE_DOMAIN)(COOKIE_HIDE_DIFF_FILTER), " ", ""), ",")
85 
 
86 
		For Each FilterVal In aFilterValues
87 
			outDepFilter.Item (CStr( FilterVal )) = ""
88 
		Next
64 jtweddle 89 
 
62 rsolanki 90 
	End If
91 
 
92 
End Sub
93 
'--------------------------------------------------------------------------------------------------------------------------
94 
Sub GetFixedIssues(pv_id)
64 jtweddle 95 
	Set sqlstrC = OraDatabase.DbCreateDynaset("SELECT iss_db, iss_id, iss_state, notes FROM CQ_ISSUES WHERE pv_id="& pv_id &"  AND iss_db="& CInt(enumCLEARQUEST_VTSUP_ID) &" AND iss_state = "& enumISSUES_STATE_FIXED, cint(0))
62 rsolanki 96 
 
64 jtweddle 97 
	If sqlstrC.RecordCount <> 0 Then
62 rsolanki 98 
 
64 jtweddle 99 
		While ((NOT sqlstrC.BOF) AND (NOT sqlstrC.EOF))
62 rsolanki 100 
			DEVIiss = "-1"
101 
			TDSEiss = "-1"
102 
			VT5DMiss = "-1"
64 jtweddle 103 
			VTSUPiss = "-1"
62 rsolanki 104 
 
105 
			If CInt(sqlstrC("iss_db")) = CInt(enumCLEARQUEST_DEVI_ID) Then
106 
				DEVIiss = DEVIiss &","& sqlstrC("iss_id")
107 
			ElseIf CInt(sqlstrC("iss_db")) = CInt(enumCLEARQUEST_TDSE_ID) Then
108 
				TDSEiss = TDSEiss &","& sqlstrC("iss_id")
109 
			ElseIf CInt(sqlstrC("iss_db")) = CInt(enumCLEARQUEST_VT5DM_ID) Then
64 jtweddle 110 
				VT5DMiss = VT5DMiss &","& sqlstrC("iss_id")
111 
			ElseIf CInt(sqlstrC("iss_db")) = CInt(enumCLEARQUEST_VTSUP_ID) Then
112 
				VTSUPiss = VTSUPiss &","& sqlstrC("iss_id")
62 rsolanki 113 
			End If
114 
 
115 
			SSsql = ReadFile( QUERIES_PATH & "\cq_issues.sql" )
116 
			SSsql = Replace( SSsql, "/*enumCLEARQUEST_DEVI_ID*/", enumCLEARQUEST_DEVI_ID)
117 
			SSsql = Replace( SSsql, "/*enumCLEARQUEST_TDSE_ID*/", enumCLEARQUEST_TDSE_ID)
118 
			SSsql = Replace( SSsql, "/*enumCLEARQUEST_VT5DM_ID*/", enumCLEARQUEST_VT5DM_ID)
64 jtweddle 119 
			SSsql = Replace( SSsql, "/*enumCLEARQUEST_VTSUP_ID*/", enumCLEARQUEST_VTSUP_ID)
62 rsolanki 120 
			SSsql = Replace( SSsql, "/*DEVIiss*/", DEVIiss)
121 
			SSsql = Replace( SSsql, "/*TDSEiss*/", TDSEiss)
122 
			SSsql = Replace( SSsql, "/*VT5DMiss*/", VT5DMiss)
64 jtweddle 123 
			SSsql = Replace( SSsql, "/*VTSUPiss*/", VTSUPiss)
62 rsolanki 124 
 
64 jtweddle 125 
			retVal = Get_CQ_Issues ( SSsql, rsCQ )
62 rsolanki 126 
 
127 
			sqlstrC.MoveNext
64 jtweddle 128 
 
129 
		Wend
130 
 
131 
 
132 
	End If
133 
 
134 
	sqlstrC.Close()
135 
	Set sqlstrC = Nothing
62 rsolanki 136 
 
137 
 
138 
End Sub
139 
'--------------------------------------------------------------------------------------------------------------------------
64 jtweddle 140 
Function LastPvId(pvId)
62 rsolanki 141 
	Dim qryA
64 jtweddle 142 
	Set qryA = OraDatabase.DbCreateDynaset("SELECT LAST_PV_ID FROM PACKAGE_VERSIONS WHERE PV_ID="&pvId , cint(0))
62 rsolanki 143 
 
64 jtweddle 144 
	LastPvId = pvId
145 
 
146 
	If pvId <> qryA("last_pv_id") Then
147 
		LastPvId = qryA("last_pv_id")
62 rsolanki 148 
	Else
149 
		errormsg = true
150 
	End If
151 
 
152 
	qryA.Close()
64 jtweddle 153 
	Set qryA = Nothing
154 
 
155 
End Function
62 rsolanki 156 
'--------------------------------------------------------------------------------------------------------------------------
157 
Sub PreviousVersions(a, b, versionA, versionB)
158 
 
64 jtweddle 159 
	If CLng(a) < CLng(b) Then
160 
		While CLng(a) < CLng(b)
161 
			b = LastPvId(b)
162 
			If CLng(a) < CLng(b) Then
163 
				VersionList = VersionList + ","& b &""
62 rsolanki 164 
				Call Comments(b)
165 
				Call GetFixedIssues(b)
64 jtweddle 166 
			End If
62 rsolanki 167 
		Wend
168 
	End If
64 jtweddle 169 
 
170 
	If CLng(b) < CLng(a) Then
171 
		While CLng(b) < CLng(a)
172 
			a = LastPvId(a)
173 
			If CLng(b) < CLng(a) Then
174 
				VersionList = VersionList + ","& a &""
62 rsolanki 175 
				Call Comments(a)
176 
				Call GetFixedIssues(a)
64 jtweddle 177 
			End If
62 rsolanki 178 
		Wend
179 
	End If
180 
 
181 
 
182 
End Sub
183 
'--------------------------------------------------------------------------------------------------------------------------
184 
Sub pkg_Version(pv)
185 
	Dim qry
186 
	Set qry = OraDatabase.DbCreateDynaset("SELECT PKG_VERSION FROM PACKAGE_VERSIONS WHERE PV_ID="&pv , cint(0))
187 
	pkgversion = qry("pkg_version")
188 
	qry.Close()
64 jtweddle 189 
	Set qry = Nothing
62 rsolanki 190 
End Sub
191 
'--------------------------------------------------------------------------------------------------------------------------
192 
Function GetIsDiffFilterInUseIcon()
193 
	GetIsDiffFilterInUseIcon = LIMG_FILTER_OFF & LIMG_DROP_DOWN_ARROW
194 
 
195 
	If dDiffFilter.Count > 0 Then
196 
		GetIsDiffFilterInUseIcon = LIMG_FILTER_ON & LIMG_DROP_DOWN_ARROW
197 
	End If
198 
 
199 
End Function
200 
'--------------------------------------------------------------------------------------------------------------------------
201 
Function GetIsDiffFilterChecked( nFilterId )
202 
 
203 
	If dDiffFilter.Exists ( CStr(nFilterId)  ) Then
204 
		GetIsDiffFilterChecked = "checked"
205 
	End If
206 
 
207 
End Function
208 
'---------------------------------------------------------------------------------------------------------------------------
209 
Function  Get_CQ_Issues ( SSsql, OOrsCQ )
210 
 
211 
	On Error Resume Next
4556 dpurdie 212 
    Set OOrsCQ = OraDatabase.DbCreateDynaset( SSsql, cint(0))
62 rsolanki 213 
	Get_CQ_Issues = Err.Number
214 
 
215 
End Function
216 
'--------------------------------------------------------------------------------------------------------------------------
217 
Public Function TextToHTML ( sString )
218 
	Dim mString
219 
 
220 
	If (sString = "") OR IsNull(sString) Then Exit Function
221 
 
222 
	mString = Server.HTMLEncode( sString )
223 
	mString = Replace(mString, VBNewLine, "<br>")
224 
 
225 
	TextToHTML = mString
226 
End Function
227 
'--------------------------------------------------------------------------------------------------------------------------
228 
Sub GetFormDetails ( nSourceSBOM, ByRef outobjDetails )
229 
	Dim rsQry, query
230 
 
231 
	' Exit if nSourceRtagId is empty
232 
	If nSourceSBOM = "" Then Exit Sub
233 
 
234 
	OraDatabase.Parameters.Add "SBOM", 	nSourceSBOM,		ORAPARM_INPUT, ORATYPE_NUMBER
235 
 
236 
	query = _
237 
	" SELECT pr.PROJ_NAME ||' &gt; '|| br.BRANCH_NAME ||' &gt; '|| b.BOM_VERSION ||'.'||b.BOM_LIFECYCLE  AS LOCATION, "&_
238 
	"        pr.PROJ_ID, b.BOM_ID, br.BRANCH_ID, b.IS_READONLY"&_
239 
	"  FROM BRANCHES br,"&_
240 
	"  		BOMS b,"&_
241 
	"  	    DM_PROJECTS pr"&_
242 
	" WHERE br.PROJ_ID = pr.PROJ_ID"&_
243 
	" 	AND b.BRANCH_ID = br.BRANCH_ID"&_
244 
	"   AND b.BOM_ID = :SBOM"
245 
 
246 
	Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
247 
 
248 
	OraDatabase.Parameters.Remove "SBOM"
249 
 
250 
	If rsQry.RecordCount > 0 Then
251 
		outobjDetails.Item ("location") = rsQry("location")
252 
		outobjDetails.Item ("official") = rsQry("IS_READONLY")
253 
		outobjDetails.Item ("proj_id") = rsQry("proj_id")
254 
		outobjDetails.Item ("branch_id") = rsQry("branch_id")
255 
		outobjDetails.Item ("bom_id") = rsQry("bom_id")
256 
	Else
257 
		Err.Raise 8, "Sub GetFormDetails in "& SCRIPT_NAME, "Empty record set returned. nSourceSBOM="& nSourceSBOM
258 
	End If
259 
 
260 
	If outobjDetails.Item ("location") = "" Then
261 
		outobjDetails.Item ("location") = "N"
262 
	End If
263 
 
264 
	rsQry.Close
265 
	Set rsQry = Nothing
266 
 
267 
End Sub
268 
'--------------------------------------------------------------------------------------------------------------------------
269 
Sub GetDiffStateIcon( nDiffState, outIcon )
270 
 
271 
	Select Case nDiffState
272 
		Case "U"
273 
			outIcon  = LIMG_UPDATED
274 
		Case "UW"
275 
			outIcon  = LIMG_UPDATED
276 
		Case "A"
277 
			outIcon = LIMG_ADDED
278 
		Case "R"
279 
			outIcon = LIMG_REMOVED
280 
		Case Else
281 
			outIcon = ""
282 
	End Select
283 
 
284 
End Sub
285 
'--------------------------------------------------------------------------------------------------------------------------
286 
%>
287 
<%
288 
'------------ RUN BEFORE PAGE RENDER ----------
289 
If Request("btn") = "Exit" Then
290 
	Call OpenInWindow ( "reports.asp" )
291 
End If
292 
 
293 
' Get release details
294 
Call GetFormDetails ( parSBOMA, objRelCollectorA )
295 
Call GetFormDetails ( parSBOMB, objRelCollectorB )
296 
 
297 
If Request("btn") = "Swap Compare" Then
298 
	Call OpenInWindow ( SCRIPT_NAME &"?sbomA="& parSBOMB &"&sbomB="& parSBOMA )
299 
End If
300 
 
301 
If Request("btn") = "Hide" Then
302 
	' Store filter in cookie
303 
	Response.Cookies(enum_RELMGR_COOKIE_DOMAIN)(COOKIE_HIDE_DIFF_FILTER) = Request("difilter")
304 
End If
305 
 
306 
 
307 
Call GetDiffFilterValues ( dDiffFilter )
308 
'----------------------------------------------
309 
%>
310 
<html>
311 
<head>
64 jtweddle 312 
<title>Production Manager SBOM Differences</title>
62 rsolanki 313 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
314 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
4014 dpurdie 315 
<link rel="stylesheet" href="scripts/deployment_manager.css" type="text/css">
62 rsolanki 316 
<link rel="stylesheet" href="images/release_manager_style.css" type="text/css">
317 
<link rel="stylesheet" href="images/navigation.css" type="text/css">
318 
<script language="JavaScript" src="images/common.js"></script>
319 
<script language="JavaScript" src="scripts/remote_scripting.js"></script>
320 
<script language="JavaScript" type="text/javascript">
321 
<!--
322 
 
323 
function RequestReleaseCombo( paramString, rowId ){
324 
	var requestURL = 'RequestReleaseCombo.asp';
325 
 
326 
	// Set ajax divname
327 
	ajaxdivname = rowId;
328 
 
329 
	//Append the name to search for to the requestURL
330 
	var url = requestURL + paramString;
331 
 
332 
	//Progress
333 
	//alert(MM_findObj( rowId ));
334 
 
335 
	//MM_findObj( rowId ).options[0] = new Option('Loading...','');
336 
	//MM_findObj( rowId ).selectedIndex = 0;
337 
	rowId.options[0] = new Option('Loading...','');
338 
	rowId.selectedIndex = 0;
339 
 
340 
 
341 
	//Create the xmlHttp object to use in the request
342 
	//stateChangeHandler will fire when the state has changed, i.e. data is received back
343 
	// This is non-blocking (asynchronous)
344 
	xmlHttp = GetXmlHttpObject(stateComboChangeHandler);
345 
 
346 
	//Send the xmlHttp get to the specified url
347 
	xmlHttp_Get(xmlHttp, url);
348 
 
349 
 
350 
}
351 
 
352 
function RequestSBOMCombo( paramString, rowId ){
353 
	var requestURL = 'RequestSBOMCombo.asp';
354 
 
355 
	// Set ajax divname
356 
	ajaxdivname = rowId;
357 
 
358 
	//Append the name to search for to the requestURL
359 
	var url = requestURL + paramString;
360 
 
361 
	//Progress
362 
	//alert(MM_findObj( rowId ));
363 
 
364 
	//MM_findObj( rowId ).options[0] = new Option('Loading...','');
365 
	//MM_findObj( rowId ).selectedIndex = 0;
366 
	rowId.options[0] = new Option('Loading...','');
367 
	rowId.selectedIndex = 0;
368 
 
369 
 
370 
	//Create the xmlHttp object to use in the request
371 
	//stateChangeHandler will fire when the state has changed, i.e. data is received back
372 
	// This is non-blocking (asynchronous)
373 
	xmlHttp = GetXmlHttpObject(stateComboChangeHandler);
374 
 
375 
	//Send the xmlHttp get to the specified url
376 
	xmlHttp_Get(xmlHttp, url);
377 
 
378 
 
379 
}
380 
 
381 
function UndoPackage ( rowId )
382 
{
383 
 
384 
	// Set merge/remove hidden field with new value
385 
	MM_findObj( 'ADDPKG_' + rowId ).value = '';
386 
	MM_findObj( 'REMOVEPKG_' + rowId ).value = '';
387 
 
388 
	var divA = MM_findObj( 'PVA' + rowId );
389 
	var divB = MM_findObj( 'PVB' + rowId );
390 
 
391 
	// Set text equal
392 
	divB.innerHTML = MM_findObj( 'UNDOPKG_' + rowId ).value;
393 
	divB.style.textDecoration = 'none';
394 
 
395 
 
396 
	// Set highlight to blank
397 
	divA.style.backgroundColor = MM_findObj( 'UNDOCOLORA_' + rowId ).value;
398 
	divB.style.backgroundColor = MM_findObj( 'UNDOCOLORB_' + rowId ).value;
399 
 
400 
 
401 
    // Set Change state icon to blank
402 
	MM_findObj( 'IMGSTATE' + rowId ).style.display = 'block';
403 
 
404 
 
405 
	// Remove Merge Button
406 
	var cht = MM_findObj( 'CHANGETYPE_' + rowId );
407 
 
408 
	if (cht.value == "R")
409 
	{
410 
		MM_findObj( 'IMGMERGE' + rowId ).style.display = 'block';
411 
	}
412 
	else if ( (cht.value == "A") || (cht.value == "") )
413 
	{
414 
		MM_findObj( 'IMGREMOVE' + rowId ).style.display = 'block';
415 
	}
416 
	else
417 
	{
418 
		MM_findObj( 'IMGMERGE' + rowId ).style.display = 'block';
419 
		MM_findObj( 'IMGREMOVE' + rowId ).style.display = 'block';
420 
	}
421 
 
422 
	// Show undo button
423 
	MM_findObj( 'IMGUNDO' + rowId ).style.display = 'none';
424 
 
425 
}
426 
 
427 
//-->
428 
</script>
429 
 
430 
</head>
431 
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0">
432 
<form name="FormName" method="post" action="<%=SCRIPT_NAME%>">
433 
<!-- HEADER -->
434 
<!--#include file="_header.asp"-->
435 
<!-- BODY ---->
436 
<table width="100%" border="0" cellspacing="0" cellpadding="0">
437 
  <tr>
64 jtweddle 438 
    <td width="1%" background="images/bg_lightgreen.gif" valign="top">
62 rsolanki 439 
 
440 
 
441 
	<!-- SELECT SBOM A ---------------------------------------------->
442 
 
443 
	<br>
444 
      <table width="100%"  border="0" cellspacing="10" cellpadding="0">
445 
 
446 
		<tr>
447 
          <td align="left" class="body_col"><img src="images/i_rtag_open_mode.gif" border="0" align="absmiddle" width="15" height="13">&nbsp;Select SBOM A<hr size="1px" color="Olive" noshade></td>
448 
        </tr>
64 jtweddle 449 
<!--         <tr>
62 rsolanki 450 
          <td align="left">
451 
		  <select name="projA" class="form_item" onChange="RequestReleaseCombo( '?proj_id='+ this.value, FormName.rtagA );">
452 
              <option value="">-- Select Project --</option>
453 
			  <%
454 
			  OraDatabase.Parameters.Add "PROJ_ID", 	objRelCollectorA.Item("proj_id"),	ORAPARM_INPUT, ORATYPE_NUMBER
455 
 
456 
			  Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("ProjectsCombo.sql"), cint(0))
457 
 
458 
			  OraDatabase.Parameters.Remove "PROJ_ID"
459 
 
460 
			  While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))%>
461 
                <option value="<%=rsQry("proj_id")%>" <%=rsQry("selected")%>><%=rsQry("proj_name")%></option>
462 
              <%rsQry.MoveNext
463 
			  WEnd
464 
 
465 
			  rsQry.Close
466 
			  Set rsQry = Nothing
467 
			%>
468 
          </select></td>
469 
        </tr>
470 
        <tr>
471 
          <td align="left">
472 
 
473 
		  <select name="rtagA" id="rtagA" class="form_item" onChange="RequestSBOMCombo( '?branch_id='+ this.value, FormName.sbomA );">
474 
              <option value="">-- Select SBOM --</option>
475 
			  <%
476 
			  OraDatabase.Parameters.Add "PROJ_ID", 	objRelCollectorA.Item("proj_id"),	ORAPARM_INPUT,  ORATYPE_NUMBER
477 
			  OraDatabase.Parameters.Add "BRANCH_ID", 	objRelCollectorA.Item("branch_id"),	ORAPARM_INPUT, ORATYPE_NUMBER
478 
 
479 
			  Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("ReleasesCombo.sql"), cint(0))
480 
 
481 
			  OraDatabase.Parameters.Remove "PROJ_ID"
482 
			  OraDatabase.Parameters.Remove "BRANCH_ID"
483 
 
484 
			  While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))%>
485 
                <option value="<%=rsQry("branch_id")%>" <%=rsQry("selected")%>><%=rsQry("branch_name")%></option>
486 
              <%rsQry.MoveNext
487 
			  WEnd
488 
 
489 
			  rsQry.Close
490 
			  Set rsQry = Nothing
491 
			  %>
492 
		  </select></td>
64 jtweddle 493 
        </tr> -->
62 rsolanki 494 
        <tr>
495 
          <td align="left">
496 
		  <select name="sbomA" id="sbomA" class="form_item">
497 
            <%
64 jtweddle 498 
			If objAccessControl.IsActive("Vasttrafik")	Then
499 
				nBranchId	=	1142
500 
			Else
501 
				nBranchId	=	542
502 
			End	If
503 
 
504 
 
62 rsolanki 505 
			  OraDatabase.Parameters.Add "BOM_ID", 	objRelCollectorA.Item("bom_id"),	ORAPARM_INPUT,  ORATYPE_NUMBER
64 jtweddle 506 
			  OraDatabase.Parameters.Add "BRANCH_ID", 	nBranchId,	ORAPARM_INPUT, ORATYPE_NUMBER
62 rsolanki 507 
 
64 jtweddle 508 
			  Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("ProductionTreeCombo.sql"), cint(0))
509 
 
62 rsolanki 510 
			  OraDatabase.Parameters.Remove "BOM_ID"
511 
			  OraDatabase.Parameters.Remove "BRANCH_ID"
512 
 
513 
			  While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))%>
64 jtweddle 514 
            <option value="<%=rsQry("bom_id")%>" <%=rsQry("selected")%>><%=rsQry("bom_name")%>&gt;<%=rsQry("bom_version")%></option>
62 rsolanki 515 
            <%rsQry.MoveNext
516 
			  WEnd
517 
 
518 
			  rsQry.Close
519 
			  Set rsQry = Nothing
520 
			  %>
521 
          </select>
522 
 
523 
		  </td>
524 
        </tr>
525 
		<%If (parRtagA <> "") Then%>
64 jtweddle 526 
<!-- 		<tr>
62 rsolanki 527 
          <td align="left"><a href="Bom_Home.asp?bom_id=<%=parSBOMA%>" class="body_txt_drk">Go To SBOM A &raquo;</a></td>
64 jtweddle 528 
        </tr> -->
62 rsolanki 529 
		<%End If%>
530 
    </table>
531 
 
532 
    <!-- SELECT SBOM A END ---------------------------------------------->	</td>
533 
    <td width="1%" valign="top" background="images/bg_lght_gray.gif">&nbsp;</td>
534 
    <td rowspan="2" valign="top" width="100%" background="images/bg_lght_gray.gif" align="center">
535 
      <!-- DIFF -------------------------------------------------------->
536 
      <br>
537 
 
538 
 
539 
 
540 
 
541 
      <table width="100%" border="0" cellspacing="10" cellpadding="0">
542 
        <tr>
543 
          <td>
544 
 
545 
 
546 
 
547 
            <table width="100%" border="0" cellspacing="0" cellpadding="0">
548 
			  <tr>
549 
                <td width="1%"></td>
550 
                <td width="100%" align="left" class="form_ttl">DIFF SBOM</td>
551 
                <td width="1%"></td>
552 
              </tr>
553 
              <tr>
64 jtweddle 554 
                <td align="left" valign="top" background="images/lbox_bg_blue.gif"><img src="images/lbox_tl_cnr_b.gif" width="13" height="13"></td>
555 
                <td background="images/lbox_bg_blue.gif" align="left" class="wform_ttl">&nbsp;
62 rsolanki 556 
                </td>
64 jtweddle 557 
                <td align="right" valign="top" background="images/lbox_bg_blue.gif"><img src="images/lbox_tr_cnr_b.gif" width="13" height="13"></td>
62 rsolanki 558 
              </tr>
559 
              <tr>
560 
                <td width="1%" bgcolor="#FFFFFF"><img src="images/h_trsp_dot.gif" width="10" height="100"></td>
561 
                <td bgcolor="#FFFFFF" valign="top" class="form_item">
562 
 
563 
 
564 
 
565 
				<table width="100%"  border="0" cellspacing="0" cellpadding="5">
566 
                  <tr>
567 
                    <td width="100%" bgcolor="#DAD7C8">
568 
					<input type="submit" name="btn" value="Compare" class="form_btn_comp" style="margin-right:5px;">
64 jtweddle 569 
					<input type="submit" name="btn" value="Swap Compare" class="form_btn_comp" style="margin-right:5px;">
570 
					<%If parSBOMA <> parSBOMB AND parSBOMA <> "" AND parSBOMB <> "" Then%>
571 
					<input name="generate_button" id="generate_button" type="button" class="form_btn" value="Generate Report" onclick="window.open('diff_report.asp?sbomA=<%=parSBOMA%>&sbomB=<%=parSBOMB%>');">
572 
					<%End If%>
573 
					</td>
574 
 
62 rsolanki 575 
                    <td width="1" align="right" bgcolor="#DAD7C8" nowrap>
576 
					<table width="100%"  border="0" cellspacing="0" cellpadding="0">
577 
                      <tr>
578 
 
579 
                        <td><input type="submit" name="btn" value="Exit" class="form_btn_comp"></td>
580 
                      </tr>
581 
                    </table></td>
582 
                  </tr>
583 
				  <tr>
584 
                    <td>
585 
					<%If (parRtagA <> "") AND (parRtagB <> "")Then%>
586 
					<!-- DIFF FILTER +++++++++++++++++++++++++++++++++++++++++++ -->
587 
					<fieldset style="width:150px;">
588 
					<legend><a href="javascript:;" class="body_scol" onClick="ToggleDisplay('divDiffFilter');" ><%=GetIsDiffFilterInUseIcon() %>&nbsp;Filter&nbsp;Results...</a></legend>
589 
					<div name="divDiffFilter" id="divDiffFilter" class="body_txt" style="display:none;">
590 
					<br>
591 
					<table width="100%"  border="0" cellspacing="1" cellpadding="3">
592 
					    <tr>
593 
					      <td width="1" background="images/bg_action_norm.gif"><input name="difilter" type="checkbox" value="<%=enumDB_DIFF_UPDATED%>" <%=GetIsDiffFilterChecked(enumDB_DIFF_UPDATED)%>></td>
594 
					      <td width="50" nowrap background="images/bg_action_norm.gif" class="form_field"><%=LIMG_UPDATED%>Updated</td>
595 
					    </tr>
596 
					    <tr>
597 
					      <td background="images/bg_action_norm.gif"><input type="checkbox" name="difilter" value="<%=enumDB_DIFF_NEW%>" <%=GetIsDiffFilterChecked(enumDB_DIFF_NEW)%>></td>
598 
					      <td nowrap background="images/bg_action_norm.gif" class="form_field"><%=LIMG_ADDED%>Added</td>
599 
					    </tr>
600 
					    <tr>
601 
					      <td background="images/bg_action_norm.gif"><input type="checkbox" name="difilter" value="<%=enumDB_DIFF_REMOVED%>" <%=GetIsDiffFilterChecked(enumDB_DIFF_REMOVED)%>></td>
602 
					      <td nowrap background="images/bg_action_norm.gif" class="form_field"><%=LIMG_REMOVED%>Removed</td>
603 
					    </tr>
604 
					    <tr>
605 
 
606 
					    <tr>
607 
					      <td background="images/bg_action_norm.gif">&nbsp;</td>
608 
					      <td background="images/bg_action_norm.gif"><input name="btn" type="submit" class="form_btn" value="Hide"></td>
609 
					    </tr>
610 
					  </table>
611 
					</div>
612 
					</fieldset>
613 
					<!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
614 
					<%End If%>
615 
					</td>
616 
                    <td></td>
617 
                  </tr>
618 
                </table>
619 
 
620 
				<%
621 
				' Successfull Merge
622 
				If (Request("btn") = "Merge") Then
623 
					Call Messenger ( "Merge has completed successfully.", 3, "100%" )
624 
				End If
625 
 
64 jtweddle 626 
				If (parSBOMA <> "") AND (parSBOMB <> "") Then%>
62 rsolanki 627 
                <table width="100%"  border="0" cellspacing="1" cellpadding="0">
628 
                  <tr>
629 
                    <td width="50%" bgcolor="#E4E9EC" class="body_row" nowrap><%= ReleaseIcon(objRelCollectorA.Item("official")) & objRelCollectorA.Item("location")%> </td>
630 
                    <td width="1" bgcolor="#E4E9EC"><img src="images/spacer.gif" width="20" height="1"></td>
631 
                    <td width="1" bgcolor="#E4E9EC"><img src="images/spacer.gif" width="20" height="20"></td>
632 
                    <td width="1" bgcolor="#E4E9EC"><img src="images/spacer.gif" width="20" height="1"></td>
633 
                    <td width="50%" bgcolor="#E4E9EC" class="body_row" nowrap><%= ReleaseIcon(objRelCollectorB.Item("official")) & objRelCollectorB.Item("location")%></td>
634 
                    <td width="1" bgcolor="#E4E9EC"><img src="images/spacer.gif" width="20" height="1"></td>
635 
                  </tr>
636 
			    <%
637 
 
638 
				OraDatabase.Parameters.Add "SBOM_A", 	parSBOMA,	ORAPARM_INPUT, ORATYPE_NUMBER
639 
				OraDatabase.Parameters.Add "SBOM_B", 	parSBOMB,	ORAPARM_INPUT, ORATYPE_NUMBER
640 
				OraDatabase.Parameters.Add "NO_CHANGE", GetIsDiffFilterChecked(enumDB_DIFF_NO_CHANGE),		ORAPARM_INPUT, ORATYPE_VARCHAR2
641 
				OraDatabase.Parameters.Add "ADDED", 	GetIsDiffFilterChecked(enumDB_DIFF_NEW),		ORAPARM_INPUT, ORATYPE_VARCHAR2
642 
				OraDatabase.Parameters.Add "UPDATED", 	GetIsDiffFilterChecked(enumDB_DIFF_UPDATED),		ORAPARM_INPUT, ORATYPE_VARCHAR2
643 
				OraDatabase.Parameters.Add "REMOVED", 	GetIsDiffFilterChecked(enumDB_DIFF_REMOVED),		ORAPARM_INPUT, ORATYPE_VARCHAR2
644 
 
645 
				Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("BOMDiff.sql"), cint(0))
646 
 
647 
				OraDatabase.Parameters.Remove "SBOM_A"
648 
				OraDatabase.Parameters.Remove "SBOM_B"
649 
				OraDatabase.Parameters.Remove "NO_CHANGE"
650 
				OraDatabase.Parameters.Remove "ADDED"
651 
				OraDatabase.Parameters.Remove "UPDATED"
652 
				OraDatabase.Parameters.Remove "REMOVED"
653 
 
654 
				Set rsQryA = OraDatabase.DbCreateDynaset( "SELECT pr.PROJ_NAME, br.BRANCH_NAME, b.BOM_VERSION ||'.'||b.BOM_LIFECYCLE  AS LOCATION, "&_
655 
	"        pr.PROJ_ID, b.BOM_ID, br.BRANCH_ID"&_
656 
	"  FROM BRANCHES br,"&_
657 
	"  		BOMS b,"&_
658 
	"  	    DM_PROJECTS pr"&_
659 
	" WHERE br.PROJ_ID = pr.PROJ_ID"&_
660 
	" 	AND b.BRANCH_ID = br.BRANCH_ID"&_
661 
	"   AND b.BOM_ID ="&parSBOMA, cint(0))
662 
 
663 
 
664 
				Set rsQryB = OraDatabase.DbCreateDynaset( "SELECT pr.PROJ_NAME, br.BRANCH_NAME, b.BOM_VERSION ||'.'||b.BOM_LIFECYCLE  AS LOCATION, "&_
665 
	"        pr.PROJ_ID, b.BOM_ID, br.BRANCH_ID"&_
666 
	"  FROM BRANCHES br,"&_
667 
	"  		BOMS b,"&_
668 
	"  	    DM_PROJECTS pr"&_
669 
	" WHERE br.PROJ_ID = pr.PROJ_ID"&_
670 
	" 	AND b.BRANCH_ID = br.BRANCH_ID"&_
671 
	"   AND b.BOM_ID ="&parSBOMB, cint(0))
672 
 
673 
				While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))
64 jtweddle 674 
				VersionList = "0"
62 rsolanki 675 
				errormsg = false
676 
					rowId = rsQry("pv_id_a") &"_"& rsQry("pv_id_b")
677 
 
678 
					btnMerge = LIMG_MERGE
679 
					btnRemove = LIMG_REMOVE
680 
					colorA = LCOLOR_NOT_CHANGED
681 
					colorB = LCOLOR_NOT_CHANGED
682 
 
683 
					Select Case rsQry("change_type")
684 
						Case "U"
685 
							colorA = LCOLOR_CHANGED
686 
							colorB = LCOLOR_CHANGED
687 
						Case "UW"
688 
							colorA = LCOLOR_CHANGED
689 
							colorB = LCOLOR_CHANGED
690 
							btnMerge = LIMG_MERGE_WARN
691 
						Case "A"
692 
							colorA = LCOLOR_BLANK
693 
						Case "R"
694 
							colorB = LCOLOR_BLANK
695 
					End Select
696 
 
697 
					Call GetDiffStateIcon ( rsQry("change_type"), ChangeTypeIcon )
698 
				%>
699 
				  <tr>
700 
                    <td class="body_row" nowrap>
701 
						<DIV id="PVA<%=rowId%>" style="background:<%=colorA%>; padding:5px;">
702 
						<%=rsQry("pkg_name_a") &" "& rsQry("pkg_version_a")%>
703 
						</DIV>
704 
						<input type="hidden" id="UNDOCOLORA_<%=rowId%>" value="<%=colorA%>">
705 
					</td>
706 
                    <td bgcolor="#F5F5F5"></td>
707 
                    <td bgcolor="#E4E9EC"><DIV id="IMGSTATE<%=rowId%>" ><%=ChangeTypeIcon%></DIV><input type="hidden" id="CHANGETYPE_<%=rowId%>" value="<%=rsQry("change_type")%>"></td>
708 
                    <td bgcolor="#F5F5F5"></td>
709 
                    <td class="body_row" nowrap>
710 
						<DIV id="PVB<%=rowId%>" style="background:<%=colorB%>; padding:5px;">
711 
						<%=rsQry("pkg_name_b") &" "& rsQry("pkg_version_b")%>
712 
						</DIV>
713 
						<input type="hidden" id="UNDOCOLORB_<%=rowId%>" value="<%=colorB%>">
714 
						<input type="hidden" name="addpkg" id="ADDPKG_<%=rowId%>" value="">
715 
						<input type="hidden" name="removepkg" id="REMOVEPKG_<%=rowId%>" value="">
716 
						<input type="hidden" id="UNDOPKG_<%=rowId%>" value="<%=rsQry("pkg_name_b") &" "& rsQry("pkg_version_b")%>">
717 
					</td>
718 
                    <td bgcolor="#F5F5F5"><DIV id="IMGUNDO<%=rowId%>" style="display:none;" ><a href="javascript:;" onClick="UndoPackage( '<%=rowId%>' );"><%=LIMG_UNDO%></a></DIV></td>
719 
                  </tr>
64 jtweddle 720 
			<%
721 
			rsQry.MoveNext
722 
			WEnd
723 
 
724 
			rsQry.Close
725 
			Set rsQry = Nothing
726 
			%>
62 rsolanki 727 
                </table>
728 
                <br>
729 
			<%Else%>
730 
				<br>
731 
				<%
732 
				If (parRtagB <> "") Then
733 
					Call Messenger ( "Select <b>SBOM A</b> to compare.", 3, "100%" )
734 
				ElseIf (parRtagA <> "") Then
735 
					Call Messenger ( "Select <b>SBOM B</b> to compare.", 3, "100%" )
736 
				Else
737 
					Call Messenger ( "Select <b>SBOM A</b> and <b>SBOM B</b> to compare.", 3, "100%" )
738 
				End If
739 
				%>
740 
 
741 
			<%End If%>
742 
 
743 
				</td>
744 
                <td width="1%" background="images/lbox_bgside_white.gif">&nbsp;</td>
745 
              </tr>
746 
              <tr>
64 jtweddle 747 
                <td width="1%" background="images/lbox_bg_blue.gif" valign="bottom"><img src="images/lbox_bl_cnr_b.gif" width="13" height="13"></td>
748 
                <td background="images/lbox_bg_blue.gif"></td>
749 
                <td width="1%" background="images/lbox_bg_blue.gif" valign="bottom" align="right"><img src="images/lbox_br_cnr_b.gif" width="13" height="13"></td>
62 rsolanki 750 
              </tr>
751 
            </table>
752 
          </td>
753 
        </tr>
754 
      </table>
755 
    <!-- DIFF END ---------------------------------------------------->
756 
    </td>
64 jtweddle 757 
	<td valign="top" width="1%" background="images/bg_lightgreen.gif">
62 rsolanki 758 
 
759 
 
760 
	  <!-- SELECT SBOM B ---------------------------------------------->
761 
      <br>
762 
      <table width="100%"  border="0" cellspacing="10" cellpadding="0">
763 
		<tr>
764 
          <td align="left" class="body_col"><img src="images/i_rtag_open_mode.gif" border="0" align="absmiddle" width="15" height="13">&nbsp;Select SBOM B<hr size="1px" color="Olive" noshade></td>
765 
        </tr>
64 jtweddle 766 
<!--         <tr>
62 rsolanki 767 
          <td align="left">
768 
		  <select name="projB" class="form_item" onChange="RequestReleaseCombo( '?proj_id='+ this.value, FormName.rtagB );">
769 
              <option value="">-- Select Project --</option>
770 
			  <%
771 
			  OraDatabase.Parameters.Add "PROJ_ID", 	objRelCollectorB.Item("proj_id"),	ORAPARM_INPUT, ORATYPE_NUMBER
772 
 
773 
			  Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("ProjectsCombo.sql"), cint(0))
774 
 
775 
			  OraDatabase.Parameters.Remove "PROJ_ID"
776 
 
777 
			  While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))%>
778 
                <option value="<%=rsQry("proj_id")%>" <%=rsQry("selected")%>><%=rsQry("proj_name")%></option>
779 
              <%rsQry.MoveNext
780 
			  WEnd
781 
 
782 
			  rsQry.Close
783 
			  Set rsQry = Nothing
784 
			%>
785 
          </select></td>
786 
        </tr>
787 
        <tr>
788 
          <td align="left">
789 
 
790 
		  <select name="rtagB" id="rtagB" class="form_item" onChange="RequestSBOMCombo( '?branch_id='+ this.value, FormName.sbomB );">
791 
              <option value="">-- Select SBOM --</option>
792 
			  <%
793 
			  OraDatabase.Parameters.Add "PROJ_ID", 	objRelCollectorB.Item("proj_id"),	ORAPARM_INPUT,  ORATYPE_NUMBER
794 
			  OraDatabase.Parameters.Add "BRANCH_ID", 	objRelCollectorB.Item("branch_id"),	ORAPARM_INPUT, ORATYPE_NUMBER
795 
 
796 
			  Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("ReleasesCombo.sql"), cint(0))
797 
 
798 
			  OraDatabase.Parameters.Remove "PROJ_ID"
799 
			  OraDatabase.Parameters.Remove "BRANCH_ID"
800 
 
801 
			  While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))%>
802 
                <option value="<%=rsQry("branch_id")%>" <%=rsQry("selected")%>><%=rsQry("branch_name")%></option>
803 
              <%rsQry.MoveNext
804 
			  WEnd
805 
 
806 
			  rsQry.Close
807 
			  Set rsQry = Nothing
808 
			  %>
809 
		  </select></td>
64 jtweddle 810 
        </tr> -->
62 rsolanki 811 
        <tr>
812 
          <td align="left">
813 
 
814 
 
815 
		  <select name="sbomB" id="sbomB" class="form_item">
816 
            <%
64 jtweddle 817 
			Dim nBranchId
818 
			If objAccessControl.IsActive("Vasttrafik")	Then
819 
				nBranchId	=	1142
820 
			Else
821 
				nBranchId	=	542
822 
			End	If
823 
 
62 rsolanki 824 
			  OraDatabase.Parameters.Add "BOM_ID", 	objRelCollectorB.Item("bom_id"),	ORAPARM_INPUT,  ORATYPE_NUMBER
64 jtweddle 825 
			  OraDatabase.Parameters.Add "BRANCH_ID", 	nBranchId,	ORAPARM_INPUT, ORATYPE_NUMBER
62 rsolanki 826 
 
64 jtweddle 827 
			  Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("ProductionTreeCombo.sql"), cint(0))
62 rsolanki 828 
 
829 
			  OraDatabase.Parameters.Remove "BOM_ID"
830 
			  OraDatabase.Parameters.Remove "BRANCH_ID"
831 
 
832 
			  While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))%>
64 jtweddle 833 
            <option value="<%=rsQry("bom_id")%>" <%=rsQry("selected")%>><%=rsQry("bom_name")%>&gt;<%=rsQry("bom_version")%></option>
62 rsolanki 834 
            <%rsQry.MoveNext
835 
			  WEnd
836 
 
837 
			  rsQry.Close
838 
			  Set rsQry = Nothing
839 
			  %>
840 
          </select>
841 
 
842 
 
843 
		  </td>
844 
        </tr>
845 
		<%If (parRtagB <> "") Then%>
64 jtweddle 846 
<!-- 		<tr>
62 rsolanki 847 
          <td align="left"><a href="Bom_home.asp?bom_id=<%=parSBOMB%>" class="body_txt_drk">Go To SBOM B &raquo;</a></td>
64 jtweddle 848 
        </tr> -->
62 rsolanki 849 
		<%End If%>
850 
      </table>
851 
      <!-- SELECT RELEASE B END ---------------------------------------------->	  </td>
852 
  </tr>
853 
  <tr>
64 jtweddle 854 
    <td valign="bottom" align="center" background="images/bg_lightgreen.gif"><img src="images/img_vtree.gif" width="86" height="99" vspace="20" hspace="30"></td>
62 rsolanki 855 
    <td background="images/bg_lght_gray.gif" valign="top"><img src="images/h_trsp_dot.gif" width="1" height="500"></td>
64 jtweddle 856 
	<td valign="bottom" background="images/bg_lightgreen.gif" align="center"><img src="images/img_vtree.gif" width="86" height="99" vspace="20" hspace="30"></td>
62 rsolanki 857 
  </tr>
858 
</table>
859 
</form>
860 
<!-- FOOTER -->
861 
<!--#include file="_footer.asp"-->
862 
<%
64 jtweddle 863 
	'If email Then
62 rsolanki 864 
 
64 jtweddle 865 
		'Dim myMail, LocalPath
866 
		'Set myMail=Server.CreateObject("Persits.MailSender")
867 
		'LocalPath = Server.MapPath("docs\compareBoms_"&objAccessControl.UserName&".html")
62 rsolanki 868 
 
64 jtweddle 869 
	'	myMail.Host = SMTP_HOST
870 
	'	myMail.Subject="BOM Comparisons from Deployment Manager"
871 
	'	myMail.From="releasem@erggroup.com"
872 
	'	myMail.AddAddress objAccessControl.UserEmail
62 rsolanki 873 
		' Attach the file
64 jtweddle 874 
	'	myMail.AddAttachment LocalPath
875 
	'	myMail.Body = "Your requested report..."
876 
	'	myMail.Send
62 rsolanki 877 
 
64 jtweddle 878 
	'	set myMail=nothing
62 rsolanki 879 
 
64 jtweddle 880 
	'End If
62 rsolanki 881 
%>
882 
</body>
883 
</html>
884 
<%
885 
Call Destroy_All_Objects
886 
%>
887 
<!--#include file="common/globals_destructor.asp"-->