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 
'=====================================================
7 
%>
8 
<%
9 
Sub Reports_List ( SSgroup )
10 
	Dim repNum
11 
%>  <!-- REPORTS LIST -------------------------------------------------------->
12 
	<%Select Case SSgroup%>
13 
	<%Case "Advanced_Search"%>
14 
	<%repNum = 1%>
15 
	<strong>Find ClearQuest Bugs / Issues Location</strong><br>
16 
    Use this advance search to locate bugs / issues imported to Release Manager from ClearQuest.<br>
17 
    <a href="rep_where_are_bugs_located.asp?repnum=<%=repNum%>&group=<%=SSgroup%>" class="txt_linked">more...</a><br><br><hr size="1" noshade color="#DAD7C8">
18 
	<%repNum = 2%>
19 
    <strong>Find Packages Using "Ignore Warnings" feature</strong><br>
20 
    Lists packages which use "Ignore Warning" feature on their dependencies.<br>
21 
    <a href="rep_packages_using_ignore_feature.asp?repnum=<%=repNum%>&group=<%=SSgroup%>" class="txt_linked">more...</a><br><br><hr size="1" noshade color="#DAD7C8">
22 
	<%repNum = 4%>
23 
	<strong>Find A Package</strong><br>
24 
    Use this advanced search to find a package in Release Manager<br>
25 
    <a href="rep_find_package.asp?repnum=<%=repNum%>&group=<%=SSgroup%>" class="txt_linked">more...</a><br><br><hr size="1" noshade color="#DAD7C8">
26 
	<%repNum = 5%>
27 
	<strong>Find Package Version History</strong><br>
28 
    Find all package versions and their current locations.<br>
29 
    <a href="rep_package_version_history.asp?repnum=<%=repNum%>&group=<%=SSgroup%>" class="txt_linked">more...</a><br><br><hr size="1" noshade color="#DAD7C8">
30 
	<%Case "Release_Status"%>
31 
	<%repNum = 3%>
32 
	<strong>Current Status of Release</strong><br>
33 
	Shows all packages in a selected release with their current state, owner and last modifier.<br>
34 
	<a href="rep_current_state_of_release.asp?repnum=<%=repNum%>&group=<%=SSgroup%>" class="txt_linked">more...</a><br><br><hr size="1" noshade color="#DAD7C8">
35 
	<%repNum = 8%>
36 
	<strong>Deployable Software Modules</strong><br>
37 
	This report shows new and current deployable software modules. Use this report to find which modules will be deployed to the customer.<br>
38 
	Also, use this report to find if there are new modules flaged as 'deployable'.<br>
39 
	<a href="rep_depoyable_software_modules.asp?repnum=<%=repNum%>&group=<%=SSgroup%>" class="txt_linked">more...</a><br><br><hr size="1" noshade color="#DAD7C8">
40 
	<%repNum = 7%>
41 
	<strong>Unit Tests per Package</strong><br>
42 
	Use this report to check the unit tests performed on packages in a project.<br>
43 
	<a href="rep_unit_tests_per_package.asp?repnum=<%=repNum%>&group=<%=SSgroup%>" class="txt_linked">more...</a><br><br><hr size="1" noshade color="#DAD7C8">
44 
	<strong>All Packages With out-of-sync Dependencies</strong><br>
45 
	List of all packages with dependencies out-of-sync with the release environment.<br>
46 
	In escence, these are the packages which has versions in "latest" column of their dependencies.<br>
47 
	Not available yet.<br><br><hr size="1" noshade color="#DAD7C8">
17 rsolanki 48 
	<%Case "Bom_History"%>
13 rsolanki 49 
	<%repNum = 9%>
17 rsolanki 50 
	<strong>BOM History Tracker</strong><br>
51 
	Use this report to find what changes occured in a BOM within specified date range.<br>
13 rsolanki 52 
	<a href="rep_bill_of_materials.asp?repnum=<%=repNum%>&group=<%=SSgroup%>" class="txt_linked">more...</a><br><br><hr size="1" noshade color="#DAD7C8">
53 
	<%Case "Admin_Reports"%>
54 
	<strong>All Packages by Project by Version Tree by Release</strong><br>
55 
	CSV output of all packages used in Release Manager per Project.<br>
56 
	<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">
57 
	<strong>All Runtime Dependencies by Project by Version Tree by Release</strong><br>
58 
	CSV output of all runtime dependencies used in Release Manager per Project.<br>
59 
	<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">
60 
	<%repNum = 6%>
61 
	<strong>Unused Packages</strong><br>
62 
	All packages (Not Products) with no entries in "Used By" tab.<br>
63 
    Use this report to help you clean up a release and remove all potentially unused packages.<br>
64 
    <a href="rep_obsolete_packages.asp?repnum=<%=repNum%>&group=<%=SSgroup%>" class="txt_linked">more...</a><br><br><hr size="1" noshade color="#DAD7C8">
65 
	<%Case "Escrow"%>
66 
	<%repNum = 9%>
67 
	<strong>Bill of Materials (BOM)</strong><br>
68 
	List of all ERG Products per network node for a particular
69 
	project. Use this report to integrate a particular project.<br>
70 
	<a href="rep_bill_of_materials.asp?repnum=<%=repNum%>&group=<%=SSgroup%>" class="txt_linked">more...</a><br><br><hr size="1" noshade color="#DAD7C8">
71 
	<strong>Build Dependencies per Package</strong><br>
72 
	Use this report to build package from source code. The report
73 
	include package repository location, label and build dependencies.<br>
74 
	Not available yet.<br><br><hr size="1" noshade color="#DAD7C8">
75 
	<strong>Build Order</strong><br>
76 
	Use this reports to find the order in which packages should be built.<br>
77 
	Not available yet.<br><br><hr size="1" noshade color="#DAD7C8">
78 
	<%Case Else%>
79 
	<b>&laquo; Select reporting category.</b>
80 
	<%End Select%>
81 
	<!-- REPORTS LIST END-------------------------------------------------------->
82 
 
83 
<%End Sub%>
84 
 
85 
<%
86 
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
87 
Sub Get_Projects ( NNproj_id, BBallow_all )
88 
	Dim rsTemp, Query_String
89 
 
90 
	Query_String = _
91 
	"SELECT * FROM DM_PROJECTS ORDER BY proj_name ASC"
92 
	Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
93 
 
94 
	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'>"
95 
		If BBallow_all Then
96 
			Response.write "<option value='-1'>ALL</option>"
97 
		Else
98 
			Response.write "<option></option>"
99 
		End If
100 
 
101 
		While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
102 
			If CDbl(NNproj_id) = CDbl(rsTemp.Fields("proj_id")) Then
103 
	        	Response.write "<option value='"& rsTemp.Fields("proj_id") &"' selected>"& UCase(rsTemp.Fields("proj_name")) &"</option>"
104 
	        Else
105 
				Response.write "<option value='"& rsTemp.Fields("proj_id") &"'>"& UCase(rsTemp.Fields("proj_name")) &"</option>"
106 
			End If
107 
			rsTemp.MoveNext
108 
		WEnd
109 
	Response.write "</select>"
110 
 
111 
	rsTemp.Close
112 
	Set rsTemp = nothing
113 
End Sub
114 
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
115 
Sub Get_Version_Trees ( NNproj_id, NNvtree_id, BBallow_all )
116 
	Dim rsTemp, Query_String
117 
 
118 
	Query_String = _
119 
	"SELECT vtree_id, vtree_name FROM vtrees WHERE hide = 'N' AND proj_id = "& NNproj_id &" ORDER BY vtree_id ASC"
120 
	Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
121 
 
122 
	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'>"
123 
		If BBallow_all Then
124 
			Response.write "<option value='-1'>ALL</option>"
125 
		Else
126 
			Response.write "<option></option>"
127 
		End If
128 
 
129 
		If NNproj_id <> -1 Then
130 
			While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
131 
				If CDbl(NNvtree_id) = CDbl(rsTemp.Fields("vtree_id")) Then
132 
		        	Response.write "<option value='"& rsTemp.Fields("vtree_id") &"' selected>"& (rsTemp.Fields("vtree_name")) &"</option>"
133 
		        Else
134 
					Response.write "<option value='"& rsTemp.Fields("vtree_id") &"'>"& (rsTemp.Fields("vtree_name")) &"</option>"
135 
				End If
136 
				rsTemp.MoveNext
137 
			WEnd
138 
		End If
139 
	Response.write "</select>"
140 
 
141 
	rsTemp.Close
142 
	Set rsTemp = nothing
143 
End Sub
144 
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
145 
Sub Get_Release_Labels ( NNproj_id, NNrtag_id, BBallow_all )
146 
	Dim rsTemp, Query_String
147 
 
148 
	Query_String = _
149 
	"SELECT * FROM BRANCHES WHERE proj_id = "& NNproj_id &" ORDER BY branch_id ASC"
150 
	Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
151 
 
152 
	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'>"
153 
	If BBallow_all Then
154 
		Response.write "<option value='-1'>ALL</option>"
155 
	Else
156 
		Response.write "<option></option>"
157 
	End If
158 
 
159 
		If NNproj_id <> -1 Then
160 
			While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
161 
				If CDbl(NNrtag_id) = CDbl(rsTemp.Fields("branch_id")) Then
162 
		        	Response.write "<option value='"& rsTemp.Fields("branch_id") &"' selected>"& (rsTemp.Fields("branch_name")) &"</option>"
163 
		        Else
164 
					Response.write "<option value='"& rsTemp.Fields("branch_id") &"'>"& (rsTemp.Fields("branch_name")) &"</option>"
165 
				End If
166 
				rsTemp.MoveNext
167 
			WEnd
168 
		End If
169 
	Response.write "</select>"
170 
 
171 
	rsTemp.Close
172 
	Set rsTemp = nothing
173 
End Sub
174 
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
175 
Sub Get_SBOM_Version ( NNproj_id, NNrtag_id, BBallow_all, NNversion )
176 
	Dim rsTemp, Query_String
177 
 
178 
	Query_String = _
17 rsolanki 179 
	"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 180 
 
181 
 
182 
	Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
183 
 
184 
 
185 
	Response.write "<select name='FRversion' class='form_item'>"
186 
	If BBallow_all Then
187 
		Response.write "<option value='-1'>ALL</option>"
188 
	Else
189 
		Response.write "<option></option>"
190 
	End If
191 
 
192 
		If NNrtag_id <> -1 Then
193 
			While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
194 
				If CStr(NNversion) = CStr(rsTemp.Fields("version")) Then
17 rsolanki 195 
		        	Response.write "<option value='"& rsTemp.Fields("version") &"' selected>"& rsTemp("BOM_NAME") &" "& (rsTemp.Fields("version")) &"</option>"
13 rsolanki 196 
		        Else
17 rsolanki 197 
					Response.write "<option value='"& rsTemp.Fields("version") &"'>"& rsTemp("BOM_NAME") &" "& (rsTemp.Fields("version")) &"</option>"
13 rsolanki 198 
				End If
199 
				rsTemp.MoveNext
200 
			WEnd
201 
		End If
202 
	Response.write "</select>"
203 
	rsTemp.Close
204 
	Set rsTemp = nothing
205 
 
206 
End Sub
207 
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
208 
Sub Get_Branches ( NNproj_id, NNrtag_id, BBallow_all )
209 
	Dim rsTemp, Query_String
210 
 
211 
	Query_String = _
212 
	"SELECT * FROM branches WHERE proj_id = "& NNproj_id &" ORDER BY branch_id ASC"
213 
	Set rsTemp = OraDatabaseDM.DbCreateDynaset( Query_String, cint(0))
214 
	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'>"
215 
	If BBallow_all Then
216 
		Response.write "<option value='-1'>ALL</option>"
217 
	Else
218 
		Response.write "<option></option>"
219 
	End If
220 
 
221 
		If NNproj_id <> -1 Then
222 
			While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
223 
				If CDbl(NNrtag_id) = CDbl(rsTemp.Fields("branch_id")) Then
