Subversion Repositories DevTools

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
13 rsolanki 1 
<%
2 
'=====================================================
3 
'|	                  			                     |
4 
'|	         	    REPORTS DEFINITION	  		     |
5 
'|                                                   |
6 
'=====================================================
25 rsolanki 7 
 
8 
' Good idea to set when using redirect
9 
Response.Expires = 0	' always load the page, dont store
10 
 
11 
'To enable the script timeout to 10 mins
12 
Server.ScriptTimeout=600
13 rsolanki 13 
%>
25 rsolanki 14 
 
13 rsolanki 15 
<%
25 rsolanki 16 
'------------ ACCESS CONTROL ------------------
17 
%>
18 
 
19 
<%
20 
'------------ Variable Definition -------------
21 
Dim rsQry
22 
Dim rsTemp
23 
Dim parPv_id, parExt
24 
Dim objReleaseContent
25 
Dim aReleaseContent
26 
Dim objPackageDetails
27 
Dim	outobjDetails
28 
Dim	pvIdList
29 
Dim	dpv_id
30 
'------------ Constants Declaration -----------
31 
'------------ Variable Init -------------------
32 
parBom_id = Request("bom_id")
33 
parExt = Request("ext")
34 
Set objReleaseContent = CreateObject("Scripting.Dictionary")
35 
Set objPackageDetails = CreateObject("Scripting.Dictionary")
36 
Set outobjDetails = CreateObject("Scripting.Dictionary")
37 
'----------------------------------------------------------------------------------------------------------------------------------------
38 
Sub GetPackageInformation ( nPv_id, ByRef oPackageDetails )
39 
	Dim rsQry, query
40 
	query = _
41 
	" SELECT pkg.pkg_name, pv.* "&_
42 
	"  FROM PACKAGES pkg,"&_
43 
	"       PACKAGE_VERSIONS pv"&_
44 
	" WHERE pv.pv_id = "& nPv_id &_
45 
	"   AND pv.pkg_id = pkg.pkg_id	"
46 
 
47 
	Set rsQry = OraDatabase.DbCreateDynaset( query, 0)
48 
 
49 
	oPackageDetails.RemoveAll
50 
 
51 
	If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then
52 
		oPackageDetails("pkg_name") = rsQry("pkg_name")
53 
		oPackageDetails("pkg_version") = rsQry("pkg_version")
54 
		oPackageDetails("v_ext") = rsQry("v_ext")
55 
		oPackageDetails("pv_description") = rsQry("pv_description")
56 
		oPackageDetails("pv_overview") = rsQry("pv_overview")
57 
		oPackageDetails("src_path") = rsQry("src_path")
58 
		oPackageDetails("pkg_label") = rsQry("pkg_label")
59 
		oPackageDetails("is_build_env_required") = rsQry("is_build_env_required")
60 
 
61 
	End If
62 
 
63 
	rsQry.Close()
64 
	Set rsQry = Nothing
65 
End Sub
66 
'----------------------------------------------------------------------------------------------------------------------------------------
67 
Function SQL_Build_Env ( nPv_id )
68 
	SQL_Build_Env = _
69 
	" SELECT be.*"&_
70 
	"  FROM RELEASE_MANAGER.BUILD_ENVIRONMENTS be,"&_
71 
	"	   RELEASE_MANAGER.PACKAGE_BUILD_ENV pbe"&_
72 
	" WHERE pbe.PV_ID = "& nPv_id &_
73 
	"   AND pbe.BE_ID = be.BE_ID "&_
74 
	" ORDER BY UPPER(be.BE_NAME) "
75 
End Function
76 
'----------------------------------------------------------------------------------------------------------------------------------------
77 
Function SQL_Modules (nPv_idList)
78 
	SQL_Modules	= _
79 
	"SELECT DISTINCT"&_
80 
 	"   qry.DPV_ID "&_
81 
    " FROM ("&_
82 
 	"		SELECT dep.*,"&_
83 
 	"			   LEVEL AS LEVEL_NUM"&_
84 
 	"		  FROM PACKAGE_DEPENDENCIES dep"&_
85 
 	"		START WITH dep.PV_ID IN ( "& nPv_idList &" ) "&_
86 
 	"		CONNECT BY PRIOR dep.DPV_ID = dep.PV_ID"&_
87 
 	"	) qry,"&_
88 
 	"	PACKAGES pkg,"&_
89 
	"	PACKAGE_VERSIONS pv"&_
90 
 	" WHERE qry.PV_ID = pv.PV_ID AND pv.PKG_ID = pkg.PKG_ID"
91 
End	Function
92 
'----------------------------------------------------------------------------------------------------------------------------------------
93 
Function SQL_Build_Dependencies ( nPv_id )
94 
	SQL_Build_Dependencies = _
95 
	" SELECT dpkg.pkg_name, dpv.pkg_version"&_
96 
	"	  FROM PACKAGE_DEPENDENCIES dep,"&_
97 
	"	  	   PACKAGES dpkg,"&_
98 
	"		   PACKAGE_VERSIONS dpv"&_
99 
	"	 WHERE dep.pv_id = "& nPv_id &_
100 
	"	   AND dep.DPV_ID = dpv.pv_id"&_
101 
	"	   AND dpv.pkg_id = dpkg.pkg_id	"&_
102 
	"	ORDER BY UPPER(dpkg.pkg_name) "
103 
End Function
104 
'----------------------------------------------------------------------------------------------------------------------------------------
105 
Sub GetReleaseContent ( nBom_id, ByRef oReleaseContent )
106 
	Dim rsQry, query
107 
 
108 
 
109 
 
110 
	query = _
111 
	" SELECT qry.prod_id"&_
112 
	"  FROM ("&_
113 
	"			SELECT DISTINCT"&_
114 
   	"    		osc.PROD_ID,"&_
115 
	"			   pkg.pkg_name,"&_
116 
	"   		pv.pkg_version,"&_
117 
	"   		1	as	seq_num"&_
118 
  	"			FROM bom_contents bc,"&_
119 
   	"   		operating_systems os, "&_
120 
    "  		 os_contents osc,"&_
121 
	" 		  PACKAGES pkg,"&_
122 
  	"  		 PACKAGE_VERSIONS pv,"&_
123 
	"  		 PRODUCT_DETAILS pd"&_
124 
	"			 WHERE osc.os_id = os.os_id "&_
125 
   	"			AND os.node_id = bc.node_id"&_
126 
   	"			AND bc.bom_id =	"&	nBom_id &_
127 
   	"			AND pd.PROD_ID (+) = osc.PROD_ID"&_
128 
   	"			AND pv.pkg_id = pkg.pkg_id"&_
129 
   	"			AND osc.prod_id = pv.pv_id "&_
130 
   	"			AND (pd.is_rejected IS NULL or pd.IS_REJECTED != 'Y')  "&_
131 
	"		UNION   "&_
132 
	"		SELECT DISTINCT bec.prod_id,  pkg.pkg_name, pkg_version, 2	as	seq_num"&_
133 
    "       FROM boms bm,"&_
134 
    "            bom_contents bc,"&_
135 
    "            network_nodes nn,"&_
136 
    "            operating_systems os,"&_
137 
    "            os_base_env obe,"&_
138 
    "            base_env_contents bec,"&_
139 
    "            PACKAGES pkg,"&_
140 
    "            package_versions pv,"&_
141 
    "            base_env be,"&_
142 
    "            bos_types bt,"&_
143 
	"            PRODUCT_DETAILS pd"&_
144 
    "      WHERE bm.bom_id =	"&	nBom_id	&_
145 
    "        AND bm.bom_id = bc.bom_id"&_
146 
    "        AND nn.node_id = bc.node_id"&_
147 
    "        AND os.node_id = nn.node_id"&_
148 
    "        AND obe.os_id = os.os_id"&_
149 
	"		AND pd.PROD_ID (+) = bec.PROD_ID"&_
150 
   	"		AND (pd.is_rejected IS NULL or pd.IS_REJECTED != 'Y')  "&_
151 
    "        AND bec.base_env_id = obe.base_env_id"&_
152 
    "        AND bec.prod_id = pv.pv_id"&_
153 
    "        AND pkg.pkg_id = pv.pkg_id"&_
154 
    "        AND be.base_env_id = obe.base_env_id"&_
155 
    "       AND bt.bos_id = be.bos_id"&_
156 
	"	   ) qry  "&_
157 
	" ORDER BY  qry.seq_num, UPPER(qry.pkg_name), UPPER(qry.pkg_version)"
158 
 
159 
	Set rsQry = OraDatabase.DbCreateDynaset( query, 0)
160 
	While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
161 
		oReleaseContent( CStr( rsQry("prod_id")) ) = ""
162 
		rsQry.MoveNext()
163 
	WEnd
164 
 
165 
	rsQry.Close()
166 
	Set rsQry = Nothing
167 
End Sub
168 
'----------------------------------------------------------------------------------------------------------------------------------------
169 
 
170 
%>
171 
 
172 
<%
13 rsolanki 173 
Sub Reports_List ( SSgroup )
174 
	Dim repNum
175 
%>  <!-- REPORTS LIST -------------------------------------------------------->
176 
	<%Select Case SSgroup%>
177 
	<%Case "Advanced_Search"%>
178 
	<%repNum = 9%>
17 rsolanki 179 
	<strong>BOM History Tracker</strong><br>
180 
	Use this report to find what changes occured in a BOM within specified date range.<br>
13 rsolanki 181 
	<a href="rep_bill_of_materials.asp?repnum=<%=repNum%>&group=<%=SSgroup%>" class="txt_linked">more...</a><br><br><hr size="1" noshade color="#DAD7C8">
25 rsolanki 182 
	<%repNum = 4%>
183 
	<strong>Find A Product</strong><br>
184 
    Use this advanced search to find a product in Deployment Manager.<br>
185 
    <a href="rep_find_package.asp?repnum=<%=repNum%>&group=<%=SSgroup%>" class="txt_linked">more...</a><br><br><hr size="1" noshade color="#DAD7C8">
13 rsolanki 186 
	<%Case "Admin_Reports"%>
187 
	<strong>All Packages by Project by Version Tree by Release</strong><br>
188 
	CSV output of all packages used in Release Manager per Project.<br>
189 
	<a href="rep_all_packages_by_project_by_vtree_by_release.asp" target="_blank" class="txt_linked">more...</a><br><br><hr size="1" noshade color="#DAD7C8">
190 
	<strong>All Runtime Dependencies by Project by Version Tree by Release</strong><br>
191 
	CSV output of all runtime dependencies used in Release Manager per Project.<br>
192 
	<a href="rep_all_runtime_dependencies_by_project_by_vtree_by_release.asp" target="_blank" class="txt_linked">more...</a><br><br><hr size="1" noshade color="#DAD7C8">
193 
	<%repNum = 6%>
194 
	<strong>Unused Packages</strong><br>
195 
	All packages (Not Products) with no entries in "Used By" tab.<br>
196 
    Use this report to help you clean up a release and remove all potentially unused packages.<br>
197 
    <a href="rep_obsolete_packages.asp?repnum=<%=repNum%>&group=<%=SSgroup%>" class="txt_linked">more...</a><br><br><hr size="1" noshade color="#DAD7C8">
198 
	<%Case "Escrow"%>
25 rsolanki 199 
	<%repNum = 11%>
200 
	<strong>Escrow Report</strong><br>
201 
	List of all Products/Patches for the BOM including modules. Use this report to provide a build roadmap.<br>
202 
	<a href="escrow_report.asp?repnum=<%=repNum%>&group=<%=SSgroup%>" class="txt_linked">more...</a><br><br><hr size="1" noshade color="#DAD7C8">
19 rsolanki 203 
	<%Case "Bom_Difference"%>
204 
	<strong>BOM Version Difference Tool</strong><br>
205 
	Use this tool to find what changes occured in a BOM compared to another BOM. <br>
206 
	A detailed report of changes between two BOMs can also be emailed upon user request.<br>
207 
    <a href="diff.asp" class="txt_linked">more...</a><br><br><hr size="1" noshade color="#DAD7C8">
208 
	<%Case "Bom_Merge_Manager"%>
209 
	<strong>BOM Merge Manager Tool</strong><br>
210 
	Use this tool to merge in a change from one BOM to another. <br>
211 
    <a href="diffmerge.asp" class="txt_linked">more...</a><br><br><hr size="1" noshade color="#DAD7C8">
13 rsolanki 212 
	<%Case Else%>
213 
	<b>&laquo; Select reporting category.</b>
214 
	<%End Select%>
215 
	<!-- REPORTS LIST END-------------------------------------------------------->
216 
 
217 
<%End Sub%>
218 
 
219 
<%
220 
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
221 
Sub Get_Projects ( NNproj_id, BBallow_all )
222 
	Dim rsTemp, Query_String
223 
 
224 
	Query_String = _
225 
	"SELECT * FROM DM_PROJECTS ORDER BY proj_name ASC"
226 
	Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
227 
 
228 
	Response.write "<select name='FRproj_id' onChange=""Cascaded_Menu('parent','"& SCRIPT_NAME &"?FRvtree_id=&FRrtag_id=&group="& Request("group") &"&repnum="& Request("repnum") &"&FRproj_id=',this,0)"" class='form_item'>"
229 
		If BBallow_all Then
230 
			Response.write "<option value='-1'>ALL</option>"
231 
		Else
232 
			Response.write "<option></option>"
233 
		End If
234 
 
235 
		While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
236 
			If CDbl(NNproj_id) = CDbl(rsTemp.Fields("proj_id")) Then
237 
	        	Response.write "<option value='"& rsTemp.Fields("proj_id") &"' selected>"& UCase(rsTemp.Fields("proj_name")) &"</option>"
238 
	        Else
239 
				Response.write "<option value='"& rsTemp.Fields("proj_id") &"'>"& UCase(rsTemp.Fields("proj_name")) &"</option>"
240 
			End If
241 
			rsTemp.MoveNext
242 
		WEnd
243 
	Response.write "</select>"
244 
 
245 
	rsTemp.Close
246 
	Set rsTemp = nothing
247 
End Sub
248 
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
249 
Sub Get_Version_Trees ( NNproj_id, NNvtree_id, BBallow_all )
250 
	Dim rsTemp, Query_String
251 
 
252 
	Query_String = _
253 
	"SELECT vtree_id, vtree_name FROM vtrees WHERE hide = 'N' AND proj_id = "& NNproj_id &" ORDER BY vtree_id ASC"
254 
	Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
255 
 
256 
	Response.write "<select name='FRvtree_id' onChange=""Cascaded_Menu('parent','"& scriptName &"?FRproj_id="& NNproj_id &"&FRrtag_id=&group="& Request("group") &"&repnum="& Request("repnum") &"&FRvtree_id=',this,0)"" class='form_item'>"
257 
		If BBallow_all Then
258 
			Response.write "<option value='-1'>ALL</option>"
259 
		Else
260 
			Response.write "<option></option>"
261 
		End If
262 
 
263 
		If NNproj_id <> -1 Then
264 
			While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
265 
				If CDbl(NNvtree_id) = CDbl(rsTemp.Fields("vtree_id")) Then
266 
		        	Response.write "<option value='"& rsTemp.Fields("vtree_id") &"' selected>"& (rsTemp.Fields("vtree_name")) &"</option>"
267 
		        Else
268 
					Response.write "<option value='"& rsTemp.Fields("vtree_id") &"'>"& (rsTemp.Fields("vtree_name")) &"</option>"
269 
				End If
270 
				rsTemp.MoveNext
271 
			WEnd
272 
		End If
273 
	Response.write "</select>"
274 
 
275 
	rsTemp.Close
276 
	Set rsTemp = nothing
277 
End Sub
278 
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
279 
Sub Get_Release_Labels ( NNproj_id, NNrtag_id, BBallow_all )
280 
	Dim rsTemp, Query_String
281 
 
282 
	Query_String = _
283 
	"SELECT * FROM BRANCHES WHERE proj_id = "& NNproj_id &" ORDER BY branch_id ASC"
284 
	Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
285 
 
286 
	Response.write "<select name='FRrtag_id' onChange=""Cascaded_Menu('parent','"& SCRIPT_NAME &"?FRproj_id="& NNproj_id &"&group="& Request("group") &"&repnum="& Request("repnum") &"&FRrtag_id=',this,0)"" class='form_item'>"
287 
	If BBallow_all Then
288 
		Response.write "<option value='-1'>ALL</option>"
289 
	Else
290 
		Response.write "<option></option>"
291 
	End If
292 
 
293 
		If NNproj_id <> -1 Then
294 
			While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
295 
				If CDbl(NNrtag_id) = CDbl(rsTemp.Fields("branch_id")) Then