224 
		        	Response.write "<option value='"& rsTemp.Fields("branch_id") &"' selected>"& (rsTemp.Fields("branch_name")) &"</option>"
225 
		        Else
226 
					Response.write "<option value='"& rsTemp.Fields("branch_id") &"'>"& (rsTemp.Fields("branch_name")) &"</option>"
227 
				End If
228 
				rsTemp.MoveNext
229 
			WEnd
230 
		End If
231 
	Response.write "</select>"
232 
 
233 
	rsTemp.Close
234 
	Set rsTemp = nothing
235 
End Sub
236 
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
237 
 
238 
Sub Get_Base_Views ( nRtag_id, nBase_view_id, BBallow_all )
239 
	Dim rsTemp, Query_String
240 
 
241 
	Query_String = _
242 
	"SELECT DISTINCT vi.view_id, vi.view_name"&_
243 
	"  FROM VIEWS vi,"&_
244 
	"   		RELEASE_CONTENT rc"&_
245 
	" WHERE rc.BASE_VIEW_ID = vi.VIEW_ID"&_
246 
	"   AND rc.rtag_id = "& nRtag_id &_
247 
	"ORDER BY UPPER( vi.view_name )"
248 
 
249 
	Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
250 
 
251 
	Response.write "<select name='FRbase_view_id' class='form_item'>"
252 
	If BBallow_all Then
253 
		Response.write "<option value='-1'>ALL</option>"
254 
	Else
255 
		Response.write "<option></option>"
256 
	End If
257 
 
258 
		If nRtag_id <> -1 Then
259 
			While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
260 
				If CDbl(nBase_view_id) = CDbl(rsTemp.Fields("view_id")) Then
261 
		        	Response.write "<option value='"& rsTemp.Fields("view_id") &"' selected>"& (rsTemp.Fields("view_name")) &"</option>"
262 
		        Else
263 
					Response.write "<option value='"& rsTemp.Fields("view_id") &"'>"& (rsTemp.Fields("view_name")) &"</option>"
264 
				End If
265 
				rsTemp.MoveNext
266 
			WEnd
267 
		End If
268 
	Response.write "</select>"
269 
 
270 
	rsTemp.Close
271 
	Set rsTemp = nothing
272 
End Sub
273 
%>
274 
<%
275 
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
276 
'==================================================================================
277 
' Report Name		: 	Packages Using Ignore Feature
278 
' Description		:	Lists packages which use "Ignore Warning"
279 
'						feature on their dependencies.
280 
' INPUT				:	Project, Vesion Tree, Release Label
281 
'==================================================================================
282 
Sub Packages_Using_Ignore_Feature ( SSsection, NNproj_id, NNrtag_id )
283 
	Dim Query_String, rsRep
284 
	Const Allow_All = TRUE
285 
 
286 
	If NNproj_id = "" Then NNproj_id = -1
287 
	If NNrtag_id = "" Then NNrtag_id = -1
288 
 
289 
	If SSsection = "TITLE" Then
290 
		Response.write "Packages Using 'Ignore Warnings' Feature"
291 
		Exit Sub
292 
	End If
293 
 
294 
 
295 
	If SSsection = "FORM" Then
296 
	%>
297 
	<table width="100%" border="0" cellpadding="2" cellspacing="1">
298 
	  <form action="<%=scriptName%>" method="post" name="repform">
299 
      <tr>
300 
        <td width="1%" nowrap class="form_field"><img src="images/spacer.gif" width="30" height="8"></td>
301 
        <td width="1%" align="right" nowrap class="form_field">Project</td>
302 
        <td width="100%"><%Call Get_Projects( NNproj_id, Allow_All )%></td>
303 
      </tr>
304 
      <tr>
305 
        <td nowrap class="form_field">&nbsp;</td>
306 
        <td align="right" nowrap class="form_field">Release</td>
307 
        <td><%Call Get_Release_Labels ( NNproj_id,  NNrtag_id, Allow_All )%></td>
308 
      </tr>
309 
      <tr>
310 
        <td nowrap class="form_field">&nbsp;</td>
311 
        <td align="right" nowrap class="form_field">&nbsp;</td>
312 
        <td><br>
313 
			<input type="hidden" name="group" value="<%=parGroup%>">
314 
			<input type="hidden" name="repnum" value="<%=parRepNum%>">
315 
			<input type="hidden" name="action" value="true">
316 
		<input name="Submit" type="submit" class="form_btn" value="Submit">
317 
        </td>
318 
      </tr>
319 
	  </form>
320 
    </table>
321 
	<%	Exit Sub
322 
	End If
323 
 
324 
 
325 
	If SSsection = "BODY" Then
326 
		If NOT CBool(Request("action")) Then Exit Sub
327 
 
328 
		Query_String = ReadFile( rootPath & "queries\rep_packages_using_ignore_feature.sql" )
329 
 
330 
		OraDatabase.Parameters.Add "PROJ_ID", NNproj_id, ORAPARM_INPUT, ORATYPE_NUMBER
331 
		OraDatabase.Parameters.Add "RTAG_ID", NNrtag_id, ORAPARM_INPUT, ORATYPE_NUMBER
332 
	%>
333 
	<table width="100%" border="0" cellspacing="0" cellpadding="2">
334 
      <tr>
335 
        <td width="1%" nowrap class="body_colb">&nbsp;</td>
336 
        <td width="1%" nowrap class="body_colb">Package Name&nbsp;&nbsp;&nbsp;</td>
337 
        <td width="1%" nowrap class="body_colb">Version&nbsp;&nbsp;&nbsp;</td>
338 
        <td width="100%" nowrap class="body_colb">&nbsp;</td>
339 
      </tr>
340 
      <tr>
341 
        <td colspan="4" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
342 
      </tr>
343 
	  <%
344 
	  Dim currRtag_id
345 
	  currRtag_id = -1
346 
	  Set rsRep = OraDatabase.DbCreateDynaset( Query_String, 0 )
347 
 
348 
	  If rsRep.RecordCount = 0 Then
349 
	  	With Response
350 
			.write "<tr>"
351 
			.write "<td colspan='4' class='body_row'>Found 0 records</td>"
352 
			.write "</tr>"
353 
		End With
354 
	  End If
355 
 
356 
	  While ((NOT rsRep.BOF) AND (NOT rsRep.EOF))
357 
		  ' -------- GROUP BY RTAG_ID -----------------
358 
		  If CDbl(currRtag_id) <> CDbl(rsRep("rtag_id")) Then
359 
		  %>
360 
	      <tr>
361 
	        <td colspan="3" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
362 
	        <td></td>
363 
	      </tr>
364 
	      <tr>
365 
	        <td colspan="4" nowrap class="body_scol"><%=rsRep("proj_name")  &" &gt; "& rsRep("rtag_name")%></td>
366 
	      </tr>
367 
		  <%
368 
		  	currRtag_id = CDbl(rsRep("rtag_id"))
369 
		  End If
370 
		  ' -------- END GROUP ------------------------
371 
		  %>
372 
	      <tr>
373 
	        <td class="body_row"></td>
374 
	        <td nowrap><a href="dependencies.asp?rtag_id=<%=rsRep("rtag_id")%>&pv_id=<%=rsRep("pv_id")%>" class="txt_linked"><%=rsRep("pkg_name")%></a></td>
375 
	        <td nowrap><a href="dependencies.asp?rtag_id=<%=rsRep("rtag_id")%>&pv_id=<%=rsRep("pv_id")%>" class="txt_linked"><%=rsRep("pkg_version")%></a></td>
376 
	        <td class="body_row"></td>
377 
	      </tr>
378 
	  <%  rsRep.MoveNext
379 
	  WEnd
380 
	  %>
381 
      <tr>
382 
        <td colspan="3" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
383 
        <td></td>
384 
      </tr>
385 
	  <tr>
386 
        <td colspan="4" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
387 
      </tr>
388 
    </table>
389 
	<!-- PRINT, SAVE, ETC. ------------>
390 
	<%If parPrint = "" Then%>
391 
	<br>
392 
	<br>
393 
	<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>
394 
	<br>
395 
	<%End If%>
396 
	<!-- PRINT, SAVE, ETC. END -------->
397 
	<%
398 
		rsRep.Close
399 
		Set rsRep = nothing
400 
	End If
401 
 
402 
End Sub
403 
%>
404 
<%
405 
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
406 
'==================================================================================
407 
' Report Name		: 	Current State of Release
408 
' Description		:	Show all packages in a release with their state, owner and modifier
409 
' Form Input		:	Project, Vesion Tree, Release Label
410 
' SQL INPUT			:	rtag_id
411 
'==================================================================================
412 
Sub Current_State_of_Release ( SSsection, NNproj_id, NNrtag_id, NNpkg_states )
413 
	Dim Query_String, rsRep
414 
	Const Disallow_All = FALSE
415 
 
416 
	If NNproj_id = "" Then NNproj_id = -1
417 
	If NNrtag_id = "" Then NNrtag_id = -1
418 
	If NNpkg_states = "" Then NNpkg_states = -1
419 
 
420 
	If SSsection = "TITLE" Then
421 
		Response.write "Current State of Release"
422 
		Exit Sub
423 
	End If
424 
 
425 
 
426 
	If SSsection = "FORM" Then
427 
	%>
428 
	<table width="100%" border="0" cellpadding="2" cellspacing="1">
429 
	  <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">
430 
      <tr>
431 
        <td width="1%" nowrap class="form_field"><img src="images/spacer.gif" width="30" height="8"></td>
432 
        <td width="1%" align="right" nowrap class="form_field">Project</td>
433 
        <td width="100%"><%Call Get_Projects( NNproj_id, Disallow_All )%></td>
434 
      </tr>
435 
      <tr>
436 
        <td nowrap class="form_field">&nbsp;</td>
437 
        <td align="right" nowrap class="form_field">Release</td>
438 
        <td><%Call Get_Release_Labels ( NNproj_id, NNrtag_id, Disallow_All )%></td>
439 
      </tr>
440 
	  <tr>
441 
        <td nowrap class="form_field">&nbsp;</td>
442 
        <td align="right" nowrap class="form_field">Package States</td>
443 
        <td class="form_field" nowrap>
444 
		<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;
445 
		<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;
446 
		<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;
447 
		<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;
448 
		<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;
449 
		</td>
450 
      </tr>
451 
      <tr>
452 
        <td nowrap class="form_field">&nbsp;</td>
453 
        <td align="right" nowrap class="form_field">&nbsp;</td>
454 
        <td><br>
455 
			<input type="hidden" name="group" value="<%=parGroup%>">
456 
			<input type="hidden" name="repnum" value="<%=parRepNum%>">
457 
			<input type="hidden" name="action" value="true">
458 
		<input name="Submit" type="submit" class="form_btn" value="Submit">
459 
        </td>
460 
      </tr>
461 
	  </form>
462 
    </table>
463 
	<%	Exit Sub
464 
	End If
465 
 
466 
 
467 
	If SSsection = "BODY" Then
468 
		If NOT CBool(Request("action")) Then Exit Sub
469 
 
470 
		Query_String = ReadFile( rootPath & "queries\rep_details_current_status_of_release.sql" )
471 
		Query_String = Replace ( Query_String, "/*PKG_STATES*/", NNpkg_states )
472 
 
473 
		OraDatabase.Parameters.Add "RTAG_ID", NNrtag_id, ORAPARM_INPUT, ORATYPE_NUMBER
474 
	%>
475 
	<table width="100%" border="0" cellspacing="0" cellpadding="2">
476 
      <tr>
477 
	    <td width="1%" nowrap class="body_colb">&nbsp;</td>
478 
        <td width="1%" nowrap class="body_colb">&nbsp;</td>
479 
		<td width="1%" nowrap class="body_colb">&nbsp;</td>
480 
        <td width="1%" nowrap class="body_colb">Package Name and Version&nbsp;&nbsp;&nbsp;</td>