296 
		        	Response.write "<option value='"& rsTemp.Fields("branch_id") &"' selected>"& (rsTemp.Fields("branch_name")) &"</option>"
297 
		        Else
298 
					Response.write "<option value='"& rsTemp.Fields("branch_id") &"'>"& (rsTemp.Fields("branch_name")) &"</option>"
299 
				End If
300 
				rsTemp.MoveNext
301 
			WEnd
302 
		End If
303 
	Response.write "</select>"
304 
 
305 
	rsTemp.Close
306 
	Set rsTemp = nothing
307 
End Sub
308 
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
309 
Sub Get_SBOM_Version ( NNproj_id, NNrtag_id, BBallow_all, NNversion )
310 
	Dim rsTemp, Query_String
311 
 
312 
	Query_String = _
17 rsolanki 313 
	"SELECT B.BOM_ID, B.BRANCH_ID, B.BOM_VERSION ||'.'||B.BOM_LIFECYCLE AS VERSION, BN.BOM_NAME FROM BOMS B, BOM_NAMES BN WHERE B.BRANCH_ID ="&NNrtag_id&" AND BN.BOM_NAME_ID = B.BOM_NAME_ID ORDER BY VERSION"
13 rsolanki 314 
 
315 
 
316 
	Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
317 
 
318 
 
319 
	Response.write "<select name='FRversion' class='form_item'>"
320 
	If BBallow_all Then
321 
		Response.write "<option value='-1'>ALL</option>"
322 
	Else
323 
		Response.write "<option></option>"
324 
	End If
325 
 
326 
		If NNrtag_id <> -1 Then
327 
			While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
328 
				If CStr(NNversion) = CStr(rsTemp.Fields("version")) Then
17 rsolanki 329 
		        	Response.write "<option value='"& rsTemp.Fields("version") &"' selected>"& rsTemp("BOM_NAME") &" "& (rsTemp.Fields("version")) &"</option>"
13 rsolanki 330 
		        Else
17 rsolanki 331 
					Response.write "<option value='"& rsTemp.Fields("version") &"'>"& rsTemp("BOM_NAME") &" "& (rsTemp.Fields("version")) &"</option>"
13 rsolanki 332 
				End If
333 
				rsTemp.MoveNext
334 
			WEnd
335 
		End If
336 
	Response.write "</select>"
337 
	rsTemp.Close
338 
	Set rsTemp = nothing
339 
 
340 
End Sub
341 
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
342 
Sub Get_Branches ( NNproj_id, NNrtag_id, BBallow_all )
343 
	Dim rsTemp, Query_String
344 
 
345 
	Query_String = _
346 
	"SELECT * FROM branches WHERE proj_id = "& NNproj_id &" ORDER BY branch_id ASC"
25 rsolanki 347 
	Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
13 rsolanki 348 
	Response.write "<select name='FRbranch_id' onChange=""Cascaded_Menu('parent','"& scriptName &"?FRproj_id="& NNproj_id &"&group="& Request("group") &"&repnum="& Request("repnum") &"&FRrtag_id=',this,0)"" class='form_item'>"
349 
	If BBallow_all Then
350 
		Response.write "<option value='-1'>ALL</option>"
351 
	Else
352 
		Response.write "<option></option>"
353 
	End If
354 
 
355 
		If NNproj_id <> -1 Then
356 
			While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
357 
				If CDbl(NNrtag_id) = CDbl(rsTemp.Fields("branch_id")) Then
358 
		        	Response.write "<option value='"& rsTemp.Fields("branch_id") &"' selected>"& (rsTemp.Fields("branch_name")) &"</option>"
359 
		        Else
360 
					Response.write "<option value='"& rsTemp.Fields("branch_id") &"'>"& (rsTemp.Fields("branch_name")) &"</option>"
361 
				End If
362 
				rsTemp.MoveNext
363 
			WEnd
364 
		End If
365 
	Response.write "</select>"
366 
 
367 
	rsTemp.Close
368 
	Set rsTemp = nothing
369 
End Sub
370 
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
371 
 
372 
Sub Get_Base_Views ( nRtag_id, nBase_view_id, BBallow_all )
373 
	Dim rsTemp, Query_String
374 
 
375 
	Query_String = _
376 
	"SELECT DISTINCT vi.view_id, vi.view_name"&_
377 
	"  FROM VIEWS vi,"&_
378 
	"   		RELEASE_CONTENT rc"&_
379 
	" WHERE rc.BASE_VIEW_ID = vi.VIEW_ID"&_
380 
	"   AND rc.rtag_id = "& nRtag_id &_
381 
	"ORDER BY UPPER( vi.view_name )"
382 
 
383 
	Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
384 
 
385 
	Response.write "<select name='FRbase_view_id' class='form_item'>"
386 
	If BBallow_all Then
387 
		Response.write "<option value='-1'>ALL</option>"
388 
	Else
389 
		Response.write "<option></option>"
390 
	End If
391 
 
392 
		If nRtag_id <> -1 Then
393 
			While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
394 
				If CDbl(nBase_view_id) = CDbl(rsTemp.Fields("view_id")) Then
395 
		        	Response.write "<option value='"& rsTemp.Fields("view_id") &"' selected>"& (rsTemp.Fields("view_name")) &"</option>"
396 
		        Else
397 
					Response.write "<option value='"& rsTemp.Fields("view_id") &"'>"& (rsTemp.Fields("view_name")) &"</option>"
398 
				End If
399 
				rsTemp.MoveNext
400 
			WEnd
401 
		End If
402 
	Response.write "</select>"
403 
 
404 
	rsTemp.Close
405 
	Set rsTemp = nothing
406 
End Sub
407 
%>
408 
<%
409 
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
410 
'==================================================================================
411 
' Report Name		: 	Packages Using Ignore Feature
412 
' Description		:	Lists packages which use "Ignore Warning"
413 
'						feature on their dependencies.
414 
' INPUT				:	Project, Vesion Tree, Release Label
415 
'==================================================================================
416 
Sub Packages_Using_Ignore_Feature ( SSsection, NNproj_id, NNrtag_id )
417 
	Dim Query_String, rsRep
418 
	Const Allow_All = TRUE
419 
 
420 
	If NNproj_id = "" Then NNproj_id = -1
421 
	If NNrtag_id = "" Then NNrtag_id = -1
422 
 
423 
	If SSsection = "TITLE" Then
424 
		Response.write "Packages Using 'Ignore Warnings' Feature"
425 
		Exit Sub
426 
	End If
427 
 
428 
 
429 
	If SSsection = "FORM" Then
430 
	%>
431 
	<table width="100%" border="0" cellpadding="2" cellspacing="1">
432 
	  <form action="<%=scriptName%>" method="post" name="repform">
433 
      <tr>
434 
        <td width="1%" nowrap class="form_field"><img src="images/spacer.gif" width="30" height="8"></td>
435 
        <td width="1%" align="right" nowrap class="form_field">Project</td>
436 
        <td width="100%"><%Call Get_Projects( NNproj_id, Allow_All )%></td>
437 
      </tr>
438 
      <tr>
439 
        <td nowrap class="form_field">&nbsp;</td>
440 
        <td align="right" nowrap class="form_field">Release</td>
441 
        <td><%Call Get_Release_Labels ( NNproj_id,  NNrtag_id, Allow_All )%></td>
442 
      </tr>
443 
      <tr>
444 
        <td nowrap class="form_field">&nbsp;</td>
445 
        <td align="right" nowrap class="form_field">&nbsp;</td>
446 
        <td><br>
447 
			<input type="hidden" name="group" value="<%=parGroup%>">
448 
			<input type="hidden" name="repnum" value="<%=parRepNum%>">
449 
			<input type="hidden" name="action" value="true">
450 
		<input name="Submit" type="submit" class="form_btn" value="Submit">
451 
        </td>
452 
      </tr>
453 
	  </form>
454 
    </table>
455 
	<%	Exit Sub
456 
	End If
457 
 
458 
 
459 
	If SSsection = "BODY" Then
460 
		If NOT CBool(Request("action")) Then Exit Sub
461 
 
462 
		Query_String = ReadFile( rootPath & "queries\rep_packages_using_ignore_feature.sql" )
463 
 
464 
		OraDatabase.Parameters.Add "PROJ_ID", NNproj_id, ORAPARM_INPUT, ORATYPE_NUMBER
465 
		OraDatabase.Parameters.Add "RTAG_ID", NNrtag_id, ORAPARM_INPUT, ORATYPE_NUMBER
466 
	%>
467 
	<table width="100%" border="0" cellspacing="0" cellpadding="2">
468 
      <tr>
469 
        <td width="1%" nowrap class="body_colb">&nbsp;</td>
470 
        <td width="1%" nowrap class="body_colb">Package Name&nbsp;&nbsp;&nbsp;</td>
471 
        <td width="1%" nowrap class="body_colb">Version&nbsp;&nbsp;&nbsp;</td>
472 
        <td width="100%" nowrap class="body_colb">&nbsp;</td>
473 
      </tr>
474 
      <tr>
475 
        <td colspan="4" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
476 
      </tr>
477 
	  <%
478 
	  Dim currRtag_id
479 
	  currRtag_id = -1
480 
	  Set rsRep = OraDatabase.DbCreateDynaset( Query_String, 0 )
481 
 
482 
	  If rsRep.RecordCount = 0 Then
483 
	  	With Response
484 
			.write "<tr>"
485 
			.write "<td colspan='4' class='body_row'>Found 0 records</td>"
486 
			.write "</tr>"
487 
		End With
488 
	  End If
489 
 
490 
	  While ((NOT rsRep.BOF) AND (NOT rsRep.EOF))
491 
		  ' -------- GROUP BY RTAG_ID -----------------
492 
		  If CDbl(currRtag_id) <> CDbl(rsRep("rtag_id")) Then
493 
		  %>
494 
	      <tr>
495 
	        <td colspan="3" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
496 
	        <td></td>
497 
	      </tr>
498 
	      <tr>
499 
	        <td colspan="4" nowrap class="body_scol"><%=rsRep("proj_name")  &" &gt; "& rsRep("rtag_name")%></td>
500 
	      </tr>
501 
		  <%
502 
		  	currRtag_id = CDbl(rsRep("rtag_id"))
503 
		  End If
504 
		  ' -------- END GROUP ------------------------
505 
		  %>
506 
	      <tr>
507 
	        <td class="body_row"></td>
508 
	        <td nowrap><a href="dependencies.asp?rtag_id=<%=rsRep("rtag_id")%>&pv_id=<%=rsRep("pv_id")%>" class="txt_linked"><%=rsRep("pkg_name")%></a></td>
509 
	        <td nowrap><a href="dependencies.asp?rtag_id=<%=rsRep("rtag_id")%>&pv_id=<%=rsRep("pv_id")%>" class="txt_linked"><%=rsRep("pkg_version")%></a></td>
510 
	        <td class="body_row"></td>
511 
	      </tr>
512 
	  <%  rsRep.MoveNext
513 
	  WEnd
514 
	  %>
515 
      <tr>
516 
        <td colspan="3" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
517 
        <td></td>
518 
      </tr>
519 
	  <tr>
520 
        <td colspan="4" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
521 
      </tr>
522 
    </table>
523 
	<!-- PRINT, SAVE, ETC. ------------>
524 
	<%If parPrint = "" Then%>
525 
	<br>
526 
	<br>
527 
	<a href="javascript:;" onClick="window.print();" class="txt_linked"><img src="images/btn_print.gif" width="23" height="24" hspace="4" border="0" align="absmiddle">Print this report</a><br>
528 
	<br>
529 
	<%End If%>
530 
	<!-- PRINT, SAVE, ETC. END -------->
531 
	<%
532 
		rsRep.Close
533 
		Set rsRep = nothing
534 
	End If
535 
 
536 
End Sub
537 
%>
538 
<%
539 
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
540 
'==================================================================================
541 
' Report Name		: 	Current State of Release
542 
' Description		:	Show all packages in a release with their state, owner and modifier
543 
' Form Input		:	Project, Vesion Tree, Release Label
544 
' SQL INPUT			:	rtag_id
545 
'==================================================================================
546 
Sub Current_State_of_Release ( SSsection, NNproj_id, NNrtag_id, NNpkg_states )
547 
	Dim Query_String, rsRep
548 
	Const Disallow_All = FALSE
549 
 
550 
	If NNproj_id = "" Then NNproj_id = -1
551 
	If NNrtag_id = "" Then NNrtag_id = -1
552 
	If NNpkg_states = "" Then NNpkg_states = -1
553 
 
554 
	If SSsection = "TITLE" Then
555 
		Response.write "Current State of Release"
556 
		Exit Sub
557 
	End If
558 
 
559 
 
560 
	If SSsection = "FORM" Then
561 
	%>
562 
	<table width="100%" border="0" cellpadding="2" cellspacing="1">
563 
	  <form action="<%=scriptName%>" method="post" name="repform" onSubmit="MM_validateForm('FRproj_id','Project','R','FRvtree_id','Version Tree','R','FRrtag_id','Release','R');return document.MM_returnValue">
564 
      <tr>
565 
        <td width="1%" nowrap class="form_field"><img src="images/spacer.gif" width="30" height="8"></td>
566 
        <td width="1%" align="right" nowrap class="form_field">Project</td>
567 
        <td width="100%"><%Call Get_Projects( NNproj_id, Disallow_All )%></td>
568 
      </tr>
569 
      <tr>
570 
        <td nowrap class="form_field">&nbsp;</td>
571 
        <td align="right" nowrap class="form_field">Release</td>
572 
        <td><%Call Get_Release_Labels ( NNproj_id, NNrtag_id, Disallow_All )%></td>
573 
      </tr>
574 
	  <tr>
575 
        <td nowrap class="form_field">&nbsp;</td>
576 
        <td align="right" nowrap class="form_field">Package States</td>
577 
        <td class="form_field" nowrap>
578 
		<span style="border: 1px solid #808080;">&nbsp;OK&nbsp;<input type="checkbox" name="FRpkg_state" value="<%=enumPKG_STATE_OK%>" <%If InStr( Request("FRpkg_state"), Cstr(enumPKG_STATE_OK) ) > 0 Then%>checked<%End If%>></span>&nbsp;&nbsp;
579 
		<span style="border: 1px solid #808080;"><%=enum_imgCritical%><input type="checkbox" name="FRpkg_state" value="<%=enumPKG_STATE_MAJOR%>" <%If InStr( Request("FRpkg_state"), Cstr(enumPKG_STATE_MAJOR) ) > 0 Then%>checked<%End If%>></span>&nbsp;&nbsp;
580 
		<span style="border: 1px solid #808080;"><%=enum_imgWarning%><input type="checkbox" name="FRpkg_state" value="<%=enumPKG_STATE_MINOR%>" <%If InStr( Request("FRpkg_state"), Cstr(enumPKG_STATE_MINOR) ) > 0 Then%>checked<%End If%>></span>&nbsp;&nbsp;
581 
		<span style="border: 1px solid #808080;"><%=enum_imgCReady%><input type="checkbox" name="FRpkg_state" value="<%=enumPKG_STATE_MAJOR_READY%>" <%If InStr( Request("FRpkg_state"), Cstr(enumPKG_STATE_MAJOR_READY) ) > 0 Then%>checked<%End If%>></span>&nbsp;&nbsp;
582 
		<span style="border: 1px solid #808080;"><%=enum_imgWReady%><input type="checkbox" name="FRpkg_state" value="<%=enumPKG_STATE_MINOR_READY%>" <%If InStr( Request("FRpkg_state"), Cstr(enumPKG_STATE_MINOR_READY) ) > 0 Then%>checked<%End If%>></span>&nbsp;&nbsp;
583 
		</td>
584 
      </tr>
585 
      <tr>
586 
        <td nowrap class="form_field">&nbsp;</td>
587 
        <td align="right" nowrap class="form_field">&nbsp;</td>
588 
        <td><br>
589 
			<input type="hidden" name="group" value="<%=parGroup%>">
590 
			<input type="hidden" name="repnum" value="<%=parRepNum%>">
591 
			<input type="hidden" name="action" value="true">
592 
		<input name="Submit" type="submit" class="form_btn" value="Submit">
593 
        </td>
594 
      </tr>
595 
	  </form>
596 
    </table>
597 
	<%	Exit Sub
598 
	End If
599 
 
600 
 
601 
	If SSsection = "BODY" Then
602 
		If NOT CBool(Request("action")) Then Exit Sub
603 
 
604 
		Query_String = ReadFile( rootPath & "queries\rep_details_current_status_of_release.sql" )
605 
		Query_String = Replace ( Query_String, "/*PKG_STATES*/", NNpkg_states )
606 
 
607 
		OraDatabase.Parameters.Add "RTAG_ID", NNrtag_id, ORAPARM_INPUT, ORATYPE_NUMBER