481 
        <td width="1%" nowrap class="body_colb">Owner&nbsp;&nbsp;&nbsp;</td>
482 
		<td width="1%" nowrap class="body_colb">Last Modifier&nbsp;&nbsp;&nbsp;</td>
483 
		<td width="1%" nowrap class="body_colb">Added to Release&nbsp;&nbsp;&nbsp;</td>
484 
        <td width="100%" nowrap class="body_colb">&nbsp;</td>
485 
      </tr>
486 
      <tr>
487 
        <td colspan="8" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
488 
      </tr>
489 
	   <%
490 
	  Dim currView_id
491 
	  currView_id = -1
492 
	  Set rsRep = OraDatabase.DbCreateDynaset( Query_String, 0 )
493 
 
494 
	  If rsRep.RecordCount = 0 Then
495 
	  	With Response
496 
			.write "<tr>"
497 
			.write "<td colspan='8' class='body_row'>Found 0 records</td>"
498 
			.write "</tr>"
499 
		End With
500 
	  End If
501 
 
502 
	  While ((NOT rsRep.BOF) AND (NOT rsRep.EOF))
503 
		  ' -------- GROUP BY RTAG_ID -----------------
504 
		  If CDbl(currView_id) <> CDbl(rsRep("view_id")) Then
505 
		  %>
506 
	      <tr>
507 
	        <td colspan="7" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
508 
	        <td></td>
509 
	      </tr>
510 
		  <tr>
511 
	        <td colspan="8" nowrap class="body_scol"><%=rsRep("view_name")%></td>
512 
	      </tr>
513 
		  <%
514 
		  	currView_id = CDbl(rsRep("view_id"))
515 
		  End If
516 
		  ' -------- END GROUP ------------------------
517 
		  %>
518 
	      <tr>
519 
		  	<td class="body_row"></td>
520 
		  	<td><%=DefineStateIcon ( rsRep("pkg_state"), rsRep("dlocked"), NULL, NULL, NULL, NULL )%></td>
521 
			<%If rsRep("dlocked") = "Y" Then%>
522 
		    	<td align="center" class="form_item"><img src='images/i_locked.gif' width='7' height='10' hspace='6'></td>
523 
			<%Else%>
524 
		    	<td align="center" class="form_item"><img src='images/spacer.gif' width='7' height='10' hspace='6'></td>
525 
			<%End If%>
526 
	        <td nowrap class="body_row"><%=rsRep("pkg_name") &" "& rsRep("pkg_version")%></td>
527 
	        <td nowrap><a href="mailto:<%=rsRep("owner_email")%>" class="txt_linked"><%=rsRep("owner")%></a>&nbsp;&nbsp;&nbsp;</td>
528 
			<td nowrap><a href="mailto:<%=rsRep("modifier_email")%>" class="txt_linked"><%=rsRep("modifier")%></a>&nbsp;&nbsp;&nbsp;</td>
529 
	        <td class="body_row"><%=EuroDate( rsRep("insert_stamp") )%></td>
530 
			<td class="body_row"></td>
531 
	      </tr>
532 
	  <%  rsRep.MoveNext
533 
	  WEnd
534 
	  %>
535 
	  <tr>
536 
        <td colspan="8" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
537 
      </tr>
538 
    </table>
539 
	<!-- PRINT, SAVE, ETC. ------------>
540 
	<%If parPrint = "" Then%>
541 
	<br>
542 
	<br>
543 
	<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>
544 
	<br>
545 
	<%End If%>
546 
	<!-- PRINT, SAVE, ETC. END -------->
547 
	<%
548 
		rsRep.Close
549 
		Set rsRep = nothing
550 
	End If
551 
 
552 
End Sub
553 
%>
554 
<%
555 
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
556 
'==================================================================================
557 
' Report Name		: 	Find ClearQuest Bugs / Issues Location
558 
' Description		:	Locates bugs / issues imported from ClearQuest
559 
' Form Input		:	CQ issue Database, CQ issue number list space separated
560 
'==================================================================================
561 
Sub Where_Are_Bugs_Located ( SSsection, NNiss_db, SSiss_num_list )
562 
	Dim Query_String, rsRep
563 
 
564 
	If SSsection = "TITLE" Then
565 
		Response.write "Find ClearQuest Bugs / Issues Location"
566 
		Exit Sub
567 
	End If
568 
 
569 
 
570 
	If SSsection = "FORM" Then
571 
	%>
572 
	<table width="100%" border="0" cellpadding="2" cellspacing="1">
573 
	  <form action="<%=scriptName%>" method="post" name="repform" onSubmit="MM_validateForm('FRiss_num_list','Issue Number','R');return document.MM_returnValue">
574 
      <tr>
575 
        <td width="1%" nowrap class="form_field"><img src="images/spacer.gif" width="30" height="8"></td>
576 
        <td width="1%" align="right" nowrap class="form_field" valign="top">ClearQuest Database</td>
577 
        <td width="100%">
578 
		<select name="FRiss_db" class="form_item">
579 
			<option value="<%=enumCLEARQUEST_DEVI_ID%>" <%If CDbl(NNiss_db) = enumCLEARQUEST_DEVI_ID Then%>selected<%End If%>>DEVI</option>
580 
			<option value="<%=enumCLEARQUEST_TDSE_ID%>" <%If CDbl(NNiss_db) = enumCLEARQUEST_TDSE_ID Then%>selected<%End If%>>TDSE</option>
581 
        </select>
582 
		</td>
583 
      </tr>
584 
      <tr>
585 
        <td nowrap class="form_field">&nbsp;</td>
586 
        <td align="right" nowrap class="form_field" valign="top">Issue Numbers</td>
587 
        <td class="form_txt"><input type="text" name="FRiss_num_list" size="50" class="form_item" value="<%=SSiss_num_list%>"><br>
588 
		HINTS:<br>
589 
		- You can use * wildcard. e.g. *0123 or 0123* or *0123*<br>
590 
		- Use space separated issue numbers for multiple search.</td>
591 
      </tr>
592 
      <tr>
593 
        <td nowrap class="form_field">&nbsp;</td>
594 
        <td align="right" nowrap class="form_field">&nbsp;</td>
595 
        <td><br>
596 
			<input type="hidden" name="group" value="<%=parGroup%>">
597 
			<input type="hidden" name="repnum" value="<%=parRepNum%>">
598 
			<input type="hidden" name="action" value="true">
599 
		<input name="Submit" type="submit" class="form_btn" value="Submit">
600 
        </td>
601 
      </tr>
602 
	  </form>
603 
    </table>
604 
	<%	Exit Sub
605 
	End If
606 
 
607 
 
608 
	If SSsection = "BODY" Then
609 
		If NOT CBool(Request("action")) Then Exit Sub
610 
 
611 
		Dim SSsql, issARR, num_item, iss_num_col, issNumDict, rsCQ, recCount, maxRecCount
612 
		Set rsCQ = Server.CreateObject("ADODB.Recordset")
613 
		Set issNumDict = CreateObject("Scripting.Dictionary")
614 
 
615 
 
616 
		'---- Find Issue numbers in ClearQuest ----
617 
		If CDbl(NNiss_db) = enumCLEARQUEST_MASSI_ID Then
618 
			iss_num_col = "new_num"
619 
			SSsql = _
620 
			" SELECT si.dbid AS iss_id, si."& iss_num_col &" AS iss_num"&_
621 
			" FROM MASSI.admin.software_issue si"&_
622 
			" WHERE "
623 
 
624 
 
625 
		ElseIf CDbl(NNiss_db) = enumCLEARQUEST_DPGIM_ID Then
626 
			iss_num_col = "new_num"
627 
			SSsql = _
628 
			" SELECT si.dbid AS iss_id, si."& iss_num_col &" AS iss_num"&_
629 
			" FROM DPGIM.admin.software_issue si"&_
630 
			" WHERE "
631 
 
632 
 
633 
		ElseIf CDbl(NNiss_db) = enumCLEARQUEST_DEVI_ID Then
634 
			iss_num_col = "new_num"
635 
			SSsql = _
636 
			" SELECT si.dbid AS iss_id, si."& iss_num_col &" AS iss_num"&_
637 
			" FROM DEVI_PROD.admin.software_issue si"&_
638 
			" WHERE "
639 
 
640 
 
641 
		ElseIf CDbl(NNiss_db) = enumCLEARQUEST_TDSE_ID Then
642 
			iss_num_col = "job_number"
643 
			SSsql = _
644 
			" SELECT dbid AS iss_id, si."& iss_num_col &" AS iss_num"&_
645 
			" FROM TDSE_2002.admin.request si"&_
646 
			" WHERE "
647 
 
648 
		End If
649 
 
650 
 
651 
		'---- Split multiple search ----
652 
		SSiss_num_list = Trim(SSiss_num_list)
653 
		If InStr( SSiss_num_list, " " ) > 0 Then
654 
			' space separator found
655 
			issARR = Split ( SSiss_num_list, " ")
656 
 
657 
			For Each num_item In issARR
658 
				If num_item <> "" Then
659 
					SSsql = SSsql & " (si."& iss_num_col &" LIKE '"& Replace( SQLstring(num_item), "*", "%" ) &"') OR"
660 
				End If
661 
			Next
662 
 
663 
			SSsql = Left ( SSsql, Len(SSsql) - 2 )		' Removes last OR
664 
 
665 
		Else
666 
			SSsql = SSsql & " (si."& iss_num_col &" LIKE '"& Replace( SQLstring(SSiss_num_list), "*", "%") &"')"
667 
 
668 
		End If
669 
 
670 
		rsCQ.ActiveConnection = CQ_conn
671 
		rsCQ.Source = SSsql
672 
		rsCQ.CursorType = 0
673 
		rsCQ.CursorLocation = 2
674 
		rsCQ.LockType = 3
675 
		rsCQ.Open()
676 
 
677 
		' Get find results from CQ
678 
		recCount = 1
679 
		maxRecCount = 1000
680 
		issNumDict.ADD "-1", "-1"		' take care of no results
681 
		While ((NOT rsCQ.BOF) AND (NOT rsCQ.EOF) AND (recCount < maxRecCount))
682 
			issNumDict.ADD Cstr(rsCQ("iss_id")), Cstr(rsCQ("iss_num"))
683 
			recCount = recCount + 1
684 
			rsCQ.MoveNext
685 
		WEnd
686 
 
687 
		rsCQ.Close
688 
		Set rsCQ = nothing
689 
 
690 
		Query_String = ReadFile( rootPath & "queries\rep_where_are_bugs_located.sql" )
691 
		Query_String = Replace ( Query_String, "/*ISS_DB*/", NNiss_db )
692 
		Query_String = Replace ( Query_String, "/*ISS_ID_LIST*/", Join( issNumDict.Keys, ",") )
693 
 
694 
	%>
695 
	<table width="100%" border="0" cellspacing="0" cellpadding="2">
696 
      <tr>
697 
        <td width="1%" nowrap class="body_colb">Issue Number&nbsp;&nbsp;&nbsp;</td>
698 
		<td width="1%" nowrap class="body_colb">Fixed At</td>
699 
        <td width="1%" nowrap class="body_colb">Package Name and Version&nbsp;&nbsp;&nbsp;</td>
700 
        <td width="1%" nowrap class="body_colb">Notes&nbsp;&nbsp;&nbsp;</td>
701 
        <td width="100%" nowrap class="body_colb">&nbsp;</td>
702 
      </tr>
703 
      <tr>
704 
        <td colspan="5" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
705 
      </tr>
706 
	   <%
707 
	  Dim currIss_id
708 
	  currIss_id = -1
709 
	  Set rsRep = OraDatabase.DbCreateDynaset( Query_String, 0 )
710 
 
711 
	  If rsRep.RecordCount = 0 Then
712 
	  	With Response
713 
			.write "<tr>"
714 
			.write "<td colspan='5' class='body_row'>Found 0 records</td>"
715 
			.write "</tr>"