608 
	%>
609 
	<table width="100%" border="0" cellspacing="0" cellpadding="2">
610 
      <tr>
611 
	    <td width="1%" nowrap class="body_colb">&nbsp;</td>
612 
        <td width="1%" nowrap class="body_colb">&nbsp;</td>
613 
		<td width="1%" nowrap class="body_colb">&nbsp;</td>
614 
        <td width="1%" nowrap class="body_colb">Package Name and Version&nbsp;&nbsp;&nbsp;</td>
615 
        <td width="1%" nowrap class="body_colb">Owner&nbsp;&nbsp;&nbsp;</td>
616 
		<td width="1%" nowrap class="body_colb">Last Modifier&nbsp;&nbsp;&nbsp;</td>
617 
		<td width="1%" nowrap class="body_colb">Added to Release&nbsp;&nbsp;&nbsp;</td>
618 
        <td width="100%" nowrap class="body_colb">&nbsp;</td>
619 
      </tr>
620 
      <tr>
621 
        <td colspan="8" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
622 
      </tr>
623 
	   <%
624 
	  Dim currView_id
625 
	  currView_id = -1
626 
	  Set rsRep = OraDatabase.DbCreateDynaset( Query_String, 0 )
627 
 
628 
	  If rsRep.RecordCount = 0 Then
629 
	  	With Response
630 
			.write "<tr>"
631 
			.write "<td colspan='8' class='body_row'>Found 0 records</td>"
632 
			.write "</tr>"
633 
		End With
634 
	  End If
635 
 
636 
	  While ((NOT rsRep.BOF) AND (NOT rsRep.EOF))
637 
		  ' -------- GROUP BY RTAG_ID -----------------
638 
		  If CDbl(currView_id) <> CDbl(rsRep("view_id")) Then
639 
		  %>
640 
	      <tr>
641 
	        <td colspan="7" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
642 
	        <td></td>
643 
	      </tr>
644 
		  <tr>
645 
	        <td colspan="8" nowrap class="body_scol"><%=rsRep("view_name")%></td>
646 
	      </tr>
647 
		  <%
648 
		  	currView_id = CDbl(rsRep("view_id"))
649 
		  End If
650 
		  ' -------- END GROUP ------------------------
651 
		  %>
652 
	      <tr>
653 
		  	<td class="body_row"></td>
654 
		  	<td><%=DefineStateIcon ( rsRep("pkg_state"), rsRep("dlocked"), NULL, NULL, NULL, NULL )%></td>
655 
			<%If rsRep("dlocked") = "Y" Then%>
656 
		    	<td align="center" class="form_item"><img src='images/i_locked.gif' width='7' height='10' hspace='6'></td>
657 
			<%Else%>
658 
		    	<td align="center" class="form_item"><img src='images/spacer.gif' width='7' height='10' hspace='6'></td>
659 
			<%End If%>
660 
	        <td nowrap class="body_row"><%=rsRep("pkg_name") &" "& rsRep("pkg_version")%></td>
661 
	        <td nowrap><a href="mailto:<%=rsRep("owner_email")%>" class="txt_linked"><%=rsRep("owner")%></a>&nbsp;&nbsp;&nbsp;</td>
662 
			<td nowrap><a href="mailto:<%=rsRep("modifier_email")%>" class="txt_linked"><%=rsRep("modifier")%></a>&nbsp;&nbsp;&nbsp;</td>
663 
	        <td class="body_row"><%=EuroDate( rsRep("insert_stamp") )%></td>
664 
			<td class="body_row"></td>
665 
	      </tr>
666 
	  <%  rsRep.MoveNext
667 
	  WEnd
668 
	  %>
669 
	  <tr>
670 
        <td colspan="8" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
671 
      </tr>
672 
    </table>
673 
	<!-- PRINT, SAVE, ETC. ------------>
674 
	<%If parPrint = "" Then%>
675 
	<br>
676 
	<br>
677 
	<a href="javascript:;" onClick="window.print();" class="txt_linked"><img src="images/btn_print.gif" width="23" height="24" hspace="4" border="0" align="absmiddle">Print this report</a><br>
678 
	<br>
679 
	<%End If%>
680 
	<!-- PRINT, SAVE, ETC. END -------->
681 
	<%
682 
		rsRep.Close
683 
		Set rsRep = nothing
684 
	End If
685 
 
686 
End Sub
687 
%>
688 
<%
689 
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
690 
'==================================================================================
691 
' Report Name		: 	Find ClearQuest Bugs / Issues Location
692 
' Description		:	Locates bugs / issues imported from ClearQuest
693 
' Form Input		:	CQ issue Database, CQ issue number list space separated
694 
'==================================================================================
695 
Sub Where_Are_Bugs_Located ( SSsection, NNiss_db, SSiss_num_list )
696 
	Dim Query_String, rsRep
697 
 
698 
	If SSsection = "TITLE" Then
699 
		Response.write "Find ClearQuest Bugs / Issues Location"
700 
		Exit Sub
701 
	End If
702 
 
703 
 
704 
	If SSsection = "FORM" Then
705 
	%>
706 
	<table width="100%" border="0" cellpadding="2" cellspacing="1">
707 
	  <form action="<%=scriptName%>" method="post" name="repform" onSubmit="MM_validateForm('FRiss_num_list','Issue Number','R');return document.MM_returnValue">
708 
      <tr>
709 
        <td width="1%" nowrap class="form_field"><img src="images/spacer.gif" width="30" height="8"></td>
710 
        <td width="1%" align="right" nowrap class="form_field" valign="top">ClearQuest Database</td>
711 
        <td width="100%">
712 
		<select name="FRiss_db" class="form_item">
713 
			<option value="<%=enumCLEARQUEST_DEVI_ID%>" <%If CDbl(NNiss_db) = enumCLEARQUEST_DEVI_ID Then%>selected<%End If%>>DEVI</option>
714 
			<option value="<%=enumCLEARQUEST_TDSE_ID%>" <%If CDbl(NNiss_db) = enumCLEARQUEST_TDSE_ID Then%>selected<%End If%>>TDSE</option>
715 
        </select>
716 
		</td>
717 
      </tr>
718 
      <tr>
719 
        <td nowrap class="form_field">&nbsp;</td>
720 
        <td align="right" nowrap class="form_field" valign="top">Issue Numbers</td>
721 
        <td class="form_txt"><input type="text" name="FRiss_num_list" size="50" class="form_item" value="<%=SSiss_num_list%>"><br>
722 
		HINTS:<br>
723 
		- You can use * wildcard. e.g. *0123 or 0123* or *0123*<br>
724 
		- Use space separated issue numbers for multiple search.</td>
725 
      </tr>
726 
      <tr>
727 
        <td nowrap class="form_field">&nbsp;</td>
728 
        <td align="right" nowrap class="form_field">&nbsp;</td>
729 
        <td><br>
730 
			<input type="hidden" name="group" value="<%=parGroup%>">
731 
			<input type="hidden" name="repnum" value="<%=parRepNum%>">
732 
			<input type="hidden" name="action" value="true">
733 
		<input name="Submit" type="submit" class="form_btn" value="Submit">
734 
        </td>
735 
      </tr>
736 
	  </form>
737 
    </table>
738 
	<%	Exit Sub
739 
	End If
740 
 
741 
 
742 
	If SSsection = "BODY" Then
743 
		If NOT CBool(Request("action")) Then Exit Sub
744 
 
745 
		Dim SSsql, issARR, num_item, iss_num_col, issNumDict, rsCQ, recCount, maxRecCount
746 
		Set rsCQ = Server.CreateObject("ADODB.Recordset")
747 
		Set issNumDict = CreateObject("Scripting.Dictionary")
748 
 
749 
 
750 
		'---- Find Issue numbers in ClearQuest ----
751 
		If CDbl(NNiss_db) = enumCLEARQUEST_MASSI_ID Then
752 
			iss_num_col = "new_num"
753 
			SSsql = _
754 
			" SELECT si.dbid AS iss_id, si."& iss_num_col &" AS iss_num"&_
755 
			" FROM MASSI.admin.software_issue si"&_
756 
			" WHERE "
757 
 
758 
 
759 
		ElseIf CDbl(NNiss_db) = enumCLEARQUEST_DPGIM_ID Then
760 
			iss_num_col = "new_num"
761 
			SSsql = _
762 
			" SELECT si.dbid AS iss_id, si."& iss_num_col &" AS iss_num"&_
763 
			" FROM DPGIM.admin.software_issue si"&_
764 
			" WHERE "
765 
 
766 
 
767 
		ElseIf CDbl(NNiss_db) = enumCLEARQUEST_DEVI_ID Then
768 
			iss_num_col = "new_num"
769 
			SSsql = _
770 
			" SELECT si.dbid AS iss_id, si."& iss_num_col &" AS iss_num"&_
771 
			" FROM DEVI_PROD.admin.software_issue si"&_
772 
			" WHERE "
773 
 
774 
 
775 
		ElseIf CDbl(NNiss_db) = enumCLEARQUEST_TDSE_ID Then
776 
			iss_num_col = "job_number"
777 
			SSsql = _
778 
			" SELECT dbid AS iss_id, si."& iss_num_col &" AS iss_num"&_
779 
			" FROM TDSE_2002.admin.request si"&_
780 
			" WHERE "
781 
 
782 
		End If
783 
 
784 
 
785 
		'---- Split multiple search ----
786 
		SSiss_num_list = Trim(SSiss_num_list)
787 
		If InStr( SSiss_num_list, " " ) > 0 Then
788 
			' space separator found
789 
			issARR = Split ( SSiss_num_list, " ")
790 
 
791 
			For Each num_item In issARR
792 
				If num_item <> "" Then
793 
					SSsql = SSsql & " (si."& iss_num_col &" LIKE '"& Replace( SQLstring(num_item), "*", "%" ) &"') OR"
794 
				End If
795 
			Next
796 
 
797 
			SSsql = Left ( SSsql, Len(SSsql) - 2 )		' Removes last OR
798 
 
799 
		Else
800 
			SSsql = SSsql & " (si."& iss_num_col &" LIKE '"& Replace( SQLstring(SSiss_num_list), "*", "%") &"')"
801 
 
802 
		End If
803 
 
804 
		rsCQ.ActiveConnection = CQ_conn
805 
		rsCQ.Source = SSsql
806 
		rsCQ.CursorType = 0
807 
		rsCQ.CursorLocation = 2
808 
		rsCQ.LockType = 3
809 
		rsCQ.Open()
810 
 
811 
		' Get find results from CQ
812 
		recCount = 1
813 
		maxRecCount = 1000
814 
		issNumDict.ADD "-1", "-1"		' take care of no results
815 
		While ((NOT rsCQ.BOF) AND (NOT rsCQ.EOF) AND (recCount < maxRecCount))
816 
			issNumDict.ADD Cstr(rsCQ("iss_id")), Cstr(rsCQ("iss_num"))
817 
			recCount = recCount + 1
818 
			rsCQ.MoveNext
819 
		WEnd
820 
 
821 
		rsCQ.Close
822 
		Set rsCQ = nothing
823 
 
824 
		Query_String = ReadFile( rootPath & "queries\rep_where_are_bugs_located.sql" )
825 
		Query_String = Replace ( Query_String, "/*ISS_DB*/", NNiss_db )
826 
		Query_String = Replace ( Query_String, "/*ISS_ID_LIST*/", Join( issNumDict.Keys, ",") )
827 
 
828 
	%>
829 
	<table width="100%" border="0" cellspacing="0" cellpadding="2">
830 
      <tr>
831 
        <td width="1%" nowrap class="body_colb">Issue Number&nbsp;&nbsp;&nbsp;</td>
832 
		<td width="1%" nowrap class="body_colb">Fixed At</td>
833 
        <td width="1%" nowrap class="body_colb">Package Name and Version&nbsp;&nbsp;&nbsp;</td>
834 
        <td width="1%" nowrap class="body_colb">Notes&nbsp;&nbsp;&nbsp;</td>
835 
        <td width="100%" nowrap class="body_colb">&nbsp;</td>
836 
      </tr>
837 
      <tr>
838 
        <td colspan="5" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
839 
      </tr>
840 
	   <%
841 
	  Dim currIss_id
842 
	  currIss_id = -1
843 
	  Set rsRep = OraDatabase.DbCreateDynaset( Query_String, 0 )
844 
 
845 
	  If rsRep.RecordCount = 0 Then
846 
	  	With Response
847 
			.write "<tr>"
848 
			.write "<td colspan='5' class='body_row'>Found 0 records</td>"
849 
			.write "</tr>"
850 
		End With
851 
	  End If
852 
 
853 
	  While ((NOT rsRep.BOF) AND (NOT rsRep.EOF))
854 
		  ' -------- GROUP BY ISS_ID -----------------
855 
		  If Cstr(currIss_id) <> Cstr(rsRep("iss_id")) Then
856 
		  %>
857 
		  <tr>
858 
	        <td colspan="4" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
859 
	        <td></td>
860 
	      </tr>
861 
	      <tr>
862 
	        <td nowrap><a href="javascript:;" onClick="MM_openBrWindow('_wform_issues_details.asp?iss_db=<%=NNiss_db%>&iss_id=<%= rsRep("iss_id")%>','IssueDetails','resizable=yes,width=580,height=500')" class="body_scol"><img src="images/i_drill_down.gif" width="12" height="14" hspace="3" border="0" align="absmiddle" alt="See issue details."><%=issNumDict.Item ( Cstr ( rsRep("iss_id") ) )%></a></td>
863 
			<td colspan='4' class="body_scol"></td>
864 
	      </tr>
865 
		  <%
866 
		  	currIss_id = Cstr(rsRep("iss_id"))
867 
		  End If
868 
		  ' -------- END GROUP ------------------------
869 
		  %>
870 
	      <tr>
871 
		  	<td class="body_row"></td>
872 
			<%If CDbl(rsRep("iss_state")) = enumISSUES_STATE_FIXED Then%>
873 
		    	<td align="right"><img src="images/i_tick.gif" width="7" height="7" hspace="6"></td>
874 
			<%Else%>
875 
		    	<td align="right"><img src='images/spacer.gif' width='7' height='7' hspace='6'></td>
876 
			<%End If%>
877 
	        <td nowrap class="body_row" valign="top"><a href="rep_find_package.asp?<%="group=Advanced_Search&repnum=4&action=true&FRpkg_name="& rsRep("pkg_name") &"&FRv_ext="& rsRep("v_ext")%>" class="txt_linked"><%=rsRep("pkg_name") &" "& rsRep("pkg_version")%><img src="images/i_drill_down.gif" width="12" height="14" hspace="3" border="0" align="absmiddle" alt="Find this package."></a></td>
878 
	        <td nowrap><%=rsRep("notes")%></td>
879 
			<td class="body_row"></td>
880 
	      </tr>
881 
	  <%  rsRep.MoveNext
882 
	  WEnd
883 
	  %>
884 
	  <tr>
885 
        <td colspan="8" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
886 
      </tr>
887 
    </table>
888 
	<!-- PRINT, SAVE, ETC. ------------>
889 
	<%If parPrint = "" Then%>
890 
	<br>
891 
	<br>
892 
	<a href="javascript:;" onClick="window.print();" class="txt_linked"><img src="images/btn_print.gif" width="23" height="24" hspace="4" border="0" align="absmiddle">Print this report</a><br>
893 
	<br>
894 
	<%End If%>
895 
	<!-- PRINT, SAVE, ETC. END -------->
896 
	<%
897 
		rsRep.Close
898 
		Set rsRep = nothing
899 
	End If
900 
 
901 
End Sub
902 
%>
903 
<%
904 
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
905 
'==================================================================================
906 
' Report Name		: 	Find a Package
25 rsolanki 907 
' Description		:	Locate a package/product in Deployment Manager
13 rsolanki 908 
' Form Input		:	Package Name, version extension
909 
'==================================================================================
910 
Sub Find_Package ( SSsection, SSpkg_name, SSv_ext )
911 
	Dim Query_String, rsRep, oRegExp
912 
 
913 
 
914 
	If SSsection = "TITLE" Then
25 rsolanki 915 
		Response.write "Find a Product"
13 rsolanki 916 
		Exit Sub
917 
	End If
918 
 
919 
 
920 
	If SSsection = "FORM" Then
921 
	%>
922 
	<table width="100%" border="0" cellpadding="2" cellspacing="1">
923 
	  <form action="<%=scriptName%>" method="post" name="repform" onSubmit="MM_validateForm('FRpkg_name','Package Name','R');return document.MM_returnValue">
924 
      <tr>
925 
        <td width="1%" nowrap class="form_field"><img src="images/spacer.gif" width="1" height="8"></td>
25 rsolanki 926 
        <td width="1%" align="right" nowrap class="form_field" valign="top">Product Name</td>
13 rsolanki 927 
        <td class="form_txt"><input type="text" name="FRpkg_name" size="30" class="form_item" value="<%=SSpkg_name%>"><br>
928 
		HINTS:<br>
25 rsolanki 929 
		- You can use * wildcard. e.g. *sec or port* or *pkgmnt*<br><br></td>
13 rsolanki 930 
      </tr>
931 
      <tr>
932 
        <td nowrap class="form_field">&nbsp;</td>
933 
        <td align="right" nowrap class="form_field" valign="top">Version Extension (optional)</td>
934 
        <td class="form_txt"><input type="text" name="FRv_ext" size="10" class="form_item" value="<%=SSv_ext%>"><br>
935 
		e.g. .mas or .lvs or .oso or blank etc.</td>
936 
      </tr>
937 
      <tr>
938 
        <td nowrap class="form_field">&nbsp;</td>
939 
        <td align="right" nowrap class="form_field">&nbsp;</td>
940 
        <td><br>
941 
		<input type="hidden" name="group" value="<%=parGroup%>">
942 
		<input type="hidden" name="repnum" value="<%=parRepNum%>">
943 
		<input type="hidden" name="action" value="true">
944 
		<input name="Submit" type="submit" class="form_btn" value="Submit">
945 
        </td>
946 
      </tr>
947 
	  </form>
948 
    </table>
949 
	<%	Exit Sub
950 
	End If
951 
 
952 
 
953 
	If SSsection = "BODY" Then
954 
		If NOT CBool(Request("action")) Then Exit Sub
955 
 
956 
		If SSpkg_name = "" Then SSpkg_name = "%"
957 
		If SSv_ext = "" Then SSv_ext = "%"
958 
		If Request("withwcard") <> "" Then SSpkg_name = "%"& Replace( SQLstring(SSpkg_name), "*", "") &"%"		'Place wild card automatically
959 
 
960 
 
961 
 
962 
		' -- Check if this is PV_ID
963 
		Set oRegExp = New RegExp
964 
 
965 
		oRegExp.Global = False	'Find only first match
966 
	    oRegExp.Pattern = "\D" 'Match number only
967 
 
968 
 
969 
		If NOT oRegExp.Test(Request("FRpkg_name")) Then
970 
			Query_String = ReadFile( rootPath & "queries\rep_find_package_by_pv_id.sql" )
971 
			Query_String = Replace ( Query_String, "/*PV_ID*/", SQLstring(Request("FRpkg_name") )  )
972 
 
973 
		Else
974 
			Query_String = ReadFile( rootPath & "queries\rep_find_package.sql" )
975 
			Query_String = Replace ( Query_String, "/*PKG_NAME*/", Replace( SQLstring(SSpkg_name), "*", "%") )
976 
			Query_String = Replace ( Query_String, "/*V_EXT*/", Replace( SQLstring(SSv_ext), "*", "%") )
977 
		End If
978 
	%>
979 
	<table width="100%" border="0" cellspacing="0" cellpadding="2">
980 
      <tr>
25 rsolanki 981 
        <td width="1%" nowrap class="body_colb">Product Name and Version&nbsp;&nbsp;&nbsp;</td>
13 rsolanki 982 
		<td width="1%" nowrap class="body_colb">Location</td>
983 
        <td width="100%" nowrap class="body_colb">&nbsp;</td>
984 
      </tr>
985 
      <tr>
986 
        <td colspan="3" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
987 
      </tr>
988 
	   <%
989 
	  Dim currPv_id
990 
	  currPv_id = -1
991 
	  Set rsRep = OraDatabase.DbCreateDynaset( Query_String, 0 )
992 
 
993 
	  If rsRep.RecordCount = 0 Then
994 
	  	With Response
995 
			.write "<tr>"
996 
			.write "<td colspan='3' class='body_row'>Found 0 records</td>"
997 
			.write "</tr>"
998 
		End With
999 
	  End If
1000 
 
1001 
	  While ((NOT rsRep.BOF) AND (NOT rsRep.EOF))
1002 
		  ' -------- GROUP BY Package Version -----------------
1003 
		  If Cstr(currPv_id) <> Cstr(rsRep("pv_id")) Then
1004 
		  %>
1005 
	      <tr>
1006 
	        <td colspan="2" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
1007 
	        <td></td>
1008 
	      </tr>
1009 
		  <tr>
1010 
		    <%If Request("withwcard") <> "" Then%>
1011 
			<%' Highlight results for package search from index page%>
1012 
	        <td nowrap class="body_scol"><%=Highlight_Substring ( rsRep("pkg_name"), Replace( SQLstring(SSpkg_name), "%", "") )  &" "& rsRep("pkg_version")%></td>
1013 
			<%Else%>
1014 
			<td nowrap class="body_scol"><%=rsRep("pkg_name") &" "& rsRep("pkg_version")%></td>
1015 
			<%End If%>
1016 
			<td colspan='2' class="body_scol"></td>
1017 
	      </tr>
1018 
		  <%
1019 
		  	currPv_id = Cstr(rsRep("pv_id"))
1020 
		  End If
1021 
		  ' -------- END GROUP ------------------------
1022 
		  %>
1023 
		  <%If NOT IsNull(rsRep("proj_name")) Then%>
1024 
	      <tr>
1025 
		  	<td class="body_row"></td>
25 rsolanki 1026 
	        <td nowrap class="body_row" valign="top"><%=rsRep("proj_name") &" &gt; "& rsRep("branch_name") &" &gt; "& rsRep("bom_name") &" "& rsRep("version") &" &gt;"& rsRep("node_name") &" &gt;"& rsRep("os_name") &" &gt;<a href='OsDefault.asp?bom_id="& rsRep("bom_id") &"&os_id="& rsRep("os_id") &"' class='txt_linked'>"& rsRep("pkg_name") &" "& rsRep("pkg_version") &"</a>"%></td>
13 rsolanki 1027 
			<td class="body_row"></td>
1028 
	      </tr>
1029 
		  <%Else%>
1030 
		  <tr>
1031 
		  	<td class="body_row"></td>
1032 
	        <td class="body_row"></td>
1033 
			<td class="body_row"></td>
1034 
	      </tr>
1035 
		  <%End If%>
1036 
	  <%  rsRep.MoveNext
1037 
	  WEnd
1038 
	  %>
1039 
	  <tr>
1040 
        <td colspan="3" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
1041 
      </tr>
1042 
    </table>
1043 
	<!-- PRINT, SAVE, ETC. ------------>
1044 
	<%If parPrint = "" Then%>
1045 
	<br>
1046 
	<br>
1047 
	<a href="javascript:;" onClick="window.print();" class="txt_linked"><img src="images/btn_print.gif" width="23" height="24" hspace="4" border="0" align="absmiddle">Print this report</a><br>
1048 
	<br>
1049 
	<%End If%>
1050 
	<!-- PRINT, SAVE, ETC. END -------->
1051 
	<%
25 rsolanki 1052 
		rsRep.Close()
13 rsolanki 1053 
		Set rsRep = nothing
1054 
	End If
1055 
 
1056 
End Sub
1057 
%>
1058 
<%
1059 
'==================================================================================
1060 
' Report Name		: 	Find Package Version History
1061 
' Description		:	Locate all package versions and their current location
1062 
' Form Input		:	Package Name, version extension
1063 
'==================================================================================
1064 
Sub Find_Package_Version_History ( SSsection, SSpkg_name, SSv_ext )
1065 
	Dim Query_String, rsRep
1066 
 
1067 
 
1068 
	If SSsection = "TITLE" Then
1069 
		Response.write "Find Package Version History"
1070 
		Exit Sub
1071 
	End If
1072 
 
1073 
 
1074 
	If SSsection = "FORM" Then
1075 
	%>
1076 
	<table width="100%" border="0" cellpadding="2" cellspacing="1">
1077 
	  <form action="<%=scriptName%>" method="post" name="repform" onSubmit="MM_validateForm('FRpkg_name','Package Name','R');return document.MM_returnValue">
1078 
      <tr>
1079 
        <td width="1%" nowrap class="form_field"><img src="images/spacer.gif" width="1" height="8"></td>
1080 
        <td width="1%" align="right" nowrap class="form_field" valign="top">Package Name</td>
1081 
        <td class="form_txt"><input type="text" name="FRpkg_name" size="30" class="form_item" value="<%=SSpkg_name%>"><br>
1082 
		HINTS:<br>
1083 
		- You can use * wildcard. e.g. *0123 or 0123* or *0123*<br><br></td>
1084 
      </tr>
1085 
      <tr>
1086 
        <td nowrap class="form_field">&nbsp;</td>
1087 
        <td align="right" nowrap class="form_field" valign="top">Version Extension (optional)</td>
1088 
        <td class="form_txt"><input type="text" name="FRv_ext" size="10" class="form_item" value="<%=SSv_ext%>"><br>
1089 
		e.g. .mas or .lvs or .oso or blank etc.</td>
1090 
      </tr>
1091 
      <tr>
1092 
        <td nowrap class="form_field">&nbsp;</td>
1093 
        <td align="right" nowrap class="form_field">&nbsp;</td>
1094 
        <td><br>
1095 
		<input type="hidden" name="group" value="<%=parGroup%>">
1096 
		<input type="hidden" name="repnum" value="<%=parRepNum%>">
1097 
		<input type="hidden" name="action" value="true">
1098 
		<input name="Submit" type="submit" class="form_btn" value="Submit">
1099 
        </td>
1100 
      </tr>
1101 
	  </form>
1102 
    </table>
1103 
	<%	Exit Sub
1104 
	End If
1105 
 
1106 
 
1107 
	If SSsection = "BODY" Then
1108 
		Const img_Official = "<img src='images/i_locked.gif' width='7' height='10' hspace='3' align='absmiddle'>"
1109 
		If NOT CBool(Request("action")) Then Exit Sub
1110 
 
1111 
		If SSpkg_name = "" Then SSpkg_name = "%"
1112 
		If SSv_ext = "" Then SSv_ext = "%"
1113 
 
1114 
		Query_String = ReadFile( rootPath & "queries\rep_package_version_history.sql" )
1115 
		Query_String = Replace ( Query_String, "/*PKG_NAME*/", Replace( SQLstring(SSpkg_name), "*", "%") )
1116 
		Query_String = Replace ( Query_String, "/*V_EXT*/", Replace( SQLstring(SSv_ext), "*", "%") )
1117 
	%>
1118 
	<table width="100%" border="0" cellspacing="0" cellpadding="2">
1119 
      <tr>
1120 
	    <td width="1%" nowrap class="body_colb" align="right">Official<%=img_Official%></td>
1121 
        <td width="1%" nowrap class="body_colb">Package Name and Version&nbsp;&nbsp;&nbsp;</td>
1122 
		<td width="1%" nowrap class="body_colb">Location</td>
1123 
        <td width="100%" nowrap class="body_colb">&nbsp;</td>
1124 
      </tr>
1125 
      <tr>
1126 
        <td colspan="4" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
1127 
      </tr>
1128 
	   <%
1129 
	  Dim currPv_id
1130 
	  currPv_id = -1
1131 
	  Set rsRep = OraDatabase.DbCreateDynaset( Query_String, 0 )
1132 
 
1133 
	  If rsRep.RecordCount = 0 Then
1134 
	  	With Response
1135 
			.write "<tr>"
1136 
			.write "<td colspan='4' class='body_row'>Found 0 records</td>"
1137 
			.write "</tr>"
1138 
		End With
1139 
	  End If
1140 
 
1141 
	  While ((NOT rsRep.BOF) AND (NOT rsRep.EOF))
1142 
		  ' -------- GROUP BY Package Version -----------------
1143 
		  If Cstr(currPv_id) <> Cstr(rsRep("pv_id")) Then
1144 
		  %>
1145 
	      <tr>
1146 
	        <td colspan="3" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
1147 
	        <td></td>
1148 
	      </tr>
1149 
		  <tr>
1150 
		    <td align="right"><%If rsRep("dlocked") = "Y" Then%><%=img_Official%><%End If%></td>
1151 
	        <td nowrap class="body_scol"><%=rsRep("pkg_name") &" "& rsRep("pkg_version")%></td>
1152 
			<td colspan='2' class="body_scol"></td>
1153 
	      </tr>
1154 
		  <%
1155 
		  	currPv_id = Cstr(rsRep("pv_id"))
1156 
		  End If
1157 
		  ' -------- END GROUP ------------------------
1158 
		  %>
1159 
	      <tr>
1160 
		    <td class="body_row"></td>
1161 
		  	<td class="body_row"></td>
1162 
			<%If IsNull(rsRep("rtag_id")) Then%>
1163 
	        	<td nowrap class="body_txt_gray" valign="top">Not Used!</td>
1164 
			<%Else%>
1165 
				<td nowrap class="body_row" valign="top"><%=rsRep("proj_name") &" &gt; "& rsRep("vtree_name") &" &gt; "& rsRep("rtag_name") &" &gt; <a href='dependencies.asp?pv_id="& rsRep("pv_id") &"&rtag_id="& rsRep("rtag_id") &"' class='txt_linked'>"& rsRep("pkg_name") &" "& rsRep("pkg_version") &"</a>"%></td>
1166 
			<%End If%>
1167 
			<td class="body_row"></td>
1168 
	      </tr>
1169 
	  <%  rsRep.MoveNext
1170 
	  WEnd
1171 
	  %>
1172 
	  <tr>
1173 
        <td colspan="4" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
1174 
      </tr>
1175 
    </table>
1176 
	<!-- PRINT, SAVE, ETC. ------------>
1177 
	<%If parPrint = "" Then%>
1178 
	<br>
1179 
	<br>
1180 
	<a href="javascript:;" onClick="window.print();" class="txt_linked"><img src="images/btn_print.gif" width="23" height="24" hspace="4" border="0" align="absmiddle">Print this report</a><br>
1181 
	<br>
1182 
	<%End If%>
1183 
	<!-- PRINT, SAVE, ETC. END -------->
1184 
	<%
1185 
		rsRep.Close
1186 
		Set rsRep = nothing
1187 
	End If
1188 
 
1189 
End Sub
1190 
%>
1191 
<%
1192 
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
1193 
'==================================================================================
1194 
' Report Name		: 	Obsolete Packages
1195 
' Description		:	List packages that are not used (exclude products)
1196 
' INPUT				:	Project, Vesion Tree, Release Label
1197 
'==================================================================================
1198 
Sub Obsolete_Packages ( SSsection, NNproj_id, NNrtag_id )
1199 
	Dim Query_String, rsRep
1200 
	Const Allow_All = TRUE
1201 
	Const Disallow_All = FALSE
1202 
 
1203 
	If NNproj_id = "" Then NNproj_id = -1
1204 
	If NNrtag_id = "" Then NNrtag_id = -1
1205 
 
1206 
	If SSsection = "TITLE" Then
1207 
		Response.write "Unused Packages"
1208 
		Exit Sub
1209 
	End If
1210 
 
1211 
 
1212 
	If SSsection = "FORM" Then
1213 
	%>
1214 
	<table width="100%" border="0" cellpadding="2" cellspacing="1">
1215 
	  <form action="<%=scriptName%>" method="post" name="repform" onSubmit="MM_validateForm('FRproj_id','Project','R','FRvtree_id','Version Tree','R','FRrtag_id','Release','R');return document.MM_returnValue">
1216 
      <tr>
1217 
        <td width="1%" nowrap class="form_field"><img src="images/spacer.gif" width="30" height="8"></td>
1218 
        <td width="1%" align="right" nowrap class="form_field">Project</td>
1219 
        <td width="100%"><%Call Get_Projects( NNproj_id, Disallow_All )%></td>
1220 
      </tr>
1221 
      <tr>
1222 
        <td nowrap class="form_field">&nbsp;</td>
1223 
        <td align="right" nowrap class="form_field">Release</td>
1224 
        <td><%Call Get_Release_Labels ( NNproj_id, NNrtag_id, Disallow_All )%></td>
1225 
      </tr>
1226 
      <tr>
1227 
        <td nowrap class="form_field">&nbsp;</td>
1228 
        <td align="right" nowrap class="form_field">&nbsp;</td>
1229 
        <td><br>
1230 
			<input type="hidden" name="group" value="<%=parGroup%>">
1231 
			<input type="hidden" name="repnum" value="<%=parRepNum%>">
1232 
			<input type="hidden" name="action" value="true">
1233 
		<input name="Submit" type="submit" class="form_btn" value="Submit">
1234 
        </td>
1235 
      </tr>
1236 
	  </form>
1237 
    </table>
1238 
	<%	Exit Sub
1239 
	End If
1240 
 
1241 
 