716 
		End With
717 
	  End If
718 
 
719 
	  While ((NOT rsRep.BOF) AND (NOT rsRep.EOF))
720 
		  ' -------- GROUP BY ISS_ID -----------------
721 
		  If Cstr(currIss_id) <> Cstr(rsRep("iss_id")) Then
722 
		  %>
723 
		  <tr>
724 
	        <td colspan="4" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
725 
	        <td></td>
726 
	      </tr>
727 
	      <tr>
728 
	        <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>
729 
			<td colspan='4' class="body_scol"></td>
730 
	      </tr>
731 
		  <%
732 
		  	currIss_id = Cstr(rsRep("iss_id"))
733 
		  End If
734 
		  ' -------- END GROUP ------------------------
735 
		  %>
736 
	      <tr>
737 
		  	<td class="body_row"></td>
738 
			<%If CDbl(rsRep("iss_state")) = enumISSUES_STATE_FIXED Then%>
739 
		    	<td align="right"><img src="images/i_tick.gif" width="7" height="7" hspace="6"></td>
740 
			<%Else%>
741 
		    	<td align="right"><img src='images/spacer.gif' width='7' height='7' hspace='6'></td>
742 
			<%End If%>
743 
	        <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>
744 
	        <td nowrap><%=rsRep("notes")%></td>
745 
			<td class="body_row"></td>
746 
	      </tr>
747 
	  <%  rsRep.MoveNext
748 
	  WEnd
749 
	  %>
750 
	  <tr>
751 
        <td colspan="8" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
752 
      </tr>
753 
    </table>
754 
	<!-- PRINT, SAVE, ETC. ------------>
755 
	<%If parPrint = "" Then%>
756 
	<br>
757 
	<br>
758 
	<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>
759 
	<br>
760 
	<%End If%>
761 
	<!-- PRINT, SAVE, ETC. END -------->
762 
	<%
763 
		rsRep.Close
764 
		Set rsRep = nothing
765 
	End If
766 
 
767 
End Sub
768 
%>
769 
<%
770 
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
771 
'==================================================================================
772 
' Report Name		: 	Find a Package
773 
' Description		:	Locate a package in Release Manager
774 
' Form Input		:	Package Name, version extension
775 
'==================================================================================
776 
Sub Find_Package ( SSsection, SSpkg_name, SSv_ext )
777 
	Dim Query_String, rsRep, oRegExp
778 
 
779 
 
780 
	If SSsection = "TITLE" Then
781 
		Response.write "Find a Package"
782 
		Exit Sub
783 
	End If
784 
 
785 
 
786 
	If SSsection = "FORM" Then
787 
	%>
788 
	<table width="100%" border="0" cellpadding="2" cellspacing="1">
789 
	  <form action="<%=scriptName%>" method="post" name="repform" onSubmit="MM_validateForm('FRpkg_name','Package Name','R');return document.MM_returnValue">
790 
      <tr>
791 
        <td width="1%" nowrap class="form_field"><img src="images/spacer.gif" width="1" height="8"></td>
792 
        <td width="1%" align="right" nowrap class="form_field" valign="top">Package Name</td>
793 
        <td class="form_txt"><input type="text" name="FRpkg_name" size="30" class="form_item" value="<%=SSpkg_name%>"><br>
794 
		HINTS:<br>
795 
		- You can use * wildcard. e.g. *0123 or 0123* or *0123*<br><br></td>
796 
      </tr>
797 
      <tr>
798 
        <td nowrap class="form_field">&nbsp;</td>
799 
        <td align="right" nowrap class="form_field" valign="top">Version Extension (optional)</td>
800 
        <td class="form_txt"><input type="text" name="FRv_ext" size="10" class="form_item" value="<%=SSv_ext%>"><br>
801 
		e.g. .mas or .lvs or .oso or blank etc.</td>
802 
      </tr>
803 
      <tr>
804 
        <td nowrap class="form_field">&nbsp;</td>
805 
        <td align="right" nowrap class="form_field">&nbsp;</td>
806 
        <td><br>
807 
		<input type="hidden" name="group" value="<%=parGroup%>">
808 
		<input type="hidden" name="repnum" value="<%=parRepNum%>">
809 
		<input type="hidden" name="action" value="true">
810 
		<input name="Submit" type="submit" class="form_btn" value="Submit">
811 
        </td>
812 
      </tr>
813 
	  </form>
814 
    </table>
815 
	<%	Exit Sub
816 
	End If
817 
 
818 
 
819 
	If SSsection = "BODY" Then
820 
		If NOT CBool(Request("action")) Then Exit Sub
821 
 
822 
		If SSpkg_name = "" Then SSpkg_name = "%"
823 
		If SSv_ext = "" Then SSv_ext = "%"
824 
		If Request("withwcard") <> "" Then SSpkg_name = "%"& Replace( SQLstring(SSpkg_name), "*", "") &"%"		'Place wild card automatically
825 
 
826 
 
827 
 
828 
		' -- Check if this is PV_ID
829 
		Set oRegExp = New RegExp
830 
 
831 
		oRegExp.Global = False	'Find only first match
832 
	    oRegExp.Pattern = "\D" 'Match number only
833 
 
834 
 
835 
		If NOT oRegExp.Test(Request("FRpkg_name")) Then
836 
			Query_String = ReadFile( rootPath & "queries\rep_find_package_by_pv_id.sql" )
837 
			Query_String = Replace ( Query_String, "/*PV_ID*/", SQLstring(Request("FRpkg_name") )  )
838 
 
839 
		Else
840 
			Query_String = ReadFile( rootPath & "queries\rep_find_package.sql" )
841 
			Query_String = Replace ( Query_String, "/*PKG_NAME*/", Replace( SQLstring(SSpkg_name), "*", "%") )
842 
			Query_String = Replace ( Query_String, "/*V_EXT*/", Replace( SQLstring(SSv_ext), "*", "%") )
843 
		End If
844 
 
845 
		Response.Write(Query_String)
846 
	%>
847 
	<table width="100%" border="0" cellspacing="0" cellpadding="2">
848 
      <tr>
849 
        <td width="1%" nowrap class="body_colb">Package Name and Version&nbsp;&nbsp;&nbsp;</td>
850 
		<td width="1%" nowrap class="body_colb">Location</td>
851 
        <td width="100%" nowrap class="body_colb">&nbsp;</td>
852 
      </tr>
853 
      <tr>
854 
        <td colspan="3" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
855 
      </tr>
856 
	   <%
857 
	  Dim currPv_id
858 
	  currPv_id = -1
859 
	  Set rsRep = OraDatabase.DbCreateDynaset( Query_String, 0 )
860 
 
861 
	  If rsRep.RecordCount = 0 Then
862 
	  	With Response
863 
			.write "<tr>"
864 
			.write "<td colspan='3' class='body_row'>Found 0 records</td>"
865 
			.write "</tr>"
866 
		End With
867 
	  End If
868 
 
869 
	  While ((NOT rsRep.BOF) AND (NOT rsRep.EOF))
870 
		  ' -------- GROUP BY Package Version -----------------
871 
		  If Cstr(currPv_id) <> Cstr(rsRep("pv_id")) Then
872 
		  %>
873 
	      <tr>
874 
	        <td colspan="2" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
875 
	        <td></td>
876 
	      </tr>
877 
		  <tr>
878 
		    <%If Request("withwcard") <> "" Then%>
879 
			<%' Highlight results for package search from index page%>
880 
	        <td nowrap class="body_scol"><%=Highlight_Substring ( rsRep("pkg_name"), Replace( SQLstring(SSpkg_name), "%", "") )  &" "& rsRep("pkg_version")%></td>
881 
			<%Else%>
882 
			<td nowrap class="body_scol"><%=rsRep("pkg_name") &" "& rsRep("pkg_version")%></td>
883 
			<%End If%>
884 
			<td colspan='2' class="body_scol"></td>
885 
	      </tr>
886 
		  <%
887 
		  	currPv_id = Cstr(rsRep("pv_id"))
888 
		  End If
889 
		  ' -------- END GROUP ------------------------
890 
		  %>
891 
		  <%If NOT IsNull(rsRep("proj_name")) Then%>
892 
	      <tr>
893 
		  	<td class="body_row"></td>
894 
	        <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>
895 
			<td class="body_row"></td>
896 
	      </tr>
897 
		  <%Else%>
898 
		  <tr>
899 
		  	<td class="body_row"></td>
900 
	        <td class="body_row"></td>
901 
			<td class="body_row"></td>
902 
	      </tr>
903 
		  <%End If%>
904 
	  <%  rsRep.MoveNext
905 
	  WEnd
906 
	  %>
907 
	  <tr>
908 
        <td colspan="3" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
909 
      </tr>
910 
    </table>
911 
	<!-- PRINT, SAVE, ETC. ------------>
912 
	<%If parPrint = "" Then%>
913 
	<br>
914 
	<br>
915 
	<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>
916 
	<br>
917 
	<%End If%>
918 
	<!-- PRINT, SAVE, ETC. END -------->
919 
	<%
920 
		rsRep.Close
921 
		Set rsRep = nothing
922 
	End If
923 
 
924 
End Sub
925 
%>
926 
<%
927 
'==================================================================================
928 
' Report Name		: 	Find Package Version History
929 
' Description		:	Locate all package versions and their current location
930 
' Form Input		:	Package Name, version extension
931 
'==================================================================================
932 
Sub Find_Package_Version_History ( SSsection, SSpkg_name, SSv_ext )
933 
	Dim Query_String, rsRep
934 
 
935 
 
936 
	If SSsection = "TITLE" Then
937 
		Response.write "Find Package Version History"
938 
		Exit Sub
939 
	End If
940 
 
941 
 
942 
	If SSsection = "FORM" Then
943 
	%>
944 
	<table width="100%" border="0" cellpadding="2" cellspacing="1">
945 
	  <form action="<%=scriptName%>" method="post" name="repform" onSubmit="MM_validateForm('FRpkg_name','Package Name','R');return document.MM_returnValue">
946 
      <tr>
947 
        <td width="1%" nowrap class="form_field"><img src="images/spacer.gif" width="1" height="8"></td>
948 
        <td width="1%" align="right" nowrap class="form_field" valign="top">Package Name</td>
949 
        <td class="form_txt"><input type="text" name="FRpkg_name" size="30" class="form_item" value="<%=SSpkg_name%>"><br>
950 
		HINTS:<br>
951 
		- You can use * wildcard. e.g. *0123 or 0123* or *0123*<br><br></td>
952 
      </tr>
953 
      <tr>
954 
        <td nowrap class="form_field">&nbsp;</td>
955 
        <td align="right" nowrap class="form_field" valign="top">Version Extension (optional)</td>
956 
        <td class="form_txt"><input type="text" name="FRv_ext" size="10" class="form_item" value="<%=SSv_ext%>"><br>
957 
		e.g. .mas or .lvs or .oso or blank etc.</td>
958 
      </tr>
959 
      <tr>
960 
        <td nowrap class="form_field">&nbsp;</td>
961 
        <td align="right" nowrap class="form_field">&nbsp;</td>
962 
        <td><br>
963 
		<input type="hidden" name="group" value="<%=parGroup%>">
964 
		<input type="hidden" name="repnum" value="<%=parRepNum%>">
965 
		<input type="hidden" name="action" value="true">
966 
		<input name="Submit" type="submit" class="form_btn" value="Submit">
967 
        </td>
968 
      </tr>
969 
	  </form>
970 
    </table>
971 
	<%	Exit Sub
972 
	End If
973 
 
974 
 
975 
	If SSsection = "BODY" Then
976 
		Const img_Official = "<img src='images/i_locked.gif' width='7' height='10' hspace='3' align='absmiddle'>"
977 
		If NOT CBool(Request("action")) Then Exit Sub
978 
 
979 
		If SSpkg_name = "" Then SSpkg_name = "%"
980 
		If SSv_ext = "" Then SSv_ext = "%"