1242 
	If SSsection = "BODY" Then
1243 
		If NOT CBool(Request("action")) Then Exit Sub
1244 
 
1245 
		Query_String = ReadFile( rootPath & "queries\rep_obsolete_packages.sql" )
1246 
 
1247 
		OraDatabase.Parameters.Add "RTAG_ID", NNrtag_id, ORAPARM_INPUT, ORATYPE_NUMBER
1248 
	%>
1249 
	<table width="100%" border="0" cellspacing="0" cellpadding="2">
1250 
      <tr>
1251 
	    <td width="1%" nowrap class="body_colb">&nbsp;</td>
1252 
        <td width="1%" nowrap class="body_colb">Package Name and Version&nbsp;&nbsp;&nbsp;</td>
1253 
		<td width="1%" nowrap class="body_colb">Released&nbsp;&nbsp;&nbsp;</td>
1254 
		<td width="1%" nowrap class="body_colb">Added to Release&nbsp;&nbsp;&nbsp;</td>
1255 
        <td width="100%" nowrap class="body_colb">&nbsp;</td>
1256 
      </tr>
1257 
      <tr>
1258 
        <td colspan="5" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
1259 
      </tr>
1260 
	   <%
1261 
	  Dim currView_id
1262 
	  currView_id = -1
1263 
	  Set rsRep = OraDatabase.DbCreateDynaset( Query_String, 0 )
1264 
 
1265 
	  If rsRep.RecordCount = 0 Then
1266 
	  	With Response
1267 
			.write "<tr>"
1268 
			.write "<td colspan='5' class='body_row'>Found 0 records</td>"
1269 
			.write "</tr>"
1270 
		End With
1271 
	  End If
1272 
 
1273 
	  While ((NOT rsRep.BOF) AND (NOT rsRep.EOF))
1274 
		  ' -------- GROUP BY BASE VIEW  -----------------
1275 
		  If CDbl(currView_id) <> CDbl(rsRep("view_id")) Then
1276 
		  %>
1277 
	      <tr>
1278 
	        <td colspan="4" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
1279 
	        <td></td>
1280 
	      </tr>
1281 
		  <tr>
1282 
	        <td nowrap class="body_scol"><%=rsRep("view_name")%></td>
1283 
			<td class="body_scol"></td>
1284 
			<td class="body_scol"></td>
1285 
			<td class="body_scol"></td>
1286 
			<td class="body_scol"></td>
1287 
	      </tr>
1288 
		  <%
1289 
		  	currView_id = CDbl(rsRep("view_id"))
1290 
		  End If
1291 
		  ' -------- END GROUP ------------------------
1292 
		  %>
1293 
	      <tr>
1294 
		  	<td class="body_row"></td>
1295 
	        <td nowrap class="body_row"><a href="used_by.asp?pv_id=<%=rsRep("pv_id")%>&rtag_id=<%=NNrtag_id%>" class="txt_linked"><%=rsRep("pkg_name") &" "& rsRep("pkg_version")%></a></td>
1296 
	        <td nowrap class="body_row"><%=EuroDate( rsRep("modified_stamp") )%> by <a href="mailto:<%=rsRep("modifier_email")%>" class="txt_linked"><%=rsRep("modifier")%></a>&nbsp;&nbsp;&nbsp;</td>
1297 
			<td nowrap class="body_row"><%=EuroDate( rsRep("insert_stamp") )%> by <a href="mailto:<%=rsRep("insertor_email")%>" class="txt_linked"><%=rsRep("insertor")%></a>&nbsp;&nbsp;&nbsp;</td>
1298 
			<td class="body_row"></td>
1299 
	      </tr>
1300 
	  <%  rsRep.MoveNext
1301 
	  WEnd
1302 
	  %>
1303 
	  <tr>
1304 
        <td colspan="5" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
1305 
      </tr>
1306 
    </table>
1307 
	<!-- PRINT, SAVE, ETC. ------------>
1308 
	<%If parPrint = "" Then%>
1309 
	<br>
1310 
	<br>
1311 
	<a href="javascript:;" onClick="window.print();" class="txt_linked"><img src="images/btn_print.gif" width="23" height="24" hspace="4" border="0" align="absmiddle">Print this report</a><br>
1312 
	<br>
1313 
	<%End If%>
1314 
	<!-- PRINT, SAVE, ETC. END -------->
1315 
	<%
1316 
		rsRep.Close
1317 
		Set rsRep = nothing
1318 
	End If
1319 
 
1320 
End Sub
1321 
%>
1322 
<%
1323 
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
1324 
'==================================================================================
1325 
' Report Name		: 	Deployable Software Modules
1326 
' Description		:	Shows packages that are deployed to the customers and shows new packages marked as deployable.
1327 
' INPUT				:	Project, Vesion Tree, Release Label, Base View (hard-coded to PRODUCTS)
1328 
'==================================================================================
1329 
Sub Deployable_Software_Modules ( sSection, nProj_id,  nRtag_id, nBase_view_id )
1330 
	Dim Query_String, rsRep
1331 
	Const Allow_All = TRUE
1332 
	Const Disallow_All = FALSE
1333 
 
1334 
	If nProj_id = "" Then nProj_id = -1
1335 
	If nRtag_id = "" Then nRtag_id = -1
1336 
 
1337 
	If sSection = "TITLE" Then
1338 
		Response.write "Deployable Software Modules"
1339 
		Exit Sub
1340 
	End If
1341 
 
1342 
 
1343 
	If sSection = "FORM" Then
1344 
	%>
1345 
	<table width="100%" border="0" cellpadding="2" cellspacing="1">
1346 
	  <form action="<%=scriptName%>" method="post" name="repform" onSubmit="MM_validateForm('FRproj_id','Project','R','FRvtree_id','Version Tree','R','FRrtag_id','Release','R');return document.MM_returnValue">
1347 
      <tr>
1348 
        <td width="1%" nowrap class="form_field"><img src="images/spacer.gif" width="30" height="8"></td>
1349 
        <td width="1%" align="right" nowrap class="form_field">Project</td>
1350 
        <td width="100%"><%Call Get_Projects( nProj_id, Disallow_All )%></td>
1351 
      </tr>
1352 
      <tr>
1353 
        <td nowrap class="form_field">&nbsp;</td>
1354 
        <td align="right" nowrap class="form_field">Release</td>
1355 
        <td><%Call Get_Release_Labels ( nProj_id, nRtag_id, Disallow_All )%></td>
1356 
      </tr>
1357 
	  <tr>
1358 
        <td nowrap class="form_field">&nbsp;</td>
1359 
        <td align="right" nowrap class="form_field">Base View</td>
1360 
        <td><select name="noname" class='form_item' disabled>
1361 
				<option>PRODUCTS</option>
1362 
		    </select></td>
1363 
      </tr>
1364 
      <tr>
1365 
        <td nowrap class="form_field">&nbsp;</td>
1366 
        <td align="right" nowrap class="form_field">&nbsp;</td>
1367 
        <td><br>
1368 
			<input type="hidden" name="group" value="<%=parGroup%>">
1369 
			<input type="hidden" name="repnum" value="<%=parRepNum%>">
1370 
			<input type="hidden" name="FRbase_view_id" value="<%=enumBASE_VIEW_PRODUCTS%>">
1371 
			<input type="hidden" name="action" value="true">
1372 
		<input name="Submit" type="submit" class="form_btn" value="Submit">
1373 
        </td>
1374 
      </tr>
1375 
	  </form>
1376 
    </table>
1377 
	<%	Exit Sub
1378 
	End If
1379 
 
1380 
 
1381 
	If sSection = "BODY" Then
1382 
		If NOT CBool(Request("action")) Then Exit Sub
1383 
		'--- New Deployable Modules ---
1384 
		Query_String = ReadFile( rootPath & "queries\rep_new_deployable_packages.sql" )
1385 
 
1386 
		OraDatabase.Parameters.Add "RTAG_ID", 		nRtag_id, 		ORAPARM_INPUT, ORATYPE_NUMBER
1387 
		OraDatabase.Parameters.Add "BASE_VIEW_ID", 	nBase_view_id, 	ORAPARM_INPUT, ORATYPE_NUMBER
1388 
	%>
1389 
	<table width="100%"  border="0" cellspacing="0" cellpadding="2">
1390 
      <tr>
1391 
        <td nowrap class="body_colb" colspan="3" background="images/bg_bage.gif">&nbsp;New Deployable Package</td>
1392 
      </tr>
1393 
      <tr>
1394 
        <td background="images/bg_rep_line.gif" colspan="3"><img src="images/spacer.gif" width="1" height="1"></td>
1395 
      </tr>
1396 
	  <tr>
1397 
        <td width="1%" class="body_txt">Package Name</td>
1398 
		<td width="1%" class="body_txt">Version</td>
1399 
		<td width="100%" class="body_txt">Last Modifier</td>
1400 
      </tr>
1401 
	  <tr>
1402 
        <td background="images/bg_rep_line.gif" colspan="3"><img src="images/spacer.gif" width="1" height="1"></td>
1403 
      </tr>
1404 
	  <%
1405 
	  Set rsRep = OraDatabase.DbCreateDynaset( Query_String, 0 )
1406 
	  %>
1407 
	  <%If rsRep.RecordCount = 0 Then%>
1408 
	  <tr>
1409 
        <td nowrap class="body_row" colspan="3">Found 0 records! </td>
1410 
      </tr>
1411 
	  <%End If%>
1412 
	  <%While ((NOT rsRep.BOF) AND (NOT rsRep.EOF))%>
1413 
      <tr>
1414 
        <td nowrap><a href="dependencies.asp?pv_id=<%=rsRep("pv_id")%>&rtag_id=<%=nRtag_id%>" class="txt_linked"><img src="images/i_go2url.gif" width="14" height="14" hspace="3" border="0" align="absmiddle"><%=rsRep("pkg_name")%></a></td>
1415 
		<td nowrap class="body_row"><%=rsRep("pkg_version")%></td>
1416 
		<td nowrap class="body_row"><%=rsRep("full_name")%></td>
1417 
      </tr>
1418 
	  <%rsRep.MoveNext
1419 
	    WEnd
1420 
	  rsRep.Close
1421 
	  Set rsRep = Nothing%>
1422 
	  <tr>
1423 
        <td background="images/bg_rep_line.gif" colspan="3"><img src="images/spacer.gif" width="1" height="1"></td>
1424 
      </tr>
1425 
	  <%
1426 
	  ' Go To Release link...
1427 
	  Query_String = _
1428 
	  " SELECT proj.PROJ_NAME, rt.RTAG_NAME"&_
1429 
	  "   FROM PROJECTS proj,"&_
1430 
	  "		   RELEASE_TAGS rt"&_
1431 
	  "	 WHERE rt.PROJ_ID = proj.proj_id"&_
1432 
	  "	   AND rt.rtag_id = :RTAG_ID"
1433 
	  Set rsRep = OraDatabase.DbCreateDynaset( Query_String, 0 )
1434 
	  %>
1435 
      <tr>
1436 
        <td nowrap class="body_row" colspan="3"><a href="dependencies.asp?rtag_id=<%=nRtag_id%>"><img src="images/i_go2url.gif" width="14" height="14" hspace="3" border="0" align="absmiddle"></a>Go to <a href="dependencies.asp?rtag_id=<%=nRtag_id%>" class="txt_linked"><%=rsRep("proj_name")%> &gt; <%=rsRep("rtag_name")%></a> </td>
1437 
      </tr>
1438 
	  <%
1439 
	  rsRep.Close
1440 
	  Set rsRep = Nothing%>
1441 
    </table>
1442 
	<br><br>
1443 
	<%
1444 
		'--- Current Deployable Modules ---
1445 
		Query_String = ReadFile( rootPath & "queries\rep_current_deployable_packages.sql" )
1446 
	%>
1447 
	<table width="100%"  border="0" cellspacing="0" cellpadding="2">
1448 
      <tr>
1449 
        <td colspan="4" nowrap class="body_colb" background="images/bg_bage.gif">&nbsp;Current Deployable Packages </td>
1450 
      </tr>
1451 
      <tr>
1452 
        <td colspan="4" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
1453 
      </tr>
1454 
	  <%
1455 
	  Dim currPv_id
1456 
	  currPv_id = -1
1457 
	  Set rsRep = OraDatabase.DbCreateDynaset( Query_String, 0 )
1458 
 
1459 
	  If rsRep.RecordCount = 0 Then
1460 
	  	With Response
1461 
			.write "<tr>"
1462 
			.write "<td colspan='4' class='body_row'>Found 0 records</td>"
1463 
			.write "</tr>"
1464 
		End With
1465 
	  End If
1466 
 
1467 
	  While ((NOT rsRep.BOF) AND (NOT rsRep.EOF))
1468 
		  ' -------- GROUP BY PRODUCT NAME  -----------------
1469 
		  If CDbl(currPv_id) <> CDbl(rsRep("pv_id")) Then
1470 
		  %>
1471 
      <tr>
1472 
        <td width="1%" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
1473 
        <td width="1%" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
1474 
		<td width="1%" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
1475 
        <td width="100%"><img src="images/spacer.gif" width="1" height="1"></td>
1476 
      </tr>
1477 
      <tr>
1478 
        <td nowrap><a href="dependencies.asp?pv_id=<%=rsRep("pv_id")%>&rtag_id=<%=nRtag_id%>" class="body_scol"><%=rsRep("pkg_name") &" "& rsRep("pkg_version")%></a></td>
1479 
        <td>&nbsp;</td>
1480 
		<td>&nbsp;</td>
1481 
        <td>&nbsp;</td>
1482 
      </tr>
1483 
	  <%
1484 
		  	currPv_id = CDbl(rsRep("pv_id"))
1485 
		  End If
1486 
		  ' -------- END GROUP ------------------------
1487 
		  %>
1488 
      <tr>
1489 
        <td>&nbsp;</td>
1490 
        <td nowrap><a href="dependencies.asp?pv_id=<%=rsRep("dpv_id")%>&rtag_id=<%=nRtag_id%>" class="txt_linked"><%=rsRep("dpkg_name")%></a></td>
1491 
		<td nowrap class="body_row"><%=rsRep("dpkg_version")%></td>
1492 
        <td nowrap class="err_alert"><%=rsRep("is_dep_deployable")%></td>
1493 
      </tr>
1494 
	  <%  rsRep.MoveNext
1495 
	  WEnd
1496 
	  %>
1497 
      <tr>
1498 
        <td colspan="4" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
1499 
      </tr>
1500 
    </table>
1501 
	<!-- PRINT, SAVE, ETC. ------------>
1502 
	<%If parPrint = "" Then%>
1503 
	<br>
1504 
	<br>
1505 
	<a href="javascript:;" onClick="window.print();" class="txt_linked"><img src="images/btn_print.gif" width="23" height="24" hspace="4" border="0" align="absmiddle">Print this report</a><br>
1506 
	<br>
1507 
	<%End If%>
1508 
	<!-- PRINT, SAVE, ETC. END -------->
1509 
	<%
1510 
		rsRep.Close
1511 
		Set rsRep = nothing
1512 
	End If
1513 
 
1514 
End Sub
1515 
%>
1516 
 
1517 
<%
1518 
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
1519 
'==================================================================================
1520 
' Report Name		: 	Bill Of Materials
1521 
' Description		:	List products for a BOM
1522 
' INPUT				:
1523 
'==================================================================================
1524 
Sub Bill_of_Materials ( SSsection, NNproj_id, NNrtag_id, NNbom_id, NNversion )
1525 
	Dim Query_String, rsRep, rsQry
1526 
	Const Allow_All = TRUE
1527 
	Const Disallow_All = FALSE
1528 
 
1529 
	If NNproj_id = "" Then NNproj_id = -1
1530 
	If NNrtag_id = "" Then NNrtag_id = -1
1531 
	If NNversion = "" Then NNversion = -1
1532 
 
1533 
	If SSsection = "TITLE" Then
17 rsolanki 1534 
		Response.write "BOM - History Track"
13 rsolanki 1535 
		Exit Sub
1536 
	End If
1537 
 
1538 
 
1539 
	If SSsection = "FORM" Then
1540 
	%>
1541 
	<script language="JavaScript" src="images/calendar.js"></script>
1542 
	<table width="100%" border="0" cellpadding="2" cellspacing="1">
17 rsolanki 1543 
	  <form action="" method="post" name="repform" onSubmit="MM_validateForm('FRproj_id','Project','R','FRvtree_id','Version Tree','R','FRrtag_id','Release','R');return document.MM_returnValue">
13 rsolanki 1544 
      <tr>
1545 
        <td width="1%" nowrap class="form_field"><img src="images/spacer.gif" width="30" height="8"></td>