981 
 
982 
		Query_String = ReadFile( rootPath & "queries\rep_package_version_history.sql" )
983 
		Query_String = Replace ( Query_String, "/*PKG_NAME*/", Replace( SQLstring(SSpkg_name), "*", "%") )
984 
		Query_String = Replace ( Query_String, "/*V_EXT*/", Replace( SQLstring(SSv_ext), "*", "%") )
985 
	%>
986 
	<table width="100%" border="0" cellspacing="0" cellpadding="2">
987 
      <tr>
988 
	    <td width="1%" nowrap class="body_colb" align="right">Official<%=img_Official%></td>
989 
        <td width="1%" nowrap class="body_colb">Package Name and Version&nbsp;&nbsp;&nbsp;</td>
990 
		<td width="1%" nowrap class="body_colb">Location</td>
991 
        <td width="100%" nowrap class="body_colb">&nbsp;</td>
992 
      </tr>
993 
      <tr>
994 
        <td colspan="4" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
995 
      </tr>
996 
	   <%
997 
	  Dim currPv_id
998 
	  currPv_id = -1
999 
	  Set rsRep = OraDatabase.DbCreateDynaset( Query_String, 0 )
1000 
 
1001 
	  If rsRep.RecordCount = 0 Then
1002 
	  	With Response
1003 
			.write "<tr>"
1004 
			.write "<td colspan='4' class='body_row'>Found 0 records</td>"
1005 
			.write "</tr>"
1006 
		End With
1007 
	  End If
1008 
 
1009 
	  While ((NOT rsRep.BOF) AND (NOT rsRep.EOF))
1010 
		  ' -------- GROUP BY Package Version -----------------
1011 
		  If Cstr(currPv_id) <> Cstr(rsRep("pv_id")) Then
1012 
		  %>
1013 
	      <tr>
1014 
	        <td colspan="3" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
1015 
	        <td></td>
1016 
	      </tr>
1017 
		  <tr>
1018 
		    <td align="right"><%If rsRep("dlocked") = "Y" Then%><%=img_Official%><%End If%></td>
1019 
	        <td nowrap class="body_scol"><%=rsRep("pkg_name") &" "& rsRep("pkg_version")%></td>
1020 
			<td colspan='2' class="body_scol"></td>
1021 
	      </tr>
1022 
		  <%
1023 
		  	currPv_id = Cstr(rsRep("pv_id"))
1024 
		  End If
1025 
		  ' -------- END GROUP ------------------------
1026 
		  %>
1027 
	      <tr>
1028 
		    <td class="body_row"></td>
1029 
		  	<td class="body_row"></td>
1030 
			<%If IsNull(rsRep("rtag_id")) Then%>
1031 
	        	<td nowrap class="body_txt_gray" valign="top">Not Used!</td>
1032 
			<%Else%>
1033 
				<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>
1034 
			<%End If%>
1035 
			<td class="body_row"></td>
1036 
	      </tr>
1037 
	  <%  rsRep.MoveNext
1038 
	  WEnd
1039 
	  %>
1040 
	  <tr>
1041 
        <td colspan="4" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
1042 
      </tr>
1043 
    </table>
1044 
	<!-- PRINT, SAVE, ETC. ------------>
1045 
	<%If parPrint = "" Then%>
1046 
	<br>
1047 
	<br>
1048 
	<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>
1049 
	<br>
1050 
	<%End If%>
1051 
	<!-- PRINT, SAVE, ETC. END -------->
1052 
	<%
1053 
		rsRep.Close
1054 
		Set rsRep = nothing
1055 
	End If
1056 
 
1057 
End Sub
1058 
%>
1059 
<%
1060 
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
1061 
'==================================================================================
1062 
' Report Name		: 	Obsolete Packages
1063 
' Description		:	List packages that are not used (exclude products)
1064 
' INPUT				:	Project, Vesion Tree, Release Label
1065 
'==================================================================================
1066 
Sub Obsolete_Packages ( SSsection, NNproj_id, NNrtag_id )
1067 
	Dim Query_String, rsRep
1068 
	Const Allow_All = TRUE
1069 
	Const Disallow_All = FALSE
1070 
 
1071 
	If NNproj_id = "" Then NNproj_id = -1
1072 
	If NNrtag_id = "" Then NNrtag_id = -1
1073 
 
1074 
	If SSsection = "TITLE" Then
1075 
		Response.write "Unused Packages"
1076 
		Exit Sub
1077 
	End If
1078 
 
1079 
 
1080 
	If SSsection = "FORM" Then
1081 
	%>
1082 
	<table width="100%" border="0" cellpadding="2" cellspacing="1">
1083 
	  <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">
1084 
      <tr>
1085 
        <td width="1%" nowrap class="form_field"><img src="images/spacer.gif" width="30" height="8"></td>
1086 
        <td width="1%" align="right" nowrap class="form_field">Project</td>
1087 
        <td width="100%"><%Call Get_Projects( NNproj_id, Disallow_All )%></td>
1088 
      </tr>
1089 
      <tr>
1090 
        <td nowrap class="form_field">&nbsp;</td>
1091 
        <td align="right" nowrap class="form_field">Release</td>
1092 
        <td><%Call Get_Release_Labels ( NNproj_id, NNrtag_id, Disallow_All )%></td>
1093 
      </tr>
1094 
      <tr>
1095 
        <td nowrap class="form_field">&nbsp;</td>
1096 
        <td align="right" nowrap class="form_field">&nbsp;</td>
1097 
        <td><br>
1098 
			<input type="hidden" name="group" value="<%=parGroup%>">
1099 
			<input type="hidden" name="repnum" value="<%=parRepNum%>">
1100 
			<input type="hidden" name="action" value="true">
1101 
		<input name="Submit" type="submit" class="form_btn" value="Submit">
1102 
        </td>
1103 
      </tr>
1104 
	  </form>
1105 
    </table>
1106 
	<%	Exit Sub
1107 
	End If
1108 
 
1109 
 
1110 
	If SSsection = "BODY" Then
1111 
		If NOT CBool(Request("action")) Then Exit Sub
1112 
 
1113 
		Query_String = ReadFile( rootPath & "queries\rep_obsolete_packages.sql" )
1114 
 
1115 
		OraDatabase.Parameters.Add "RTAG_ID", NNrtag_id, ORAPARM_INPUT, ORATYPE_NUMBER
1116 
	%>
1117 
	<table width="100%" border="0" cellspacing="0" cellpadding="2">
1118 
      <tr>
1119 
	    <td width="1%" nowrap class="body_colb">&nbsp;</td>
1120 
        <td width="1%" nowrap class="body_colb">Package Name and Version&nbsp;&nbsp;&nbsp;</td>
1121 
		<td width="1%" nowrap class="body_colb">Released&nbsp;&nbsp;&nbsp;</td>
1122 
		<td width="1%" nowrap class="body_colb">Added to Release&nbsp;&nbsp;&nbsp;</td>
1123 
        <td width="100%" nowrap class="body_colb">&nbsp;</td>
1124 
      </tr>
1125 
      <tr>
1126 
        <td colspan="5" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
1127 
      </tr>
1128 
	   <%
1129 
	  Dim currView_id
1130 
	  currView_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='5' 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 BASE VIEW  -----------------
1143 
		  If CDbl(currView_id) <> CDbl(rsRep("view_id")) Then
1144 
		  %>
1145 
	      <tr>
1146 
	        <td colspan="4" 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 nowrap class="body_scol"><%=rsRep("view_name")%></td>
1151 
			<td class="body_scol"></td>
1152 
			<td class="body_scol"></td>
1153 
			<td class="body_scol"></td>
1154 
			<td class="body_scol"></td>
1155 
	      </tr>
1156 
		  <%
1157 
		  	currView_id = CDbl(rsRep("view_id"))
1158 
		  End If
1159 
		  ' -------- END GROUP ------------------------
1160 
		  %>
1161 
	      <tr>
1162 
		  	<td class="body_row"></td>
1163 
	        <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>
1164 
	        <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>
1165 
			<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>
1166 
			<td class="body_row"></td>
1167 
	      </tr>
1168 
	  <%  rsRep.MoveNext
1169 
	  WEnd
1170 
	  %>
1171 
	  <tr>
1172 
        <td colspan="5" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
1173 
      </tr>
1174 
    </table>
1175 
	<!-- PRINT, SAVE, ETC. ------------>
1176 
	<%If parPrint = "" Then%>
1177 
	<br>
1178 
	<br>
1179 
	<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>
1180 
	<br>
1181 
	<%End If%>
1182 
	<!-- PRINT, SAVE, ETC. END -------->
1183 
	<%
1184 
		rsRep.Close
1185 
		Set rsRep = nothing
1186 
	End If
1187 
 
1188 
End Sub
1189 
%>
1190 
<%
1191 
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
1192 
'==================================================================================
1193 
' Report Name		: 	Deployable Software Modules
1194 
' Description		:	Shows packages that are deployed to the customers and shows new packages marked as deployable.
1195 
' INPUT				:	Project, Vesion Tree, Release Label, Base View (hard-coded to PRODUCTS)
1196 
'==================================================================================
1197 
Sub Deployable_Software_Modules ( sSection, nProj_id,  nRtag_id, nBase_view_id )
1198 
	Dim Query_String, rsRep
1199 
	Const Allow_All = TRUE
1200 
	Const Disallow_All = FALSE
1201 
 
1202 
	If nProj_id = "" Then nProj_id = -1
1203 
	If nRtag_id = "" Then nRtag_id = -1
1204 
 
1205 
	If sSection = "TITLE" Then
1206 
		Response.write "Deployable Software Modules"
1207 
		Exit Sub
1208 
	End If
1209 
 
1210 
 
1211 
	If sSection = "FORM" Then
1212 
	%>
1213 
	<table width="100%" border="0" cellpadding="2" cellspacing="1">
1214 
	  <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">
1215 
      <tr>
1216 
        <td width="1%" nowrap class="form_field"><img src="images/spacer.gif" width="30" height="8"></td>
1217 
        <td width="1%" align="right" nowrap class="form_field">Project</td>
1218 
        <td width="100%"><%Call Get_Projects( nProj_id, Disallow_All )%></td>
1219 
      </tr>
1220 
      <tr>
1221 
        <td nowrap class="form_field">&nbsp;</td>
1222 
        <td align="right" nowrap class="form_field">Release</td>
1223 
        <td><%Call Get_Release_Labels ( nProj_id, nRtag_id, Disallow_All )%></td>
1224 
      </tr>
1225 
	  <tr>
1226 
        <td nowrap class="form_field">&nbsp;</td>
1227 
        <td align="right" nowrap class="form_field">Base View</td>
1228 
        <td><select name="noname" class='form_item' disabled>
1229 
				<option>PRODUCTS</option>
1230 
		    </select></td>
1231 
      </tr>
1232 
      <tr>
1233 
        <td nowrap class="form_field">&nbsp;</td>
1234 
        <td align="right" nowrap class="form_field">&nbsp;</td>
1235 
        <td><br>
1236 
			<input type="hidden" name="group" value="<%=parGroup%>">
1237 
			<input type="hidden" name="repnum" value="<%=parRepNum%>">
1238 
			<input type="hidden" name="FRbase_view_id" value="<%=enumBASE_VIEW_PRODUCTS%>">
1239 
			<input type="hidden" name="action" value="true">
1240 
		<input name="Submit" type="submit" class="form_btn" value="Submit">
1241 
        </td>
1242 
      </tr>
1243 
	  </form>
1244 
    </table>
1245 
	<%	Exit Sub
1246 
	End If
1247 
 
1248 
 
1249 
	If sSection = "BODY" Then
1250 
		If NOT CBool(Request("action")) Then Exit Sub
1251 
		'--- New Deployable Modules ---
1252 
		Query_String = ReadFile( rootPath & "queries\rep_new_deployable_packages.sql" )
1253 
 
1254 
		OraDatabase.Parameters.Add "RTAG_ID", 		nRtag_id, 		ORAPARM_INPUT, ORATYPE_NUMBER
1255 
		OraDatabase.Parameters.Add "BASE_VIEW_ID", 	nBase_view_id, 	ORAPARM_INPUT, ORATYPE_NUMBER
1256 
	%>
1257 
	<table width="100%"  border="0" cellspacing="0" cellpadding="2">
1258 
      <tr>
1259 
        <td nowrap class="body_colb" colspan="3" background="images/bg_bage.gif">&nbsp;New Deployable Package</td>
1260 
      </tr>
1261 
      <tr>
1262 
        <td background="images/bg_rep_line.gif" colspan="3"><img src="images/spacer.gif" width="1" height="1"></td>
1263 
      </tr>
1264 
	  <tr>
1265 
        <td width="1%" class="body_txt">Package Name</td>
1266 
		<td width="1%" class="body_txt">Version</td>
1267 
		<td width="100%" class="body_txt">Last Modifier</td>
1268 
      </tr>
1269 
	  <tr>
1270 
        <td background="images/bg_rep_line.gif" colspan="3"><img src="images/spacer.gif" width="1" height="1"></td>
1271 
      </tr>
1272 
	  <%
1273 
	  Set rsRep = OraDatabase.DbCreateDynaset( Query_String, 0 )
1274 
	  %>
1275 
	  <%If rsRep.RecordCount = 0 Then%>
1276 
	  <tr>
1277 
        <td nowrap class="body_row" colspan="3">Found 0 records! </td>
1278 
      </tr>
1279 
	  <%End If%>
1280 
	  <%While ((NOT rsRep.BOF) AND (NOT rsRep.EOF))%>
1281 
      <tr>
1282 
        <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>
1283 
		<td nowrap class="body_row"><%=rsRep("pkg_version")%></td>
1284 
		<td nowrap class="body_row"><%=rsRep("full_name")%></td>
1285 
      </tr>
1286 
	  <%rsRep.MoveNext
1287 
	    WEnd
1288 
	  rsRep.Close
1289 
	  Set rsRep = Nothing%>
1290 
	  <tr>
1291 
        <td background="images/bg_rep_line.gif" colspan="3"><img src="images/spacer.gif" width="1" height="1"></td>
1292 
      </tr>
1293 
	  <%
1294 
	  ' Go To Release link...
1295 
	  Query_String = _
1296 
	  " SELECT proj.PROJ_NAME, rt.RTAG_NAME"&_
1297 
	  "   FROM PROJECTS proj,"&_
1298 
	  "		   RELEASE_TAGS rt"&_
1299 
	  "	 WHERE rt.PROJ_ID = proj.proj_id"&_
1300 
	  "	   AND rt.rtag_id = :RTAG_ID"
1301 
	  Set rsRep = OraDatabase.DbCreateDynaset( Query_String, 0 )
1302 
	  %>
1303 
      <tr>
1304 
        <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>
1305 
      </tr>
1306 
	  <%
1307 
	  rsRep.Close
1308 
	  Set rsRep = Nothing%>
1309 
    </table>
1310 
	<br><br>
1311 
	<%
1312 
		'--- Current Deployable Modules ---
1313 
		Query_String = ReadFile( rootPath & "queries\rep_current_deployable_packages.sql" )
1314 
	%>
1315 
	<table width="100%"  border="0" cellspacing="0" cellpadding="2">
1316 
      <tr>
1317 
        <td colspan="4" nowrap class="body_colb" background="images/bg_bage.gif">&nbsp;Current Deployable Packages </td>
1318 
      </tr>
1319 
      <tr>
1320 
        <td colspan="4" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
1321 
      </tr>
1322 
	  <%
1323 
	  Dim currPv_id
1324 
	  currPv_id = -1
1325 
	  Set rsRep = OraDatabase.DbCreateDynaset( Query_String, 0 )
1326 
 
1327 
	  If rsRep.RecordCount = 0 Then
1328 
	  	With Response
1329 
			.write "<tr>"
1330 
			.write "<td colspan='4' class='body_row'>Found 0 records</td>"
1331 
			.write "</tr>"
1332 
		End With
1333 
	  End If
1334 
 
1335 
	  While ((NOT rsRep.BOF) AND (NOT rsRep.EOF))
1336 
		  ' -------- GROUP BY PRODUCT NAME  -----------------
1337 
		  If CDbl(currPv_id) <> CDbl(rsRep("pv_id")) Then
1338 
		  %>
1339 
      <tr>
1340 
        <td width="1%" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
1341 
        <td width="1%" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
1342 
		<td width="1%" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
1343 
        <td width="100%"><img src="images/spacer.gif" width="1" height="1"></td>
1344 
      </tr>
1345 
      <tr>
1346 
        <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>
1347 
        <td>&nbsp;</td>
1348 
		<td>&nbsp;</td>
1349 
        <td>&nbsp;</td>
1350 
      </tr>
1351 
	  <%
1352 
		  	currPv_id = CDbl(rsRep("pv_id"))
1353 
		  End If
1354 
		  ' -------- END GROUP ------------------------
1355 
		  %>
1356 
      <tr>
1357 
        <td>&nbsp;</td>
1358 
        <td nowrap><a href="dependencies.asp?pv_id=<%=rsRep("dpv_id")%>&rtag_id=<%=nRtag_id%>" class="txt_linked"><%=rsRep("dpkg_name")%></a></td>
1359 
		<td nowrap class="body_row"><%=rsRep("dpkg_version")%></td>
1360 
        <td nowrap class="err_alert"><%=rsRep("is_dep_deployable")%></td>
1361 
      </tr>
1362 
	  <%  rsRep.MoveNext
1363 
	  WEnd
1364 
	  %>
1365 
      <tr>
1366 
        <td colspan="4" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
1367 
      </tr>
1368 
    </table>
1369 
	<!-- PRINT, SAVE, ETC. ------------>
1370 
	<%If parPrint = "" Then%>
1371 
	<br>
1372 
	<br>
1373 
	<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>
1374 
	<br>
1375 
	<%End If%>
1376 
	<!-- PRINT, SAVE, ETC. END -------->
1377 
	<%
1378 
		rsRep.Close
1379 
		Set rsRep = nothing
1380 
	End If
1381 
 
1382 
End Sub
1383 
%>
1384 
 
1385 
<%
1386 
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
1387 
'==================================================================================
1388 
' Report Name		: 	Bill Of Materials
1389 
' Description		:	List products for a BOM
1390 
' INPUT				:
1391 
'==================================================================================
1392 
Sub Bill_of_Materials ( SSsection, NNproj_id, NNrtag_id, NNbom_id, NNversion )
1393 
	Dim Query_String, rsRep, rsQry
1394 
	Const Allow_All = TRUE
1395 
	Const Disallow_All = FALSE
1396 
 
1397 
	If NNproj_id = "" Then NNproj_id = -1
1398 
	If NNrtag_id = "" Then NNrtag_id = -1
1399 
	If NNversion = "" Then NNversion = -1
1400 
 
1401 
	If SSsection = "TITLE" Then
17 rsolanki 1402 
		Response.write "BOM - History Track"
13 rsolanki 1403 
		Exit Sub
1404 
	End If
1405 
 
1406 
 
1407 
	If SSsection = "FORM" Then
1408 
	%>
1409 
	<script language="JavaScript" src="images/calendar.js"></script>
1410 
	<table width="100%" border="0" cellpadding="2" cellspacing="1">
17 rsolanki 1411 
	  <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 1412 
      <tr>
1413 
        <td width="1%" nowrap class="form_field"><img src="images/spacer.gif" width="30" height="8"></td>
1414 
        <td width="1%" align="right" nowrap class="form_field">Project</td>
1415 
        <td width="100%"><%Call Get_Projects( NNproj_id, Disallow_All )%></td>
1416 
      </tr>
1417 
      <tr>
1418 
        <td nowrap class="form_field">&nbsp;</td>
1419 
        <td align="right" nowrap class="form_field">Release</td>
1420 
        <td><%Call Get_Release_labels ( NNproj_id, NNrtag_id, Disallow_All )%></td>
1421 
      </tr>
1422 
 	  <tr>
1423 
        <td nowrap class="form_field">&nbsp;</td>
1424 
        <td align="right" nowrap class="form_field">SBOM Version</td>
1425 
        <td><%Call Get_SBOM_Version ( NNproj_id, NNrtag_id, Disallow_All, NNversion )%></td>
1426 
      </tr>
1427 
      <tr>
1428 
        <td colspan="3" nowrap class="form_field">Between
1429 
        <input type="text" name="FRinitdate" maxlength="10" size="12" value="<%=Request.Form("FRinitdate")%>">
1430 
		<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>
1431 
        And
1432 
        <input type="text" name="FRduedate" maxlength="10" size="12" value="<%=Request.Form("FRduedate")%>">
1433 
        <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>
1434 
		</tr>
1435 
      <tr>
1436 
        <td nowrap class="form_field">&nbsp;</td>
1437 
        <td align="right" nowrap class="form_field">&nbsp;</td>
1438 
        <td><br>
1439 
			<input type="hidden" name="group" value="<%=parGroup%>">
1440 
			<input type="hidden" name="repnum" value="<%=parRepNum%>">
1441 
			<input type="hidden" name="FRrtag_id" value="<%=NNrtag_id%>">
17 rsolanki 1442 
 
13 rsolanki 1443 
			<input type="hidden" name="action" value="true">
1444 
		<input name="Submit" type="submit" class="form_btn" value="Submit">
1445 
        </td>
1446 
      </tr>
1447 
	  </form>
1448 
    </table>
1449 
	<p>
1450 
      <%	Exit Sub
1451 
	End If
1452 
 
1453 
 
1454 
 
1455 
	OraDatabase.Parameters.Add "BRANCH_ID", NNrtag_id, ORAPARM_INPUT, ORATYPE_NUMBER
1456 
	OraDatabase.Parameters.Add "BOM_VERSION", Request("FRVersion"), ORAPARM_INPUT, ORATYPE_STRING
1457 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("rep_SBOM.sql"), cint(0))
1458 
	Dim bomId
1459 
	bomId = rsQry("bom_id")
1460 
	rsQry.close
1461 
	Set rsQry = nothing
1462 
 
1463 
 
1464 
	If SSsection = "BODY" Then
1465 
		If NOT CBool(Request("action")) Then Exit Sub
1466 
 
17 rsolanki 1467 
		'Query_String = ReadFile( rootPath & "queries\AllProducts.sql" )
13 rsolanki 1468 
 
17 rsolanki 1469 
		'OraDatabase.Parameters.Add "BOM_ID", bomId, ORAPARM_INPUT, ORATYPE_NUMBER
13 rsolanki 1470 
	%>
1471 
	</p>
1472 
	<table width="20%" border="0" cellspacing="0" cellpadding="2">
17 rsolanki 1473 
                <tr>
1474 
				  <td width="1%" background="images/bg_bage_0.gif" class="body_col" nowrap>Trail</td>
1475 
                  <td width="1%" background="images/bg_bage_0.gif" class="body_col" nowrap>Date</td>
1476 
                  <td width="40%" background="images/bg_bage_0.gif" class="body_col" nowrap>Action</td>
1477 
				  <td width="1%" background="images/bg_bage_0.gif" class="body_col" nowrap>User</td>
1478 
                </tr>
13 rsolanki 1479 
      <tr>
17 rsolanki 1480 
        <td colspan="4" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
13 rsolanki 1481 
      </tr>
1482 
      <%
17 rsolanki 1483 
 
1484 
	  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 )
1485 
 
1486 
 
13 rsolanki 1487 
	  If rsRep.RecordCount = 0 Then
1488 
	  	With Response
1489 
			.write "<tr>"
17 rsolanki 1490 
 
1491 
 
1492 
			.write "<td colspan='5' class='body_row'>Found 0 bom trail records</td>"
13 rsolanki 1493 
			.write "</tr>"