1546 
        <td width="1%" align="right" nowrap class="form_field">Project</td>
1547 
        <td width="100%"><%Call Get_Projects( NNproj_id, Disallow_All )%></td>
1548 
      </tr>
1549 
      <tr>
1550 
        <td nowrap class="form_field">&nbsp;</td>
1551 
        <td align="right" nowrap class="form_field">Release</td>
1552 
        <td><%Call Get_Release_labels ( NNproj_id, NNrtag_id, Disallow_All )%></td>
1553 
      </tr>
1554 
 	  <tr>
1555 
        <td nowrap class="form_field">&nbsp;</td>
1556 
        <td align="right" nowrap class="form_field">SBOM Version</td>
1557 
        <td><%Call Get_SBOM_Version ( NNproj_id, NNrtag_id, Disallow_All, NNversion )%></td>
1558 
      </tr>
1559 
      <tr>
1560 
        <td colspan="3" nowrap class="form_field">Between
1561 
        <input type="text" name="FRinitdate" maxlength="10" size="12" value="<%=Request.Form("FRinitdate")%>">
1562 
		<A onmouseover="window.status='Select a date';return true;" onmouseout="window.status='';return true;" href="javascript:show_calendar('repform.FRinitdate',null,null,null);"><img src="images/i_calendar.gif" width="16" height="16" border="0"></a>
1563 
        And
1564 
        <input type="text" name="FRduedate" maxlength="10" size="12" value="<%=Request.Form("FRduedate")%>">
1565 
        <A onmouseover="window.status='Select a date';return true;" onmouseout="window.status='';return true;" href="javascript:show_calendar('repform.FRduedate',null,null,null);"><img src="images/i_calendar.gif" width="16" height="16" border="0"></a></td>
1566 
		</tr>
1567 
      <tr>
1568 
        <td nowrap class="form_field">&nbsp;</td>
1569 
        <td align="right" nowrap class="form_field">&nbsp;</td>
1570 
        <td><br>
1571 
			<input type="hidden" name="group" value="<%=parGroup%>">
1572 
			<input type="hidden" name="repnum" value="<%=parRepNum%>">
1573 
			<input type="hidden" name="FRrtag_id" value="<%=NNrtag_id%>">
17 rsolanki 1574 
 
13 rsolanki 1575 
			<input type="hidden" name="action" value="true">
1576 
		<input name="Submit" type="submit" class="form_btn" value="Submit">
1577 
        </td>
1578 
      </tr>
1579 
	  </form>
1580 
    </table>
1581 
	<p>
1582 
      <%	Exit Sub
1583 
	End If
1584 
 
1585 
 
1586 
 
1587 
	OraDatabase.Parameters.Add "BRANCH_ID", NNrtag_id, ORAPARM_INPUT, ORATYPE_NUMBER
1588 
	OraDatabase.Parameters.Add "BOM_VERSION", Request("FRVersion"), ORAPARM_INPUT, ORATYPE_STRING
1589 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("rep_SBOM.sql"), cint(0))
1590 
	Dim bomId
1591 
	bomId = rsQry("bom_id")
1592 
	rsQry.close
1593 
	Set rsQry = nothing
1594 
 
1595 
 
1596 
	If SSsection = "BODY" Then
1597 
		If NOT CBool(Request("action")) Then Exit Sub
1598 
 
17 rsolanki 1599 
		'Query_String = ReadFile( rootPath & "queries\AllProducts.sql" )
13 rsolanki 1600 
 
17 rsolanki 1601 
		'OraDatabase.Parameters.Add "BOM_ID", bomId, ORAPARM_INPUT, ORATYPE_NUMBER
13 rsolanki 1602 
	%>
1603 
	</p>
1604 
	<table width="20%" border="0" cellspacing="0" cellpadding="2">
17 rsolanki 1605 
                <tr>
1606 
				  <td width="1%" background="images/bg_bage_0.gif" class="body_col" nowrap>Trail</td>
1607 
                  <td width="1%" background="images/bg_bage_0.gif" class="body_col" nowrap>Date</td>
1608 
                  <td width="40%" background="images/bg_bage_0.gif" class="body_col" nowrap>Action</td>
1609 
				  <td width="1%" background="images/bg_bage_0.gif" class="body_col" nowrap>User</td>
1610 
                </tr>
13 rsolanki 1611 
      <tr>
17 rsolanki 1612 
        <td colspan="4" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
13 rsolanki 1613 
      </tr>
1614 
      <%
17 rsolanki 1615 
 
1616 
	  Set rsRep = OraDatabase.DbCreateDynaset( "SELECT * FROM BOM_TRAIL BT, USERS U WHERE BT.BOM_ID ="& bomId &" AND U.USER_ID = BT.USER_ID AND BT.DATE_TIME_STAMP >= TO_DATE('"& Request.Form("FRinitdate") &"','DD/MM/YYYY') AND BT.DATE_TIME_STAMP < TO_DATE('"& Request.Form("FRduedate") &"','DD/MM/YYYY')+1 ORDER BY BT.DATE_TIME_STAMP DESC", 0 )
1617 
 
1618 
 
13 rsolanki 1619 
	  If rsRep.RecordCount = 0 Then
1620 
	  	With Response
1621 
			.write "<tr>"
17 rsolanki 1622 
 
1623 
 
1624 
			.write "<td colspan='5' class='body_row'>Found 0 bom trail records</td>"
13 rsolanki 1625 
			.write "</tr>"
1626 
		End With
17 rsolanki 1627 
	  Else
1628 
	  %>
1629 
	        <tr>
1630 
        <td colspan="4" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
1631 
      </tr>
1632 
      <tr>
1633 
        <td nowrap class="body_scol">Bom</td>
1634 
		<td nowrap class="body_scol"></td>
1635 
        <td nowrap class="body_scol"></td>
1636 
        <td nowrap class="body_scol"></td>
1637 
      </tr>
1638 
	  <%
13 rsolanki 1639 
	  While ((NOT rsRep.BOF) AND (NOT rsRep.EOF))
1640 
		  %>
1641 
      <tr>
17 rsolanki 1642 
 		<td nowrap class="body_scol"></td>
1643 
        <td nowrap class="body_row"><%=rsRep("date_time_stamp")%></td>
1644 
        <td nowrap class="body_row"><%=rsRep("trail_action")%></td>
1645 
		<td nowrap class="body_row"><%=rsRep("full_name")%></td>
13 rsolanki 1646 
      </tr>
17 rsolanki 1647 
      <%  rsRep.MoveNext
1648 
	  WEnd
1649 
	  End If
1650 
	  %>
13 rsolanki 1651 
      <tr>
17 rsolanki 1652 
        <td colspan="4" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
13 rsolanki 1653 
      </tr>
1654 
      <%
17 rsolanki 1655 
 
1656 
	  Set rsRep = OraDatabase.DbCreateDynaset( "SELECT * FROM BOM_CONTENTS BC, NODE_TRAIL NT, USERS U WHERE BC.BOM_ID ="& bomId &" AND NT.NODE_ID = BC.NODE_ID AND U.USER_ID = NT.USER_ID AND NT.DATE_TIME_STAMP >= TO_DATE('"& Request.Form("FRinitdate") &"','DD/MM/YYYY') AND NT.DATE_TIME_STAMP < TO_DATE('"& Request.Form("FRduedate") &"','DD/MM/YYYY')+1 ORDER BY NT.DATE_TIME_STAMP DESC", 0 )
1657 
 
1658 
 
1659 
	  If rsRep.RecordCount = 0 Then
1660 
	  	With Response
1661 
			.write "<tr>"
1662 
 
1663 
 
1664 
			.write "<td colspan='5' class='body_row'>Found 0 node trail records</td>"
1665 
			.write "</tr>"
1666 
		End With
1667 
	  Else
1668 
	  %>
1669 
 
1670 
      <tr>
1671 
        <td nowrap class="body_scol">Node</td>
1672 
		<td nowrap class="body_scol"></td>
1673 
        <td nowrap class="body_scol"></td>
1674 
        <td nowrap class="body_scol"></td>
1675 
      </tr>
1676 
	  <%
1677 
	  While ((NOT rsRep.BOF) AND (NOT rsRep.EOF))
13 rsolanki 1678 
		  %>
1679 
      <tr>
17 rsolanki 1680 
 		<td nowrap class="body_scol"></td>
1681 
        <td nowrap class="body_row"><%=rsRep("date_time_stamp")%></td>
1682 
        <td nowrap class="body_row"><%=rsRep("trail_action")%></td>
1683 
		<td nowrap class="body_row"><%=rsRep("full_name")%></td>
13 rsolanki 1684 
      </tr>
1685 
      <%  rsRep.MoveNext
1686 
	  WEnd
17 rsolanki 1687 
	  End If
1688 
	  %>
1689 
      <tr>
1690 
        <td colspan="4" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
1691 
      </tr>
1692 
      <%
1693 
 
1694 
	  Set rsRep = OraDatabase.DbCreateDynaset( "SELECT * FROM BOM_CONTENTS BC, OPERATING_SYSTEMS OS, OS_TRAIL OT, USERS U WHERE BC.NODE_ID = OS.NODE_ID AND OS.OS_ID = OT.OS_ID AND BC.BOM_ID ="& bomId &" AND U.USER_ID = OT.USER_ID AND OT.DATE_TIME_STAMP >= TO_DATE('"& Request.Form("FRinitdate") &"','DD/MM/YYYY') AND OT.DATE_TIME_STAMP < TO_DATE('"& Request.Form("FRduedate") &"','DD/MM/YYYY')+1 ORDER BY OT.DATE_TIME_STAMP DESC", 0 )
1695 
 
1696 
 
1697 
	  If rsRep.RecordCount = 0 Then
1698 
	  	With Response
1699 
			.write "<tr>"
1700 
 
1701 
 
1702 
			.write "<td colspan='5' class='body_row'>Found 0 operating systems trail records</td>"
1703 
			.write "</tr>"
1704 
		End With
1705 
	  Else
13 rsolanki 1706 
	  %>
17 rsolanki 1707 
	        <tr>
1708 
        <td colspan="4" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
1709 
      </tr>
13 rsolanki 1710 
      <tr>
17 rsolanki 1711 
        <td nowrap class="body_scol">Operating System</td>
1712 
		<td nowrap class="body_scol"></td>
1713 
        <td nowrap class="body_scol"></td>
1714 
        <td nowrap class="body_scol"></td>
13 rsolanki 1715 
      </tr>
17 rsolanki 1716 
	  <%
1717 
	  While ((NOT rsRep.BOF) AND (NOT rsRep.EOF))
1718 
		  %>
1719 
      <tr>
1720 
 		<td nowrap class="body_scol"></td>
1721 
        <td nowrap class="body_row"><%=rsRep("date_time_stamp")%></td>
1722 
        <td nowrap class="body_row"><%=rsRep("trail_action")%></td>
1723 
		<td nowrap class="body_row"><%=rsRep("full_name")%></td>
1724 
      </tr>
1725 
      <%  rsRep.MoveNext
1726 
	  WEnd
1727 
	  End If
1728 
	  %>
1729 
      <tr>
1730 
        <td colspan="4" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
1731 
      </tr>
13 rsolanki 1732 
    </table>
1733 
	<p>&nbsp;	  </p>
1734 
	<p>        <!-- PRINT, SAVE, ETC. ------------>
1735 
      <%If parPrint = "" Then%>
1736 
      <br>
1737 
      <br>
1738 
        <a href="javascript:;" onClick="window.print();" class="txt_linked"><img src="images/btn_print.gif" width="23" height="24" hspace="4" border="0" align="absmiddle">Print this report</a><br>
1739 
      <br>
1740 
      <%End If%>
1741 
      <!-- PRINT, SAVE, ETC. END -------->
1742 
      <%
1743 
		rsRep.Close
1744 
		Set rsRep = nothing
1745 
	End If
1746 
 
1747 
End Sub
1748 
%>
25 rsolanki 1749 
<%
1750 
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
1751 
'==================================================================================
1752 
' Report Name		: 	Escrow Report
1753 
' Description		:	Report to extract Products/Patches for Building A RoadMap
1754 
' INPUT				:
1755 
'==================================================================================
1756 
Sub Escrow_Report (SSsection, NNproj_id, NNrtag_id, NNbom_id, NNversion)
1757 
	Dim Query_String, rsRep, rsQry
1758 
	Const Allow_All = TRUE
1759 
	Const Disallow_All = FALSE
1760 
 
1761 
	If NNproj_id = "" Then NNproj_id = -1
1762 
	If NNrtag_id = "" Then NNrtag_id = -1
1763 
	If NNversion = "" Then NNversion = -1
1764 
 
1765 
	If SSsection = "TITLE" Then
1766 
		Response.write "Generation of ESCROW REPORT"
1767 
		Exit Sub
1768 
	End If
1769 
 
1770 
 
1771 
	If SSsection = "FORM" Then
1772 
	%>
1773 
	<table width="100%" border="0" cellpadding="2" cellspacing="1">
1774 
	  <form action="<%=scriptName%>" method="post" name="repform" onSubmit="MM_validateForm('FRproj_id','Project','R','FRvtree_id','Version Tree','R','FRrtag_id','Release','R');return document.MM_returnValue">
1775 
      <tr>
1776 
        <td width="1%" nowrap class="form_field"><img src="images/spacer.gif" width="30" height="8"></td>
1777 
        <td width="1%" align="right" nowrap class="form_field">Project</td>
1778 
        <td width="100%"><%Call Get_Projects( NNproj_id, Disallow_All )%></td>
1779 
      </tr>
1780 
      <tr>
1781 
        <td nowrap class="form_field">&nbsp;</td>
1782 
        <td align="right" nowrap class="form_field">Release</td>
1783 
        <td><%Call Get_Branches ( NNproj_id, NNrtag_id, Disallow_All )%></td>
1784 
      </tr>
1785 
 	  <tr>
1786 
        <td nowrap class="form_field">&nbsp;</td>
1787 
        <td align="right" nowrap class="form_field">SBOM Version</td>
1788 
        <td><%Call Get_SBOM_Version ( NNproj_id, NNrtag_id, Disallow_All, NNversion )%></td>
1789 
      </tr>
1790 
      <tr>
1791 
        <td nowrap class="form_field">&nbsp;</td>
1792 
        <td align="right" nowrap class="form_field">&nbsp;</td>
1793 
        <td><br>
1794 
			<input type="hidden" name="group" value="<%=parGroup%>">
1795 
			<input type="hidden" name="repnum" value="<%=parRepNum%>">
1796 
			<input type="hidden" name="FRrtag_id" value="<%=NNrtag_id%>">
1797 
			<input type="hidden" name="action" value="true">
1798 
		<input name="Submit" type="submit" class="form_btn" value="Submit">
1799 
        </td>
1800 
      </tr>
1801 
	  </form>
1802 
    </table>
1803 
	<p>
1804 
      <%	Exit Sub
1805 
	End If
1806 
 
1807 
 
1808 
 
1809 
	OraDatabase.Parameters.Add "BRANCH_ID", NNrtag_id, ORAPARM_INPUT, ORATYPE_NUMBER
1810 
	OraDatabase.Parameters.Add "BOM_VERSION", Request("FRVersion"), ORAPARM_INPUT, ORATYPE_STRING
1811 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("rep_SBOM.sql"), cint(0))
1812 
	Dim bomId, ext
1813 
	bomId = rsQry("bom_id")
1814 
	Set rsQry = OraDatabase.DbCreateDynaset( "select * from release_manager.project_extentions where proj_id="&NNproj_id, cint(0))
1815 
	ext = rsQry("ext_name")
1816 
	rsQry.close
1817 
	Set rsQry = nothing
1818 
 
1819 
 
1820 
	If SSsection = "BODY" Then
1821 
		If NOT CBool(Request("action")) Then Exit Sub
13 rsolanki 1822 
 
25 rsolanki 1823 
'---------------------- Run Before Page ---------------------------
1824 
Call GetReleaseContent ( bomId, objReleaseContent )
1825 
 
1826 
Call	GetBomDetails	(bomId, outobjDetails)
1827 
outobjDetails.Item("bom_full_version") = outobjDetails.Item("bom_name")&"	"&	outobjDetails.Item("bom_version") &"."& outobjDetails.Item("bom_lifecycle")
1828 
 
1829 
 
1830 
'------------------------------------------------------------------
1831 
%>
1832 
<html>
1833 
<head>
1834 
<title>Deployment Manager - Escrow Report</title>
1835 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
1836 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
1837 
</head>
1838 
<body>
1839 
<div align="center"><b><font col color="#FF0000" size="+3"><%=outobjDetails.Item("bom_full_version")%></font></b></div>
13 rsolanki 1840 
<%
25 rsolanki 1841 
Set outobjDetails = Nothing
1842 
 
1843 
aReleaseContent = objReleaseContent.Keys
1844 
For Each parPv_id In aReleaseContent
1845 
	pvIdList = pvIdList +	parPv_id	+	","
1846 
	Call GetPackageInformation ( parPv_id, objPackageDetails )
1847 
%>					<a name="<%=objPackageDetails.Item("pkg_name")%>"></a>
1848 
					<table width="100%" border="0" cellspacing="0" cellpadding="0">
1849 
					  <tr>
1850 
                       	<td class="body_colb"><h3><%=objPackageDetails.Item("pkg_name")%></h3></td>
1851 
					  </tr>
1852 
					</table>
1853 
		            <table width="100%" border="0" cellspacing="0" cellpadding="0">
1854 
					  <tr>
1855 
		                <td nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>Version:</strong></td>
1856 
		                <td bgcolor="#FFFFFF" class="sublbox_txt"><%=objPackageDetails.Item("pkg_version")%></td>
1857 
		              </tr>
1858 
		              <tr>
1859 
		                <td nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>Source Path:</strong> </td>
1860 
		                <td bgcolor="#FFFFFF" class="sublbox_txt"><%=objPackageDetails.Item("src_path")%></td>
1861 
		              </tr>
1862 
					  <tr>
1863 
		                <td nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>Source Label:</strong></td>
1864 
		                <td bgcolor="#FFFFFF" class="sublbox_txt"><%=objPackageDetails.Item("pkg_label")%></td>
1865 
		              </tr>
1866 
					  <tr>
1867 
		                <td width="1%" nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>Short Description:</strong></td>
1868 
		                <td witdh="100%" bgcolor="#FFFFFF" class="sublbox_txt"><%=NewLine_To_BR ( To_HTML( objPackageDetails.Item("pv_description") ) )%></td>
1869 
		              </tr>
1870 
		              <tr>
1871 
		                <td nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>Package Overview:</strong> </td>
1872 
		                <td bgcolor="#FFFFFF" class="sublbox_txt"><%=NewLine_To_BR ( To_HTML( objPackageDetails.Item("pv_overview") ) )%></td>
1873 
		              </tr>
1874 
					  <tr>
1875 
		                <td nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>General Sublicense Material:</strong> </td>
1876 
		                <td bgcolor="#FFFFFF" class="sublbox_txt"><%If objPackageDetails.Item("v_ext") = ext Then%>Yes<%Else%>No<%End If%></td>
1877 
		              </tr>
1878 
					  <tr>
1879 
		                <td nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>Build Environment:</strong> </td>
1880 
		                <td bgcolor="#FFFFFF" class="sublbox_txt"><%If objPackageDetails.Item("is_build_env_required") = enumDB_NO Then%>Not Required.<%End If%>
1881 
						<%
1882 
						'--- Get Build Env Details
1883 
						Set rsQry = OraDatabase.DbCreateDynaset( SQL_Build_Env ( parPv_id ), cint(0))
1884 
						%>
1885 
						  <ul>
1886 
						  <%
1887 
						  While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
1888 
						  %>
1889 
                          <li><%=rsQry("be_name")%></li>
1890 
						  <%rsQry.MoveNext
1891 
						  WEnd
1892 
						  %>
1893 
                          </ul>
1894 
					   </td>
1895 
		              </tr>
1896 
					  <tr>
1897 
		                <td nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>Build Dependencies:</strong> </td>
1898 
		                <td bgcolor="#FFFFFF" class="sublbox_txt">
1899 
						<%
1900 
						'--- Get Build Dependencies Details
1901 
 
1902 
						Set rsQry = OraDatabase.DbCreateDynaset( SQL_Build_Dependencies ( parPv_id ), cint(0))
1903 
						%>
1904 
                        <table width="100%"  cellspacing="0" cellpadding="2" border="1">
1905 
						  <tr>
1906 
                            <td nowrap class="sublbox_txt" bgcolor="#FFFFFF" width="1%"><strong>Software Component</strong></td>
1907 
							<td nowrap class="sublbox_txt" bgcolor="#FFFFFF" width="100%"><strong>Version</strong></td>
1908 
                          </tr>
1909 
						  <%If rsQry.RecordCount < 1 Then%>
1910 
						  <tr>
1911 
                            <td nowrap class="sublbox_txt">No Dependencies</td>
1912 
							<td nowrap class="sublbox_txt"></td>
1913 
                          </tr>
1914 
						  <%End If%>
1915 
						  <%
1916 
						  While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
1917 
						  %>
1918 
                          <tr>
1919 
                            <td nowrap class="sublbox_txt"><a href="#<%=rsQry("pkg_name")%>"><%=rsQry("pkg_name")%></a></td>
1920 
							<td nowrap class="sublbox_txt"><%=rsQry("pkg_version")%></td>
1921 
                          </tr>
1922 
						  <%rsQry.MoveNext
1923 
						  WEnd
1924 
						  %>
1925 
                        </table>
1926 
					   </td>
1927 
		              </tr>
1928 
		            </table>
1929 
		            <br><br>
1930 
<%
1931 
	'Exit For
1932 
Next
1933 
pvIdList = Mid(pvIdList, 1, Len(pvIdList) - 1)
1934 
Set	rsTemp	=	OraDatabase.DbCreateDynaset( SQL_Modules ( pvIdList ), cint(0))
1935 
 
1936 
 
1937 
%>
1938 
<div align="center"><b><font col color="#FF0000" size="+3">Modules</font></b></div>
1939 
<%
1940 
While (NOT rsTemp.BOF) AND (NOT rsTemp.EOF)
1941 
dpv_id = rsTemp("dpv_id")
1942 
Call GetPackageInformation ( dpv_id, objPackageDetails )
1943 
%>					<a name="<%=objPackageDetails.Item("pkg_name")%>"></a>
1944 
					<table width="100%" border="0" cellspacing="0" cellpadding="0">
1945 
					  <tr>
1946 
                       	<td class="body_colb"><h3><%=objPackageDetails.Item("pkg_name")%></h3></td>
1947 
					  </tr>
1948 
					</table>
1949 
		            <table width="100%" border="0" cellspacing="0" cellpadding="0">
1950 
					  <tr>
1951 
		                <td nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>Version:</strong></td>
1952 
		                <td bgcolor="#FFFFFF" class="sublbox_txt"><%=objPackageDetails.Item("pkg_version")%></td>
1953 
		              </tr>
1954 
		              <tr>
1955 
		                <td nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>Source Path:</strong> </td>
1956 
		                <td bgcolor="#FFFFFF" class="sublbox_txt"><%=objPackageDetails.Item("src_path")%></td>
1957 
		              </tr>
1958 
					  <tr>
1959 
		                <td nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>Source Label:</strong></td>
1960 
		                <td bgcolor="#FFFFFF" class="sublbox_txt"><%=objPackageDetails.Item("pkg_label")%></td>
1961 
		              </tr>
1962 
					  <tr>
1963 
		                <td width="1%" nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>Short Description:</strong></td>
1964 
		                <td witdh="100%" bgcolor="#FFFFFF" class="sublbox_txt"><%=NewLine_To_BR ( To_HTML( objPackageDetails.Item("pv_description") ) )%></td>
1965 
		              </tr>
1966 
		              <tr>
1967 
		                <td nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>Package Overview:</strong> </td>
1968 
		                <td bgcolor="#FFFFFF" class="sublbox_txt"><%=NewLine_To_BR ( To_HTML( objPackageDetails.Item("pv_overview") ) )%></td>
1969 
		              </tr>
1970 
					  <tr>
1971 
		                <td nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>General Sublicense Material:</strong> </td>
1972 
		                <td bgcolor="#FFFFFF" class="sublbox_txt"><%If objPackageDetails.Item("v_ext") = parExt Then%>Yes<%Else%>No<%End If%></td>
1973 
		              </tr>
1974 
					  <tr>
1975 
		                <td nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>Build Environment:</strong> </td>
1976 
		                <td bgcolor="#FFFFFF" class="sublbox_txt"><%If objPackageDetails.Item("is_build_env_required") = enumDB_NO Then%>Not Required.<%End If%>
1977 
						<%
1978 
						'--- Get Build Env Details
1979 
						Set rsQry = OraDatabase.DbCreateDynaset( SQL_Build_Env ( dpv_id ), cint(0))
1980 
						%>
1981 
						  <ul>
1982 
						  <%
1983 
						  While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
1984 
						  %>
1985 
                          <li><%=rsQry("be_name")%></li>
1986 
						  <%rsQry.MoveNext
1987 
						  WEnd
1988 
						  %>
1989 
                          </ul>
1990 
					   </td>
1991 
		              </tr>
1992 
					  <tr>
1993 
		                <td nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>Build Dependencies:</strong> </td>
1994 
		                <td bgcolor="#FFFFFF" class="sublbox_txt">
1995 
						<%
1996 
						'--- Get Build Dependencies Details
1997 
 
1998 
						Set rsQry = OraDatabase.DbCreateDynaset( SQL_Build_Dependencies ( dpv_id ), cint(0))
1999 
						%>
2000 
                        <table width="100%"  cellspacing="0" cellpadding="2" border="1">
2001 
						  <tr>
2002 
                            <td nowrap class="sublbox_txt" bgcolor="#FFFFFF" width="1%"><strong>Software Component</strong></td>
2003 
							<td nowrap class="sublbox_txt" bgcolor="#FFFFFF" width="100%"><strong>Version</strong></td>
2004 
                          </tr>
2005 
						  <%If rsQry.RecordCount < 1 Then%>
2006 
						  <tr>
2007 
                            <td nowrap class="sublbox_txt">No Dependencies</td>
2008 
							<td nowrap class="sublbox_txt"></td>
2009 
                          </tr>
2010 
						  <%End If%>
2011 
						  <%
2012 
						  While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
2013 
						  %>
2014 
                          <tr>
2015 
                            <td nowrap class="sublbox_txt"><a href="#<%=rsQry("pkg_name")%>"><%=rsQry("pkg_name")%></a></td>
2016 
							<td nowrap class="sublbox_txt"><%=rsQry("pkg_version")%></td>
2017 
                          </tr>
2018 
						  <%rsQry.MoveNext
2019 
						  WEnd
2020 
						  %>
2021 
                        </table>
2022 
					   </td>
2023 
		              </tr>
2024 
		            </table>
2025 
		            <br><br>
2026 
 
2027 
<%
2028 
rsTemp.MoveNext
2029 
WEnd
2030 
 
2031 
rsTemp.Close()
2032 
Set rsTemp = Nothing
2033 
	End If
2034 
End Sub
2035 
%>
2036 
<%
13 rsolanki 2037 
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
2038 
'==================================================================================
2039 
' Report Name		: 	Build History
2040 
' Description		:	List packages which were build between certain dates.
2041 
' INPUT				:
2042 
'==================================================================================
2043 
Sub Build_History ( SSsection, NNproj_id, NNrtag_id)
2044 
	Dim Query_String, rsRep, rsQry
2045 
	Const Allow_All = TRUE
2046 
	Const Disallow_All = FALSE
2047 
 
2048 
	If NNproj_id = "" Then NNproj_id = -1
2049 
	If NNrtag_id = "" Then NNrtag_id = -1
2050 
 
2051 
	If SSsection = "TITLE" Then
2052 
		Response.write "Build History"
2053 
		Exit Sub
2054 
	End If
2055 
 
2056 
 
2057 
	If SSsection = "FORM" Then
2058 
	%>
2059 
	<script language="JavaScript" src="images/calendar.js"></script>
2060 
	<table width="100%" border="0" cellpadding="2" cellspacing="1">
2061 
	  <form action="<%=SCRIPT_NAME%>" method="post" name="repform" onSubmit="MM_validateForm('FRproj_id','Project','R','FRvtree_id','Version Tree','R','FRrtag_id','Release','R');return document.MM_returnValue">
2062 
      <tr>
2063 
        <td width="1%" nowrap class="form_field"><img src="images/spacer.gif" width="30" height="8"></td>
2064 
        <td width="1%" align="right" nowrap class="form_field">Project</td>
2065 
        <td width="100%"><%Call Get_Projects( NNproj_id, Disallow_All )%></td>
2066 
 
2067 
      </tr>
2068 
      <tr>
2069 
        <td nowrap class="form_field">&nbsp;</td>
2070 
        <td align="right" nowrap class="form_field">Release</td>
2071 
        <td><%Call Get_Release_Labels ( NNproj_id,  NNrtag_id, Disallow_All )%></td>
2072 
 
2073 
      </tr>
2074 
      <tr>
2075 
        <td nowrap class="form_field">&nbsp;</td>
2076 
        <td align="right" nowrap class="form_field">SBOM Version</td>
2077 
        <td><%Call Get_Release_Labels ( NNproj_id,  NNrtag_id, Disallow_All )%></td>
2078 
      </tr>
2079 
      <tr>
2080 
        <td colspan="3" nowrap class="form_field">Between
2081 
        <input type="text" name="FRinitdate" maxlength="10" size="12" value="<%=Request.Form("FRinitdate")%>">
2082 
		<A onmouseover="window.status='Select a date';return true;" onmouseout="window.status='';return true;" href="javascript:show_calendar('repform.FRinitdate',null,null,null);"><img src="images/i_calendar.gif" width="16" height="16" border="0"></a>
2083 
        And
2084 
        <input type="text" name="FRduedate" maxlength="10" size="12" value="<%=Request.Form("FRduedate")%>">
2085 
        <A onmouseover="window.status='Select a date';return true;" onmouseout="window.status='';return true;" href="javascript:show_calendar('repform.FRduedate',null,null,null);"><img src="images/i_calendar.gif" width="16" height="16" border="0"></a></td>
2086 
		</tr>
2087 
      <tr>
2088 
        <td nowrap class="form_field">&nbsp;</td>
2089 
        <td align="right" nowrap class="form_field">&nbsp;</td>
2090 
        <td><br>
2091 
			<input type="hidden" name="group" value="<%=parGroup%>">
2092 
			<input type="hidden" name="repnum" value="<%=parRepNum%>">
2093 
			<input type="hidden" name="action" value="true">
2094 
		<input name="Submit" type="submit" class="form_btn" value="Submit" onClick="clickedButton=true;MM_validateForm('FRduedate','Due Date','R','FRmsg','Message details','R');return document.MM_returnValue">
2095 
        </td>
2096 
      </tr>
2097 
	  </form>
2098 
    </table>
2099 
	<p>
2100 
      <%	Exit Sub
2101 
	End If
2102 
 
2103 
 
2104 
	If SSsection = "BODY" Then
2105 
		If NOT CBool(Request("action")) Then Exit Sub
2106 
	%>
2107 
	</p>
2108 
	<table width="20%" border="0" cellspacing="0" cellpadding="2">
2109 
      <tr>
2110 
        <td width="1%" nowrap class="body_colb">&nbsp;</td>
2111 
        <td width="5%" nowrap class="body_colb">Package</td>
2112 
        <td width="95%" nowrap class="body_colb">Version</td>
2113 
      </tr>
2114 
      <tr>
2115 
        <td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
2116 
        <td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
2117 
        <td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
2118 
      </tr>
2119 
      <%
2120 
	  Dim currView_id
2121 
	  currView_id = -1
2122 
 
2123 
  		OraDatabase.Parameters.Add "RTAG_ID", NNrtag_id, ORAPARM_INPUT, ORATYPE_NUMBER
2124 
		OraDatabase.Parameters.Add "INITDATE", Request.Form("FRinitdate"), ORAPARM_INPUT, ORATYPE_STRING
2125 
		OraDatabase.Parameters.Add "DUEDATE", Request.Form("FRduedate"), ORAPARM_INPUT, ORATYPE_STRING
2126 
 
2127 
	  Set rsRep = OraDatabase.DbCreateDynaset( GetQuery("rep_build_history.sql"), cint(0) )
2128 
 
2129 
	  If rsRep.RecordCount = 0 Then
2130 
	  	With Response
2131 
			.write "<tr>"
2132 
			.write "<td colspan='5' class='body_row'>Found 0 records</td>"
2133 
			.write "</tr>"
2134 
		End With
2135 
	  End If
2136 
 
2137 
	  While ((NOT rsRep.BOF) AND (NOT rsRep.EOF))
2138 
		  ' -------- GROUP BY BASE VIEW  -----------------
2139 
		  If CDbl(currView_id) <> CDbl(rsRep("view_id")) Then
2140 
		  %>
2141 
      <tr>
2142 
        <td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
2143 
        <td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
2144 
        <td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
2145 
      </tr>
2146 
 
2147 
       <tr>
2148 
        <td valign="top" nowrap class="body_scol"><%=rsRep("view_name")%></td>
2149 
        <td>&nbsp;</td>