1494 
		End With
17 rsolanki 1495 
	  Else
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 
      <tr>
1501 
        <td nowrap class="body_scol">Bom</td>
1502 
		<td nowrap class="body_scol"></td>
1503 
        <td nowrap class="body_scol"></td>
1504 
        <td nowrap class="body_scol"></td>
1505 
      </tr>
1506 
	  <%
13 rsolanki 1507 
	  While ((NOT rsRep.BOF) AND (NOT rsRep.EOF))
1508 
		  %>
1509 
      <tr>
17 rsolanki 1510 
 		<td nowrap class="body_scol"></td>
1511 
        <td nowrap class="body_row"><%=rsRep("date_time_stamp")%></td>
1512 
        <td nowrap class="body_row"><%=rsRep("trail_action")%></td>
1513 
		<td nowrap class="body_row"><%=rsRep("full_name")%></td>
13 rsolanki 1514 
      </tr>
17 rsolanki 1515 
      <%  rsRep.MoveNext
1516 
	  WEnd
1517 
	  End If
1518 
	  %>
13 rsolanki 1519 
      <tr>
17 rsolanki 1520 
        <td colspan="4" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
13 rsolanki 1521 
      </tr>
1522 
      <%
17 rsolanki 1523 
 
1524 
	  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 )
1525 
 
1526 
 
1527 
	  If rsRep.RecordCount = 0 Then
1528 
	  	With Response
1529 
			.write "<tr>"
1530 
 
1531 
 
1532 
			.write "<td colspan='5' class='body_row'>Found 0 node trail records</td>"
1533 
			.write "</tr>"
1534 
		End With
1535 
	  Else
1536 
	  %>
1537 
 
1538 
      <tr>
1539 
        <td nowrap class="body_scol">Node</td>
1540 
		<td nowrap class="body_scol"></td>
1541 
        <td nowrap class="body_scol"></td>
1542 
        <td nowrap class="body_scol"></td>
1543 
      </tr>
1544 
	  <%
1545 
	  While ((NOT rsRep.BOF) AND (NOT rsRep.EOF))
13 rsolanki 1546 
		  %>
1547 
      <tr>
17 rsolanki 1548 
 		<td nowrap class="body_scol"></td>
1549 
        <td nowrap class="body_row"><%=rsRep("date_time_stamp")%></td>
1550 
        <td nowrap class="body_row"><%=rsRep("trail_action")%></td>
1551 
		<td nowrap class="body_row"><%=rsRep("full_name")%></td>
13 rsolanki 1552 
      </tr>
1553 
      <%  rsRep.MoveNext
1554 
	  WEnd
17 rsolanki 1555 
	  End If
1556 
	  %>
1557 
      <tr>
1558 
        <td colspan="4" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
1559 
      </tr>
1560 
      <%
1561 
 
1562 
	  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 )
1563 
 
1564 
 
1565 
	  If rsRep.RecordCount = 0 Then
1566 
	  	With Response
1567 
			.write "<tr>"
1568 
 
1569 
 
1570 
			.write "<td colspan='5' class='body_row'>Found 0 operating systems trail records</td>"
1571 
			.write "</tr>"
1572 
		End With
1573 
	  Else
13 rsolanki 1574 
	  %>
17 rsolanki 1575 
	        <tr>
1576 
        <td colspan="4" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
1577 
      </tr>
13 rsolanki 1578 
      <tr>
17 rsolanki 1579 
        <td nowrap class="body_scol">Operating System</td>
1580 
		<td nowrap class="body_scol"></td>
1581 
        <td nowrap class="body_scol"></td>
1582 
        <td nowrap class="body_scol"></td>
13 rsolanki 1583 
      </tr>
17 rsolanki 1584 
	  <%
1585 
	  While ((NOT rsRep.BOF) AND (NOT rsRep.EOF))
1586 
		  %>
1587 
      <tr>
1588 
 		<td nowrap class="body_scol"></td>
1589 
        <td nowrap class="body_row"><%=rsRep("date_time_stamp")%></td>
1590 
        <td nowrap class="body_row"><%=rsRep("trail_action")%></td>
1591 
		<td nowrap class="body_row"><%=rsRep("full_name")%></td>
1592 
      </tr>
1593 
      <%  rsRep.MoveNext
1594 
	  WEnd
1595 
	  End If
1596 
	  %>
1597 
      <tr>
1598 
        <td colspan="4" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
1599 
      </tr>
13 rsolanki 1600 
    </table>
1601 
	<p>&nbsp;	  </p>
1602 
	<p>        <!-- PRINT, SAVE, ETC. ------------>
1603 
      <%If parPrint = "" Then%>
1604 
      <br>
1605 
      <br>
1606 
        <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>
1607 
      <br>
1608 
      <%End If%>
1609 
      <!-- PRINT, SAVE, ETC. END -------->
1610 
      <%
1611 
		rsRep.Close
1612 
		Set rsRep = nothing
1613 
	End If
1614 
 
1615 
End Sub
1616 
%>
1617 
 
1618 
<%
1619 
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
1620 
'==================================================================================
1621 
' Report Name		: 	Build History
1622 
' Description		:	List packages which were build between certain dates.
1623 
' INPUT				:
1624 
'==================================================================================
1625 
Sub Build_History ( SSsection, NNproj_id, NNrtag_id)
1626 
	Dim Query_String, rsRep, rsQry
1627 
	Const Allow_All = TRUE
1628 
	Const Disallow_All = FALSE
1629 
 
1630 
	If NNproj_id = "" Then NNproj_id = -1
1631 
	If NNrtag_id = "" Then NNrtag_id = -1
1632 
 
1633 
	If SSsection = "TITLE" Then
1634 
		Response.write "Build History"
1635 
		Exit Sub
1636 
	End If
1637 
 
1638 
 
1639 
	If SSsection = "FORM" Then
1640 
	%>
1641 
	<script language="JavaScript" src="images/calendar.js"></script>
1642 
	<table width="100%" border="0" cellpadding="2" cellspacing="1">
1643 
	  <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">
1644 
      <tr>
1645 
        <td width="1%" nowrap class="form_field"><img src="images/spacer.gif" width="30" height="8"></td>
1646 
        <td width="1%" align="right" nowrap class="form_field">Project</td>
1647 
        <td width="100%"><%Call Get_Projects( NNproj_id, Disallow_All )%></td>
1648 
 
1649 
      </tr>
1650 
      <tr>
1651 
        <td nowrap class="form_field">&nbsp;</td>
1652 
        <td align="right" nowrap class="form_field">Release</td>
1653 
        <td><%Call Get_Release_Labels ( NNproj_id,  NNrtag_id, Disallow_All )%></td>
1654 
 
1655 
      </tr>
1656 
      <tr>
1657 
        <td nowrap class="form_field">&nbsp;</td>
1658 
        <td align="right" nowrap class="form_field">SBOM Version</td>
1659 
        <td><%Call Get_Release_Labels ( NNproj_id,  NNrtag_id, Disallow_All )%></td>
1660 
      </tr>
1661 
      <tr>
1662 
        <td colspan="3" nowrap class="form_field">Between
1663 
        <input type="text" name="FRinitdate" maxlength="10" size="12" value="<%=Request.Form("FRinitdate")%>">
1664 
		<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>
1665 
        And
1666 
        <input type="text" name="FRduedate" maxlength="10" size="12" value="<%=Request.Form("FRduedate")%>">
1667 
        <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>
1668 
		</tr>
1669 
      <tr>
1670 
        <td nowrap class="form_field">&nbsp;</td>
1671 
        <td align="right" nowrap class="form_field">&nbsp;</td>
1672 
        <td><br>
1673 
			<input type="hidden" name="group" value="<%=parGroup%>">
1674 
			<input type="hidden" name="repnum" value="<%=parRepNum%>">
1675 
			<input type="hidden" name="action" value="true">
1676 
		<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">
1677 
        </td>
1678 
      </tr>
1679 
	  </form>
1680 
    </table>
1681 
	<p>
1682 
      <%	Exit Sub
1683 
	End If
1684 
 
1685 
 
1686 
	If SSsection = "BODY" Then
1687 
		If NOT CBool(Request("action")) Then Exit Sub
1688 
	%>
1689 
	</p>
1690 
	<table width="20%" border="0" cellspacing="0" cellpadding="2">
1691 
      <tr>
1692 
        <td width="1%" nowrap class="body_colb">&nbsp;</td>
1693 
        <td width="5%" nowrap class="body_colb">Package</td>
1694 
        <td width="95%" nowrap class="body_colb">Version</td>
1695 
      </tr>
1696 
      <tr>
1697 
        <td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
1698 
        <td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
1699 
        <td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
1700 
      </tr>
1701 
      <%
1702 
	  Dim currView_id
1703 
	  currView_id = -1
1704 
 
1705 
  		OraDatabase.Parameters.Add "RTAG_ID", NNrtag_id, ORAPARM_INPUT, ORATYPE_NUMBER
1706 
		OraDatabase.Parameters.Add "INITDATE", Request.Form("FRinitdate"), ORAPARM_INPUT, ORATYPE_STRING
1707 
		OraDatabase.Parameters.Add "DUEDATE", Request.Form("FRduedate"), ORAPARM_INPUT, ORATYPE_STRING
1708 
 
1709 
	  Set rsRep = OraDatabase.DbCreateDynaset( GetQuery("rep_build_history.sql"), cint(0) )
1710 
 
1711 
	  If rsRep.RecordCount = 0 Then
1712 
	  	With Response
1713 
			.write "<tr>"
1714 
			.write "<td colspan='5' class='body_row'>Found 0 records</td>"
1715 
			.write "</tr>"
1716 
		End With
1717 
	  End If
1718 
 
1719 
	  While ((NOT rsRep.BOF) AND (NOT rsRep.EOF))
1720 
		  ' -------- GROUP BY BASE VIEW  -----------------
1721 
		  If CDbl(currView_id) <> CDbl(rsRep("view_id")) Then
1722 
		  %>
1723 
      <tr>
1724 
        <td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
1725 
        <td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
1726 
        <td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
1727 
      </tr>
1728 
 
1729 
       <tr>
1730 
        <td valign="top" nowrap class="body_scol"><%=rsRep("view_name")%></td>
1731 
        <td>&nbsp;</td>
1732 
		<td>&nbsp;</td>
1733 
 
1734 
      </tr>
1735 
 
1736 
      <%
1737 
		  	currView_id = CDbl(rsRep("view_id"))
1738 
		  End If
1739 
		  ' -------- END GROUP ------------------------
1740 
		  %>
1741 
      <tr>
1742 
	    <td width="1%" nowrap class="body_colb">&nbsp;</td>
1743 
        <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>
1744 
        <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>
1745 
      </tr>
1746 
      <%  rsRep.MoveNext
1747 
	  WEnd
1748 
	  %>
1749 
      <tr>
1750 
        <td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
1751 
        <td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
1752 
        <td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
1753 
      </tr>
1754 
    </table>
1755 
	<p>&nbsp;	  </p>
1756 
	<p>        <!-- PRINT, SAVE, ETC. ------------>
1757 
      <%If parPrint = "" Then%>
1758 
      <br>
1759 
      <br>
1760 
        <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>
1761 
      <br>
1762 
      <%End If%>
1763 
      <!-- PRINT, SAVE, ETC. END -------->
1764 
      <%
1765 
		rsRep.Close
1766 
		Set rsRep = nothing
1767 
	End If
1768 
 
1769 
End Sub
1770 
%>
1771 
 
1772 
 
1773 
<%
1774 
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
1775 
'==================================================================================
1776 
' Report Name		: 	Unit Tests per Package
1777 
' Description		:	List unit tests per package showing the unit test completeness
1778 
' INPUT				:	Project, Vesion Tree, Release Label, Base View, Level of Completeness, Show/Hide Dependencies, PV_ID
1779 
'==================================================================================
1780 
Sub Unit_Tests_Per_Package ( sSection, nProj_id,  nRtag_id, nBase_view_id, nLevel_of_complete, nShow_dependencies, nPv_id )
1781 
	Dim Query_String, rsRep
1782 
	Const Allow_All = TRUE
1783 
	Const Disallow_All = FALSE
1784 
 
1785 
	If nProj_id = "" Then nProj_id = -1
1786 
	If nRtag_id = "" Then nRtag_id = -1
1787 
	If nShow_dependencies = "" Then nShow_dependencies = 0
1788 
	If nPv_id = "" Then nPv_id = -1
1789 
 
1790 
	If sSection = "TITLE" Then
1791 
		Response.write "Unit Tests per Package"
1792 
		Exit Sub
1793 
	End If
1794 
 
1795 
 
1796 
	If sSection = "FORM" Then
1797 
	%>
1798 
    </p>
1799 
	<table width="100%" border="0" cellpadding="2" cellspacing="1">
1800 
	  <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">
1801 
      <tr>
1802 
        <td width="1%" nowrap class="form_field"><img src="images/spacer.gif" width="30" height="8"></td>
1803 
        <td width="1%" align="right" nowrap class="form_field">Project</td>
1804 
        <td width="100%"><%Call Get_Projects( nProj_id, Disallow_All )%></td>
1805 
      </tr>
1806 
      <tr>
1807 
        <td nowrap class="form_field">&nbsp;</td>
1808 
        <td align="right" nowrap class="form_field">Release</td>
1809 
        <td><%Call Get_Release_Labels ( nProj_id,  nRtag_id, Disallow_All )%></td>
1810 
      </tr>
1811 
	  <tr>
1812 
        <td nowrap class="form_field">&nbsp;</td>
1813 
        <td align="right" nowrap class="form_field">Base View</td>
1814 
        <td><%Call Get_Base_Views ( nRtag_id, nBase_view_id, Allow_All )%></td>
1815 
      </tr>
1816 
	  <tr>
1817 
        <td nowrap class="form_field">&nbsp;</td>
1818 
        <td align="right" nowrap class="form_field">Show Dependencie's Unit Tests</td>
1819 
        <td><input type="checkbox" name="FRshow_deps" value="1" <%If nShow_dependencies <> 0 Then%>checked<%End If%>></td>
1820 
      </tr>
1821 
      <tr>
1822 
        <td nowrap class="form_field">&nbsp;</td>
1823 
        <td align="right" nowrap class="form_field">&nbsp;</td>
1824 
        <td><br>
1825 
			<input type="hidden" name="group" value="<%=parGroup%>">
1826 
			<input type="hidden" name="repnum" value="<%=parRepNum%>">
1827 
			<input type="hidden" name="FRtest_complete" value="0">
1828 
			<input type="hidden" name="action" value="true">
1829 
		<input name="Submit" type="submit" class="form_btn" value="Submit">
1830 
        </td>
1831 
      </tr>
1832 
	  </form>
1833 
    </table>
1834 
	<%	Exit Sub
1835 
	End If
1836 
 
1837 
 
1838 
	If sSection = "BODY" Then
1839 
		If NOT CBool(Request("action")) Then Exit Sub
1840 
 
1841 
		Query_String = ReadFile( rootPath & "queries\rep_unit_tests_per_package.sql" )
1842 
 
1843 
		OraDatabase.Parameters.Add "RTAG_ID", 		nRtag_id, 		ORAPARM_INPUT, ORATYPE_NUMBER
1844 
		OraDatabase.Parameters.Add "BASE_VIEW", 	nBase_view_id, 	ORAPARM_INPUT, ORATYPE_NUMBER
1845 
		OraDatabase.Parameters.Add "COMPLETENESS", 	nLevel_of_complete, ORAPARM_INPUT, ORATYPE_NUMBER
1846 
		OraDatabase.Parameters.Add "SHOW_DEPS", 	nShow_dependencies, ORAPARM_INPUT, ORATYPE_NUMBER
1847 
		OraDatabase.Parameters.Add "PV_ID", 		nPv_id, 		ORAPARM_INPUT, ORATYPE_NUMBER
1848 
	%>
1849 
	<table width="100%" border="0" cellspacing="0" cellpadding="1">
1850 
      <tr>
1851 
        <td width="1%" nowrap class="body_colb">&nbsp;</td>
1852 
        <td width="1%" nowrap class="body_colb">&nbsp;</td>
1853 
        <td width="1%" nowrap class="body_colb">Package Name&nbsp;&nbsp;&nbsp;</td>
1854 
        <td width="1%" nowrap class="body_colb">Version&nbsp;&nbsp;&nbsp;</td>
1855 
        <td width="1%" nowrap class="body_colb">Test Name&nbsp;&nbsp;&nbsp;</td>
1856 
        <td width="100%" nowrap class="body_colb">Test Summary&nbsp; </td>
1857 
        <td width="1%" nowrap class="body_colb"></td>
1858 
        <td width="1%" nowrap class="body_colb">Stamp</td>
1859 
        <td width="1%" nowrap class="body_colb">Test Completed &nbsp;&nbsp;&nbsp;</td>
1860 
      </tr>
1861 
      <tr>
1862 
        <td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
1863 
		<td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
1864 
		<td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
1865 
		<td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
1866 
		<td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
1867 
		<td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
1868 
		<td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
1869 
		<td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
1870 
		<td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
1871 
      </tr>
1872 
	  <%
1873 
	  Dim currBase_view_id, currPv_id, currDpv_id, showTests
1874 
	  currBase_view_id = -1
1875 
	  currPv_id = -1
1876 
	  currDpv_id = -1
1877 
 
1878 
	  Set rsRep = OraDatabase.DbCreateDynaset( Query_String, 0 )
1879 
 
1880 
	  If rsRep.RecordCount = 0 Then
1881 
	  	With Response
1882 
			.write "<tr>"
1883 
			.write "<td colspan='9' class='body_row'>Found 0 records</td>"
1884 
			.write "</tr>"
1885 
		End With
1886 
	  End If
1887 
 
1888 
	  While ((NOT rsRep.BOF) AND (NOT rsRep.EOF))
1889 
	  	  If nShow_dependencies <> 0 Then
1890 
		  	' show dependency is ON
1891 
		  	If rsRep("dpkg_name") = "------" Then
1892 
				showTests = FALSE
1893 
			Else
1894 
				showTests = TRUE
1895 
			End If
1896 
		  Else
1897 
		  	showTests = TRUE
1898 
		  End If
1899 
 
1900 
		  ' -------- GROUP BY BASE VIEW  -----------------
1901 
		  If CDbl(currBase_view_id) <> CDbl(rsRep("base_view_id")) Then
1902 
		  %>
1903 
	  <tr>
1904 
        <td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
1905 
		<td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
1906 
		<td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
1907 
		<td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
1908 
		<td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
1909 
		<td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
1910 
		<td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
1911 
		<td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
1912 
		<td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
1913 
      </tr>
1914 
       <tr>
1915 
        <td valign="top" nowrap class="body_scol"><%=rsRep("view_name")%></td>
1916 
        <td>&nbsp;</td>
1917 
		<td>&nbsp;</td>
1918 
		<td>&nbsp;</td>
1919 
		<td>&nbsp;</td>
1920 
		<td>&nbsp;</td>
1921 
		<td>&nbsp;</td>
1922 
		<td>&nbsp;</td>
1923 
		<td>&nbsp;</td>
1924 
      </tr>
1925 
	      <%
1926 
		  	currBase_view_id = CDbl(rsRep("base_view_id"))
1927 
		  End If
1928 
		  ' -------- END GROUP BASE VIEW ------------------------
1929 
		  %>
1930 
		  <%
1931 
		  ' -------- GROUP BY PACKAGE  -----------------
1932 
		  If CDbl(currPv_id) <> CDbl(rsRep("pv_id")) Then
1933 
		  %>
1934 
      <tr>
1935 
        <td><img src="images/spacer.gif" width="1" height="1"></td>
1936 
        <td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
1937 
		<td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
1938 
		<td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
1939 
		<td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
1940 
		<td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
1941 
		<td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
1942 
		<td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
1943 
		<td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
1944 
		<td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
1945 
      </tr>
1946 
      <tr>
1947 
        <td>&nbsp;</td>
1948 
        <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>
1949 
        <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>
1950 
        <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>
1951 
        <td>&nbsp;</td>
1952 
        <td>&nbsp;</td>
1953 
        <td>&nbsp;</td>
1954 
        <td>&nbsp;</td>
1955 
        <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>
1956 
      </tr>
1957 
	      <%
1958 
		  	currPv_id = CDbl(rsRep("pv_id"))
1959 
		  End If
1960 
		  ' -------- END GROUP PACKAGE ------------------------
1961 
		  %>
1962 
		  <%
1963 
		  ' -------- GROUP BY DEPENDENCY  -----------------
1964 
		  If Not IsNull(rsRep("dpv_id")) Then
1965 
		  	If CDbl(currDpv_id) <> CDbl(rsRep("dpv_id")) Then
1966 
		  %>
1967 
      <tr>
1968 
        <td>&nbsp;</td>
1969 
        <td>&nbsp;</td>
1970 
        <td>&nbsp;</td>
1971 
        <td>&nbsp;</td>
1972 
        <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>
1973 
        <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>
1974 
        <td>&nbsp;</td>
1975 
        <td>&nbsp;</td>
1976 
        <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>
1977 
      </tr>
1978 
	      <%
1979 
		  		currDpv_id = CDbl(rsRep("dpv_id"))
1980 
		  	End If
1981 
		  End If
1982 
		  ' -------- END GROUP DEPENDENCY ------------------------
1983 
		  %>
1984 
	  <%If Not IsNull( rsRep("completed_by") ) AND showTests Then%>
1985 
	  <tr>
1986 
        <td>&nbsp;</td>
1987 
        <td>&nbsp;</td>
1988 
		<td>&nbsp;</td>
1989 
		<td>&nbsp;</td>
1990 
        <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>
1991 
        <td bgcolor="#F5F5F5" valign="top" class="body_row"><%=NewLine_To_BR ( To_HTML ( rsRep("test_summary") ) )%></td>
1992 
        <td bgcolor="#F5F5F5" align="center" valign="top">	</td>
1993 
        <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>
1994 
        <td>&nbsp;</td>
1995 
      </tr>
1996 
	  <tr>
1997 
        <td><img src="images/spacer.gif" width="1" height="1"></td>
1998 
        <td><img src="images/spacer.gif" width="1" height="1"></td>
1999 
		<td><img src="images/spacer.gif" width="1" height="1"></td>
2000 
		<td><img src="images/spacer.gif" width="1" height="1"></td>
2001 
		<td><img src="images/spacer.gif" width="1" height="1"></td>
2002 
		<td><img src="images/spacer.gif" width="1" height="1"></td>
2003 
		<td><img src="images/spacer.gif" width="1" height="1"></td>
2004 
		<td><img src="images/spacer.gif" width="1" height="1"></td>
2005 
		<td><img src="images/spacer.gif" width="1" height="1"></td>
2006 
      </tr>
2007 
	  <%End If%>
2008 
	  <%  rsRep.MoveNext
2009 
	  WEnd
2010 
	  %>
2011 
      <tr>
2012 
        <td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
2013 
		<td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
2014 
		<td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
2015 
		<td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
2016 
		<td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
2017 
		<td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
2018 
		<td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
2019 
		<td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
2020 
		<td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
2021 
      </tr>
2022 
    </table>
2023 
 
2024 
	<!-- PRINT, SAVE, ETC. ------------>
2025 
	<%If parPrint = "" Then%>
2026 
	<br>
2027 
	<br>
2028 
	<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>
2029 
	<br>
2030 
	<%End If%>
2031 
	<!-- PRINT, SAVE, ETC. END -------->
2032 
	<%
2033 
		rsRep.Close
2034 
		Set rsRep = nothing
2035 
	End If
2036 
 
2037 
End Sub
2038 
%>