2150 
		<td>&nbsp;</td>
2151 
 
2152 
      </tr>
2153 
 
2154 
      <%
2155 
		  	currView_id = CDbl(rsRep("view_id"))
2156 
		  End If
2157 
		  ' -------- END GROUP ------------------------
2158 
		  %>
2159 
      <tr>
2160 
	    <td width="1%" nowrap class="body_colb">&nbsp;</td>
2161 
        <td nowrap class="body_row"><a href="fixed_issues.asp?pv_id=<%=rsRep("pv_id")%>&rtag_id=<%=NNRtag_id%>" class="body_txt"><strong><%=rsRep("pkg_name")%></strong></a></td>
2162 
        <td nowrap class="body_row"><a href="fixed_issues.asp?pv_id=<%=rsRep("pv_id")%>&rtag_id=<%=NNRtag_id%>" class="body_txt"><strong><%=rsRep("pkg_version")%></strong></a></td>
2163 
      </tr>
2164 
      <%  rsRep.MoveNext
2165 
	  WEnd
2166 
	  %>
2167 
      <tr>
2168 
        <td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
2169 
        <td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
2170 
        <td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
2171 
      </tr>
2172 
    </table>
2173 
	<p>&nbsp;	  </p>
2174 
	<p>        <!-- PRINT, SAVE, ETC. ------------>
2175 
      <%If parPrint = "" Then%>
2176 
      <br>
2177 
      <br>
2178 
        <a href="javascript:;" onClick="window.print();" class="txt_linked"><img src="images/btn_print.gif" width="23" height="24" hspace="4" border="0" align="absmiddle">Print this report</a><br>
2179 
      <br>
2180 
      <%End If%>
2181 
      <!-- PRINT, SAVE, ETC. END -------->
2182 
      <%
2183 
		rsRep.Close
2184 
		Set rsRep = nothing
2185 
	End If
2186 
 
2187 
End Sub
2188 
%>
2189 
 
2190 
 
2191 
<%
2192 
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
2193 
'==================================================================================
2194 
' Report Name		: 	Unit Tests per Package
2195 
' Description		:	List unit tests per package showing the unit test completeness
2196 
' INPUT				:	Project, Vesion Tree, Release Label, Base View, Level of Completeness, Show/Hide Dependencies, PV_ID
2197 
'==================================================================================
2198 
Sub Unit_Tests_Per_Package ( sSection, nProj_id,  nRtag_id, nBase_view_id, nLevel_of_complete, nShow_dependencies, nPv_id )
2199 
	Dim Query_String, rsRep
2200 
	Const Allow_All = TRUE
2201 
	Const Disallow_All = FALSE
2202 
 
2203 
	If nProj_id = "" Then nProj_id = -1
2204 
	If nRtag_id = "" Then nRtag_id = -1
2205 
	If nShow_dependencies = "" Then nShow_dependencies = 0
2206 
	If nPv_id = "" Then nPv_id = -1
2207 
 
2208 
	If sSection = "TITLE" Then
2209 
		Response.write "Unit Tests per Package"
2210 
		Exit Sub
2211 
	End If
2212 
 
2213 
 
2214 
	If sSection = "FORM" Then
2215 
	%>
2216 
    </p>
2217 
	<table width="100%" border="0" cellpadding="2" cellspacing="1">
2218 
	  <form action="<%=scriptName%>" method="post" name="repform" onSubmit="MM_validateForm('FRproj_id','Project','R','FRvtree_id','Version Tree','R','FRrtag_id','Release','R');return document.MM_returnValue">
2219 
      <tr>
2220 
        <td width="1%" nowrap class="form_field"><img src="images/spacer.gif" width="30" height="8"></td>
2221 
        <td width="1%" align="right" nowrap class="form_field">Project</td>
2222 
        <td width="100%"><%Call Get_Projects( nProj_id, Disallow_All )%></td>
2223 
      </tr>
2224 
      <tr>
2225 
        <td nowrap class="form_field">&nbsp;</td>
2226 
        <td align="right" nowrap class="form_field">Release</td>
2227 
        <td><%Call Get_Release_Labels ( nProj_id,  nRtag_id, Disallow_All )%></td>
2228 
      </tr>
2229 
	  <tr>
2230 
        <td nowrap class="form_field">&nbsp;</td>
2231 
        <td align="right" nowrap class="form_field">Base View</td>
2232 
        <td><%Call Get_Base_Views ( nRtag_id, nBase_view_id, Allow_All )%></td>
2233 
      </tr>
2234 
	  <tr>
2235 
        <td nowrap class="form_field">&nbsp;</td>
2236 
        <td align="right" nowrap class="form_field">Show Dependencie's Unit Tests</td>
2237 
        <td><input type="checkbox" name="FRshow_deps" value="1" <%If nShow_dependencies <> 0 Then%>checked<%End If%>></td>
2238 
      </tr>
2239 
      <tr>
2240 
        <td nowrap class="form_field">&nbsp;</td>
2241 
        <td align="right" nowrap class="form_field">&nbsp;</td>
2242 
        <td><br>
2243 
			<input type="hidden" name="group" value="<%=parGroup%>">
2244 
			<input type="hidden" name="repnum" value="<%=parRepNum%>">
2245 
			<input type="hidden" name="FRtest_complete" value="0">
2246 
			<input type="hidden" name="action" value="true">
2247 
		<input name="Submit" type="submit" class="form_btn" value="Submit">
2248 
        </td>
2249 
      </tr>
2250 
	  </form>
2251 
    </table>
2252 
	<%	Exit Sub
2253 
	End If
2254 
 
2255 
 
2256 
	If sSection = "BODY" Then
2257 
		If NOT CBool(Request("action")) Then Exit Sub
2258 
 
2259 
		Query_String = ReadFile( rootPath & "queries\rep_unit_tests_per_package.sql" )
2260 
 
2261 
		OraDatabase.Parameters.Add "RTAG_ID", 		nRtag_id, 		ORAPARM_INPUT, ORATYPE_NUMBER
2262 
		OraDatabase.Parameters.Add "BASE_VIEW", 	nBase_view_id, 	ORAPARM_INPUT, ORATYPE_NUMBER
2263 
		OraDatabase.Parameters.Add "COMPLETENESS", 	nLevel_of_complete, ORAPARM_INPUT, ORATYPE_NUMBER
2264 
		OraDatabase.Parameters.Add "SHOW_DEPS", 	nShow_dependencies, ORAPARM_INPUT, ORATYPE_NUMBER
2265 
		OraDatabase.Parameters.Add "PV_ID", 		nPv_id, 		ORAPARM_INPUT, ORATYPE_NUMBER
2266 
	%>
2267 
	<table width="100%" border="0" cellspacing="0" cellpadding="1">
2268 
      <tr>
2269 
        <td width="1%" nowrap class="body_colb">&nbsp;</td>
2270 
        <td width="1%" nowrap class="body_colb">&nbsp;</td>
2271 
        <td width="1%" nowrap class="body_colb">Package Name&nbsp;&nbsp;&nbsp;</td>
2272 
        <td width="1%" nowrap class="body_colb">Version&nbsp;&nbsp;&nbsp;</td>
2273 
        <td width="1%" nowrap class="body_colb">Test Name&nbsp;&nbsp;&nbsp;</td>
2274 
        <td width="100%" nowrap class="body_colb">Test Summary&nbsp; </td>
2275 
        <td width="1%" nowrap class="body_colb"></td>
2276 
        <td width="1%" nowrap class="body_colb">Stamp</td>
2277 
        <td width="1%" nowrap class="body_colb">Test Completed &nbsp;&nbsp;&nbsp;</td>
2278 
      </tr>
2279 
      <tr>
2280 
        <td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
2281 
		<td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
2282 
		<td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
2283 
		<td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
2284 
		<td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
2285 
		<td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
2286 
		<td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
2287 
		<td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
2288 
		<td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
2289 
      </tr>
2290 
	  <%
2291 
	  Dim currBase_view_id, currPv_id, currDpv_id, showTests
2292 
	  currBase_view_id = -1
2293 
	  currPv_id = -1
2294 
	  currDpv_id = -1
2295 
 
2296 
	  Set rsRep = OraDatabase.DbCreateDynaset( Query_String, 0 )
2297 
 
2298 
	  If rsRep.RecordCount = 0 Then
2299 
	  	With Response
2300 
			.write "<tr>"
2301 
			.write "<td colspan='9' class='body_row'>Found 0 records</td>"
2302 
			.write "</tr>"
2303 
		End With
2304 
	  End If
2305 
 
2306 
	  While ((NOT rsRep.BOF) AND (NOT rsRep.EOF))
2307 
	  	  If nShow_dependencies <> 0 Then
2308 
		  	' show dependency is ON
2309 
		  	If rsRep("dpkg_name") = "------" Then
2310 
				showTests = FALSE
2311 
			Else
2312 
				showTests = TRUE
2313 
			End If
2314 
		  Else
2315 
		  	showTests = TRUE
2316 
		  End If
2317 
 
2318 
		  ' -------- GROUP BY BASE VIEW  -----------------
2319 
		  If CDbl(currBase_view_id) <> CDbl(rsRep("base_view_id")) Then
2320 
		  %>
2321 
	  <tr>
2322 
        <td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
2323 
		<td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
2324 
		<td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
2325 
		<td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
2326 
		<td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
2327 
		<td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
2328 
		<td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
2329 
		<td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
2330 
		<td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
2331 
      </tr>
2332 
       <tr>
2333 
        <td valign="top" nowrap class="body_scol"><%=rsRep("view_name")%></td>
2334 
        <td>&nbsp;</td>
2335 
		<td>&nbsp;</td>
2336 
		<td>&nbsp;</td>
2337 
		<td>&nbsp;</td>
2338 
		<td>&nbsp;</td>
2339 
		<td>&nbsp;</td>
2340 
		<td>&nbsp;</td>
2341 
		<td>&nbsp;</td>
2342 
      </tr>
2343 
	      <%
2344 
		  	currBase_view_id = CDbl(rsRep("base_view_id"))
2345 
		  End If
2346 
		  ' -------- END GROUP BASE VIEW ------------------------
2347 
		  %>
2348 
		  <%
2349 
		  ' -------- GROUP BY PACKAGE  -----------------
2350 
		  If CDbl(currPv_id) <> CDbl(rsRep("pv_id")) Then
2351 
		  %>
2352 
      <tr>
2353 
        <td><img src="images/spacer.gif" width="1" height="1"></td>
2354 
        <td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
2355 
		<td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
2356 
		<td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
2357 
		<td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
2358 
		<td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
2359 
		<td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
2360 
		<td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
2361 
		<td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
2362 
		<td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
2363 
      </tr>
2364 
      <tr>
2365 
        <td>&nbsp;</td>
2366 
        <td><%If rsRep("dlocked") = "Y" Then%><img src="images/i_locked.gif" width="7" height="10" hspace="2" alt="Officially released."><%Else%><img src="images/spacer.gif" width="7" height="10" hspace="2"><%End If%></td>
2367 
        <td nowrap><a href="fixed_issues.asp?pv_id=<%=rsRep("pv_id")%>&rtag_id=<%=nRtag_id%>" class="body_txt"><strong><%=rsRep("pkg_name")%></strong></a></td>
2368 
        <td nowrap><a href="fixed_issues.asp?pv_id=<%=rsRep("pv_id")%>&rtag_id=<%=nRtag_id%>" class="body_txt"><strong><%=rsRep("pkg_version")%></strong></a></td>
2369 
        <td>&nbsp;</td>
2370 
        <td>&nbsp;</td>
2371 
        <td>&nbsp;</td>
2372 
        <td>&nbsp;</td>
2373 
        <td align="center" valign="top" nowrap><%If nShow_dependencies = 0 Then%><%If IsNull( rsRep("not_done") ) Then%><img src="images/i_boxtick_on.gif" width="13" height="13"><%Else%><img src="images/i_boxtick_off.gif" width="13" height="13"><%End If%><%End If%></td>
2374 
      </tr>
2375 
	      <%
2376 
		  	currPv_id = CDbl(rsRep("pv_id"))
2377 
		  End If
2378 
		  ' -------- END GROUP PACKAGE ------------------------
2379 
		  %>
2380 
		  <%
2381 
		  ' -------- GROUP BY DEPENDENCY  -----------------
2382 
		  If Not IsNull(rsRep("dpv_id")) Then
2383 
		  	If CDbl(currDpv_id) <> CDbl(rsRep("dpv_id")) Then
2384 
		  %>
2385 
      <tr>
2386 
        <td>&nbsp;</td>
2387 
        <td>&nbsp;</td>
2388 
        <td>&nbsp;</td>
2389 
        <td>&nbsp;</td>
2390 
        <td valign="top" nowrap><a href="fixed_issues.asp?pv_id=<%=rsRep("dpv_id")%>&rtag_id=<%=nRtag_id%>" class="body_txt"><strong><%=rsRep("dpkg_name")%></strong></a></td>
2391 
        <td valign="top" nowrap><a href="fixed_issues.asp?pv_id=<%=rsRep("dpv_id")%>&rtag_id=<%=nRtag_id%>" class="body_txt"><strong><%=rsRep("dpkg_version")%></strong></a></td>
2392 
        <td>&nbsp;</td>
2393 
        <td>&nbsp;</td>
2394 
        <td align="center" valign="top" nowrap><%If IsNull( rsRep("not_done") ) Then%><img src="images/i_boxtick_on.gif" width="13" height="13"><%Else%><img src="images/i_boxtick_off.gif" width="13" height="13"><%End If%></td>
2395 
      </tr>
2396 
	      <%
2397 
		  		currDpv_id = CDbl(rsRep("dpv_id"))
2398 
		  	End If
2399 
		  End If
2400 
		  ' -------- END GROUP DEPENDENCY ------------------------
2401 
		  %>
2402 
	  <%If Not IsNull( rsRep("completed_by") ) AND showTests Then%>
2403 
	  <tr>
2404 
        <td>&nbsp;</td>
2405 
        <td>&nbsp;</td>
2406 
		<td>&nbsp;</td>
2407 
		<td>&nbsp;</td>
2408 
        <td bgcolor="#F5F5F5" valign="top" nowrap class="body_row"><img src="images/i_test.gif" width="16" height="16" hspace="1" align="absmiddle"><%=rsRep("test_name")%></td>
2409 
        <td bgcolor="#F5F5F5" valign="top" class="body_row"><%=NewLine_To_BR ( To_HTML ( rsRep("test_summary") ) )%></td>
2410 
        <td bgcolor="#F5F5F5" align="center" valign="top">	</td>
2411 
        <td bgcolor="#F5F5F5" valign="top" nowrap class="body_txt"><%=EuroDate ( rsRep("completion_date") )%> <a href="mailto:<%=rsRep("user_email")%>" class="txt_linked"><%=rsRep("completed_by")%></a> </td>
2412 
        <td>&nbsp;</td>
2413 
      </tr>
2414 
	  <tr>
2415 
        <td><img src="images/spacer.gif" width="1" height="1"></td>
2416 
        <td><img src="images/spacer.gif" width="1" height="1"></td>
2417 
		<td><img src="images/spacer.gif" width="1" height="1"></td>
2418 
		<td><img src="images/spacer.gif" width="1" height="1"></td>
2419 
		<td><img src="images/spacer.gif" width="1" height="1"></td>
2420 
		<td><img src="images/spacer.gif" width="1" height="1"></td>
2421 
		<td><img src="images/spacer.gif" width="1" height="1"></td>
2422 
		<td><img src="images/spacer.gif" width="1" height="1"></td>
2423 
		<td><img src="images/spacer.gif" width="1" height="1"></td>
2424 
      </tr>
2425 
	  <%End If%>
2426 
	  <%  rsRep.MoveNext
2427 
	  WEnd
2428 
	  %>
2429 
      <tr>
2430 
        <td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
2431 
		<td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
2432 
		<td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
2433 
		<td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
2434 
		<td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
2435 
		<td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
2436 
		<td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
2437 
		<td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
2438 
		<td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
2439 
      </tr>
2440 
    </table>
2441 
 
2442 
	<!-- PRINT, SAVE, ETC. ------------>
2443 
	<%If parPrint = "" Then%>
2444 
	<br>
2445 
	<br>
2446 
	<a href="javascript:;" onClick="window.print();" class="txt_linked"><img src="images/btn_print.gif" width="23" height="24" hspace="4" border="0" align="absmiddle">Print this report</a><br>
2447 
	<br>
2448 
	<%End If%>
2449 
	<!-- PRINT, SAVE, ETC. END -------->
2450 
	<%
2451 
		rsRep.Close
2452 
		Set rsRep = nothing
2453 
	End If
2454 
 
2455 
End Sub
2456 
%>