Subversion Repositories DevTools

Rev

Rev 64 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 64 Rev 70
Line 11... Line 11...
11 
%>  <!-- REPORTS LIST -------------------------------------------------------->
 11 
%>  <!-- REPORTS LIST -------------------------------------------------------->
12 
	<%Select Case SSgroup%>
 12 
	<%Select Case SSgroup%>
13 
	<%Case "Advanced_Search"%>
 13 
	<%Case "Advanced_Search"%>
14 
	<%repNum = 1%>
 14 
	<%repNum = 1%>
15 
	<strong>Find ClearQuest Bugs / Issues Location</strong><br>
 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>
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">
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%>
 18 
	<%repNum = 2%>
19 
    <strong>Find Packages Using "Ignore Warnings" feature</strong><br>
 19 
    <strong>Find Packages Using "Ignore Warnings" feature</strong><br>
20 
    Lists packages which use "Ignore Warning" feature on their dependencies.<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">
 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%>
 22 
	<%repNum = 4%>
23 
	<strong>Find A Package</strong><br>
 23 
	<strong>Find A Package</strong><br>
24 
    Use this advanced search to find a package in Release Manager<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">
 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%>
 26 
	<%repNum = 5%>
27 
	<strong>Find Package Version History</strong><br>
 27 
	<strong>Find Package Version History</strong><br>
28 
    Find all package versions and their current locations.<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">
 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"%>
 30 
	<%Case "Release_Status"%>
31 
	<%repNum = 3%>
 31 
	<%repNum = 3%>
32 
	<strong>Current Status of Release</strong><br>
 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>
 33 
	Shows all packages in a selected release with their current state, owner and last modifier.<br>
Line 40... Line 40...
40 
	<%repNum = 7%>
 40 
	<%repNum = 7%>
41 
	<strong>Unit Tests per Package</strong><br>
 41 
	<strong>Unit Tests per Package</strong><br>
42 
	Use this report to check the unit tests performed on packages in a project.<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">
 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>
 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>
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>
 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">
 47 
	Not available yet.<br><br><hr size="1" noshade color="#DAD7C8">
48 
	<%Case "Bom_History"%>
 48 
	<%Case "Bom_History"%>
49 
	<%repNum = 9%>
 49 
	<%repNum = 9%>
50 
	<strong>BOM History Tracker</strong><br>
 50 
	<strong>BOM History Tracker</strong><br>
Line 58... Line 58...
58 
	CSV output of all runtime dependencies used in Release Manager per Project.<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">
 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%>
 60 
	<%repNum = 6%>
61 
	<strong>Unused Packages</strong><br>
 61 
	<strong>Unused Packages</strong><br>
62 
	All packages (Not Products) with no entries in "Used By" tab.<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>
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">
 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"%>
 65 
	<%Case "Escrow"%>
66 
	<%repNum = 9%>
 66 
	<%repNum = 9%>
67 
	<strong>Bill of Materials (BOM)</strong><br>
 67 
	<strong>Bill of Materials (BOM)</strong><br>
68 
	List of all ERG Products per network node for a particular
68 
	List of all ERG Products per network node for a particular
69 
	project. Use this report to integrate a particular project.<br>
 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">
 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>
 71 
	<strong>Build Dependencies per Package</strong><br>
72 
	Use this report to build package from source code. The report
72 
	Use this report to build package from source code. The report
73 
	include package repository location, label and build dependencies.<br>
 73 
	include package repository location, label and build dependencies.<br>
74 
	Not available yet.<br><br><hr size="1" noshade color="#DAD7C8">
 74 
	Not available yet.<br><br><hr size="1" noshade color="#DAD7C8">
75 
	<strong>Build Order</strong><br>
 75 
	<strong>Build Order</strong><br>
76 
	Use this reports to find the order in which packages should be built.<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">
 77 
	Not available yet.<br><br><hr size="1" noshade color="#DAD7C8">
78 
	<%Case "Bom_Difference"%>
 78 
	<%Case "Bom_Difference"%>
79 
	<strong>BOM Version Difference Tool</strong><br>
 79 
	<strong>BOM Version Difference Tool</strong><br>
80 
	Use this tool to find what changes occured in a BOM compared to another BOM. <br>
 80 
	Use this tool to find what changes occured in a BOM compared to another BOM. <br>
81 
	A detailed report of changes between two BOMs can also be emailed upon user request.<br>
 81 
	A detailed report of changes between two BOMs can also be emailed upon user request.<br>
82 
    <a href="diff.asp" class="txt_linked">more...</a><br><br><hr size="1" noshade color="#DAD7C8">
82 
    <a href="diff.asp" class="txt_linked">more...</a><br><br><hr size="1" noshade color="#DAD7C8">
83 
	<%Case "Bom_Merge_Manager"%>
 83 
	<%Case "Bom_Merge_Manager"%>
84 
	<strong>BOM Merge Manager Tool</strong><br>
 84 
	<strong>BOM Merge Manager Tool</strong><br>
85 
	Use this tool to merge in a change from one BOM to another. <br>
 85 
	Use this tool to merge in a change from one BOM to another. <br>
86 
    <a href="diffmerge.asp" class="txt_linked">more...</a><br><br><hr size="1" noshade color="#DAD7C8">
86 
    <a href="diffmerge.asp" class="txt_linked">more...</a><br><br><hr size="1" noshade color="#DAD7C8">
87 
	<%Case Else%>
 87 
	<%Case Else%>
88 
	<b>&laquo; Select reporting category.</b>
 88 
	<b>&laquo; Select reporting category.</b>
89 
	<%End Select%>
 89 
	<%End Select%>
90 
	<!-- REPORTS LIST END-------------------------------------------------------->
 90 
	<!-- REPORTS LIST END-------------------------------------------------------->
91 
 
 91 
 
Line 93... Line 93...
93 
 
 93 
 
94 
<%
 94 
<%
95 
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
 95 
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
96 
Sub Get_Projects ( NNproj_id, BBallow_all )
 96 
Sub Get_Projects ( NNproj_id, BBallow_all )
97 
	Dim rsTemp, Query_String
 97 
	Dim rsTemp, Query_String
98
98 
 
99 
	Query_String = _
 99 
	Query_String = _
100 
	"SELECT * FROM DM_PROJECTS ORDER BY proj_name ASC"
 100 
	"SELECT * FROM DM_PROJECTS ORDER BY proj_name ASC"
101 
	Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
 101 
	Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
102
102 
 
103 
	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'>"
 103 
	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'>"
104 
		If BBallow_all Then
 104 
		If BBallow_all Then
105 
			Response.write "<option value='-1'>ALL</option>"
 105 
			Response.write "<option value='-1'>ALL</option>"
106 
		Else
 106 
		Else
107 
			Response.write "<option></option>"
 107 
			Response.write "<option></option>"
108 
		End If
 108 
		End If
109
109 
 
110 
		While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
 110 
		While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
111 
			If CDbl(NNproj_id) = CDbl(rsTemp.Fields("proj_id")) Then
 111 
			If CDbl(NNproj_id) = CDbl(rsTemp.Fields("proj_id")) Then
112 
	        	Response.write "<option value='"& rsTemp.Fields("proj_id") &"' selected>"& UCase(rsTemp.Fields("proj_name")) &"</option>"
 112 
	        	Response.write "<option value='"& rsTemp.Fields("proj_id") &"' selected>"& UCase(rsTemp.Fields("proj_name")) &"</option>"
113 
	        Else
 113 
	        Else
114 
				Response.write "<option value='"& rsTemp.Fields("proj_id") &"'>"& UCase(rsTemp.Fields("proj_name")) &"</option>"
 114 
				Response.write "<option value='"& rsTemp.Fields("proj_id") &"'>"& UCase(rsTemp.Fields("proj_name")) &"</option>"
115 
			End If
 115 
			End If
116 
			rsTemp.MoveNext
 116 
			rsTemp.MoveNext
117 
		WEnd
 117 
		WEnd
118 
	Response.write "</select>"
 118 
	Response.write "</select>"
119
119 
 
120 
	rsTemp.Close
 120 
	rsTemp.Close
121 
	Set rsTemp = nothing
 121 
	Set rsTemp = nothing
122 
End Sub
 122 
End Sub
123 
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
 123 
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
124 
Sub Get_Version_Trees ( NNproj_id, NNvtree_id, BBallow_all )
 124 
Sub Get_Version_Trees ( NNproj_id, NNvtree_id, BBallow_all )
125 
	Dim rsTemp, Query_String
 125 
	Dim rsTemp, Query_String
126
126 
 
127 
	Query_String = _
 127 
	Query_String = _
128 
	"SELECT vtree_id, vtree_name FROM vtrees WHERE hide = 'N' AND proj_id = "& NNproj_id &" ORDER BY vtree_id ASC"
 128 
	"SELECT vtree_id, vtree_name FROM vtrees WHERE hide = 'N' AND proj_id = "& NNproj_id &" ORDER BY vtree_id ASC"
129 
	Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
 129 
	Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
130
130 
 
131 
	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'>"
 131 
	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'>"
132 
		If BBallow_all Then
 132 
		If BBallow_all Then
133 
			Response.write "<option value='-1'>ALL</option>"
 133 
			Response.write "<option value='-1'>ALL</option>"
134 
		Else
 134 
		Else
135 
			Response.write "<option></option>"
 135 
			Response.write "<option></option>"
136 
		End If
 136 
		End If
137
137 
 
138 
		If NNproj_id <> -1 Then
 138 
		If NNproj_id <> -1 Then
139 
			While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
 139 
			While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
140 
				If CDbl(NNvtree_id) = CDbl(rsTemp.Fields("vtree_id")) Then
 140 
				If CDbl(NNvtree_id) = CDbl(rsTemp.Fields("vtree_id")) Then
141 
		        	Response.write "<option value='"& rsTemp.Fields("vtree_id") &"' selected>"& (rsTemp.Fields("vtree_name")) &"</option>"
 141 
		        	Response.write "<option value='"& rsTemp.Fields("vtree_id") &"' selected>"& (rsTemp.Fields("vtree_name")) &"</option>"
142 
		        Else
 142 
		        Else
Line 144... Line 144...
144 
				End If
 144 
				End If
145 
				rsTemp.MoveNext
 145 
				rsTemp.MoveNext
146 
			WEnd
 146 
			WEnd
147 
		End If
 147 
		End If
148 
	Response.write "</select>"
 148 
	Response.write "</select>"
149
149 
 
150 
	rsTemp.Close
 150 
	rsTemp.Close
151 
	Set rsTemp = nothing
 151 
	Set rsTemp = nothing
152 
End Sub
 152 
End Sub
153 
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
 153 
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
154 
Sub Get_Release_Labels ( NNproj_id, NNrtag_id, BBallow_all )
 154 
Sub Get_Release_Labels ( NNproj_id, NNrtag_id, BBallow_all )
155 
	Dim rsTemp, Query_String
 155 
	Dim rsTemp, Query_String
156 
 
 156 
 
157 
	Query_String = _
 157 
	Query_String = _
158 
	"SELECT * FROM BRANCHES WHERE proj_id = "& NNproj_id &" ORDER BY branch_id ASC"
 158 
	"SELECT * FROM BRANCHES WHERE proj_id = "& NNproj_id &" ORDER BY branch_id ASC"
159 
	Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
 159 
	Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
160
160 
 
161 
	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'>"
 161 
	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'>"
162 
	If BBallow_all Then
 162 
	If BBallow_all Then
163 
		Response.write "<option value='-1'>ALL</option>"
 163 
		Response.write "<option value='-1'>ALL</option>"
164 
	Else
 164 
	Else
165 
		Response.write "<option></option>"
 165 
		Response.write "<option></option>"
166 
	End If
 166 
	End If
167
167 
 
168 
		If NNproj_id <> -1 Then
 168 
		If NNproj_id <> -1 Then
169 
			While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
 169 
			While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
170 
				If CDbl(NNrtag_id) = CDbl(rsTemp.Fields("branch_id")) Then
 170 
				If CDbl(NNrtag_id) = CDbl(rsTemp.Fields("branch_id")) Then
171 
		        	Response.write "<option value='"& rsTemp.Fields("branch_id") &"' selected>"& (rsTemp.Fields("branch_name")) &"</option>"
 171 
		        	Response.write "<option value='"& rsTemp.Fields("branch_id") &"' selected>"& (rsTemp.Fields("branch_name")) &"</option>"
172 
		        Else
 172 
		        Else
Line 174... Line 174...
174 
				End If
 174 
				End If
175 
				rsTemp.MoveNext
 175 
				rsTemp.MoveNext
176 
			WEnd
 176 
			WEnd
177 
		End If
 177 
		End If
178 
	Response.write "</select>"
 178 
	Response.write "</select>"
179
179 
 
180 
	rsTemp.Close
 180 
	rsTemp.Close
181 
	Set rsTemp = nothing
 181 
	Set rsTemp = nothing
182 
End Sub
 182 
End Sub
183 
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
 183 
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
184 
Sub Get_SBOM_Version ( NNproj_id, NNrtag_id, BBallow_all, NNversion )
 184 
Sub Get_SBOM_Version ( NNproj_id, NNrtag_id, BBallow_all, NNversion )
185 
	Dim rsTemp, Query_String
 185 
	Dim rsTemp, Query_String
186
186 
 
187 
	Query_String = _
 187 
	Query_String = _
188 
	"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"
 188 
	"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"
189 
 
 189 
 
190
190 
 
191 
	Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
 191 
	Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
192
192 
 
193 
 
 193 
 
194 
	Response.write "<select name='FRversion' class='form_item'>"
 194 
	Response.write "<select name='FRversion' class='form_item'>"
195 
	If BBallow_all Then
 195 
	If BBallow_all Then
196 
		Response.write "<option value='-1'>ALL</option>"
 196 
		Response.write "<option value='-1'>ALL</option>"
197 
	Else
 197 
	Else
Line 214... Line 214...
214 
 
 214 
 
215 
End Sub
 215 
End Sub
216 
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
 216 
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
217 
Sub Get_Branches ( NNproj_id, NNrtag_id, BBallow_all )
 217 
Sub Get_Branches ( NNproj_id, NNrtag_id, BBallow_all )
218 
	Dim rsTemp, Query_String
 218 
	Dim rsTemp, Query_String
219
219 
 
220 
	Query_String = _
 220 
	Query_String = _
221 
	"SELECT * FROM branches WHERE proj_id = "& NNproj_id &" ORDER BY branch_id ASC"
 221 
	"SELECT * FROM branches WHERE proj_id = "& NNproj_id &" ORDER BY branch_id ASC"
222 
	Set rsTemp = OraDatabaseDM.DbCreateDynaset( Query_String, cint(0))
 222 
	Set rsTemp = OraDatabaseDM.DbCreateDynaset( Query_String, cint(0))
223 
	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'>"
 223 
	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'>"
224 
	If BBallow_all Then
 224 
	If BBallow_all Then
225 
		Response.write "<option value='-1'>ALL</option>"
 225 
		Response.write "<option value='-1'>ALL</option>"
226 
	Else
 226 
	Else
227 
		Response.write "<option></option>"
 227 
		Response.write "<option></option>"
228 
	End If
 228 
	End If
229
229 
 
230 
		If NNproj_id <> -1 Then
 230 
		If NNproj_id <> -1 Then
231 
			While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
 231 
			While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
232 
				If CDbl(NNrtag_id) = CDbl(rsTemp.Fields("branch_id")) Then
 232 
				If CDbl(NNrtag_id) = CDbl(rsTemp.Fields("branch_id")) Then
233 
		        	Response.write "<option value='"& rsTemp.Fields("branch_id") &"' selected>"& (rsTemp.Fields("branch_name")) &"</option>"
 233 
		        	Response.write "<option value='"& rsTemp.Fields("branch_id") &"' selected>"& (rsTemp.Fields("branch_name")) &"</option>"
234 
		        Else
 234 
		        Else
Line 244... Line 244...
244 
End Sub
 244 
End Sub
245 
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
 245 
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
246 
 
 246 
 
247 
Sub Get_Base_Views ( nRtag_id, nBase_view_id, BBallow_all )
 247 
Sub Get_Base_Views ( nRtag_id, nBase_view_id, BBallow_all )
248 
	Dim rsTemp, Query_String
 248 
	Dim rsTemp, Query_String
249
249 
 
250 
	Query_String = _
 250 
	Query_String = _
251 
	"SELECT DISTINCT vi.view_id, vi.view_name"&_
 251 
	"SELECT DISTINCT vi.view_id, vi.view_name"&_
252 
	"  FROM VIEWS vi,"&_
 252 
	"  FROM VIEWS vi,"&_
253 
	"   		RELEASE_CONTENT rc"&_
 253 
	"   		RELEASE_CONTENT rc"&_
254 
	" WHERE rc.BASE_VIEW_ID = vi.VIEW_ID"&_
 254 
	" WHERE rc.BASE_VIEW_ID = vi.VIEW_ID"&_
255 
	"   AND rc.rtag_id = "& nRtag_id &_
 255 
	"   AND rc.rtag_id = "& nRtag_id &_
256 
	"ORDER BY UPPER( vi.view_name )"
 256 
	"ORDER BY UPPER( vi.view_name )"
257
257 
 
258 
	Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
 258 
	Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
259
259 
 
260 
	Response.write "<select name='FRbase_view_id' class='form_item'>"
 260 
	Response.write "<select name='FRbase_view_id' class='form_item'>"
261 
	If BBallow_all Then
 261 
	If BBallow_all Then
262 
		Response.write "<option value='-1'>ALL</option>"
 262 
		Response.write "<option value='-1'>ALL</option>"
263 
	Else
 263 
	Else
264 
		Response.write "<option></option>"
 264 
		Response.write "<option></option>"
265 
	End If
 265 
	End If
266
266 
 
267 
		If nRtag_id <> -1 Then
 267 
		If nRtag_id <> -1 Then
268 
			While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
 268 
			While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
269 
				If CDbl(nBase_view_id) = CDbl(rsTemp.Fields("view_id")) Then
 269 
				If CDbl(nBase_view_id) = CDbl(rsTemp.Fields("view_id")) Then
270 
		        	Response.write "<option value='"& rsTemp.Fields("view_id") &"' selected>"& (rsTemp.Fields("view_name")) &"</option>"
 270 
		        	Response.write "<option value='"& rsTemp.Fields("view_id") &"' selected>"& (rsTemp.Fields("view_name")) &"</option>"
271 
		        Else
 271 
		        Else
Line 273... Line 273...
273 
				End If
 273 
				End If
274 
				rsTemp.MoveNext
 274 
				rsTemp.MoveNext
275 
			WEnd
 275 
			WEnd
276 
		End If
 276 
		End If
277 
	Response.write "</select>"
 277 
	Response.write "</select>"
278
278 
 
279 
	rsTemp.Close
 279 
	rsTemp.Close
280 
	Set rsTemp = nothing
 280 
	Set rsTemp = nothing
281 
End Sub
 281 
End Sub
282 
%>
 282 
%>
283 
<%
 283 
<%
284 
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
 284 
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
285 
'==================================================================================
 285 
'==================================================================================
286 
' Report Name		: 	Packages Using Ignore Feature
 286 
' Report Name		: 	Packages Using Ignore Feature
287 
' Description		:	Lists packages which use "Ignore Warning"
287 
' Description		:	Lists packages which use "Ignore Warning"
288 
'						feature on their dependencies.
 288 
'						feature on their dependencies.
289 
' INPUT				:	Project, Vesion Tree, Release Label
 289 
' INPUT				:	Project, Vesion Tree, Release Label
290 
'==================================================================================
 290 
'==================================================================================
291 
Sub Packages_Using_Ignore_Feature ( SSsection, NNproj_id, NNrtag_id )
 291 
Sub Packages_Using_Ignore_Feature ( SSsection, NNproj_id, NNrtag_id )
292 
	Dim Query_String, rsRep
 292 
	Dim Query_String, rsRep
293 
	Const Allow_All = TRUE
 293 
	Const Allow_All = TRUE
294
294 
 
295 
	If NNproj_id = "" Then NNproj_id = -1
 295 
	If NNproj_id = "" Then NNproj_id = -1
296 
	If NNrtag_id = "" Then NNrtag_id = -1
 296 
	If NNrtag_id = "" Then NNrtag_id = -1
297
297 
 
298 
	If SSsection = "TITLE" Then
 298 
	If SSsection = "TITLE" Then
299 
		Response.write "Packages Using 'Ignore Warnings' Feature"
 299 
		Response.write "Packages Using 'Ignore Warnings' Feature"
300 
		Exit Sub
 300 
		Exit Sub
301 
	End If
 301 
	End If
302
302 
 
303
303 
 
304 
	If SSsection = "FORM" Then
 304 
	If SSsection = "FORM" Then
305 
	%>
 305 
	%>
306 
	<table width="100%" border="0" cellpadding="2" cellspacing="1">
 306 
	<table width="100%" border="0" cellpadding="2" cellspacing="1">
307 
	  <form action="<%=scriptName%>" method="post" name="repform">
 307 
	  <form action="<%=scriptName%>" method="post" name="repform">
308 
      <tr>
308 
      <tr>
309 
        <td width="1%" nowrap class="form_field"><img src="images/spacer.gif" width="30" height="8"></td>
 309 
        <td width="1%" nowrap class="form_field"><img src="images/spacer.gif" width="30" height="8"></td>
310 
        <td width="1%" align="right" nowrap class="form_field">Project</td>
 310 
        <td width="1%" align="right" nowrap class="form_field">Project</td>
311 
        <td width="100%"><%Call Get_Projects( NNproj_id, Allow_All )%></td>
 311 
        <td width="100%"><%Call Get_Projects( NNproj_id, Allow_All )%></td>
312 
      </tr>
 312 
      </tr>
313 
      <tr>
313 
      <tr>
314 
        <td nowrap class="form_field">&nbsp;</td>
 314 
        <td nowrap class="form_field">&nbsp;</td>
315 
        <td align="right" nowrap class="form_field">Release</td>
 315 
        <td align="right" nowrap class="form_field">Release</td>
316 
        <td><%Call Get_Release_Labels ( NNproj_id,  NNrtag_id, Allow_All )%></td>
 316 
        <td><%Call Get_Release_Labels ( NNproj_id,  NNrtag_id, Allow_All )%></td>
317 
      </tr>
 317 
      </tr>
318 
      <tr>
318 
      <tr>
319 
        <td nowrap class="form_field">&nbsp;</td>
 319 
        <td nowrap class="form_field">&nbsp;</td>
320 
        <td align="right" nowrap class="form_field">&nbsp;</td>
 320 
        <td align="right" nowrap class="form_field">&nbsp;</td>
321 
        <td><br>
 321 
        <td><br>
322 
			<input type="hidden" name="group" value="<%=parGroup%>">
 322 
			<input type="hidden" name="group" value="<%=parGroup%>">
323 
			<input type="hidden" name="repnum" value="<%=parRepNum%>">
 323 
			<input type="hidden" name="repnum" value="<%=parRepNum%>">
324 
			<input type="hidden" name="action" value="true">
 324 
			<input type="hidden" name="action" value="true">
325 
		<input name="Submit" type="submit" class="form_btn" value="Submit">
325 
		<input name="Submit" type="submit" class="form_btn" value="Submit">
326 
        </td>
 326 
        </td>
327 
      </tr>
 327 
      </tr>
328 
	  </form>
 328 
	  </form>
329 
    </table>
 329 
    </table>
330 
	<%	Exit Sub
 330 
	<%	Exit Sub
331 
	End If
 331 
	End If
332
332 
 
333
333 
 
334 
	If SSsection = "BODY" Then
 334 
	If SSsection = "BODY" Then
335 
		If NOT CBool(Request("action")) Then Exit Sub
 335 
		If NOT CBool(Request("action")) Then Exit Sub
336
336 
 
337 
		Query_String = ReadFile( rootPath & "queries\rep_packages_using_ignore_feature.sql" )
 337 
		Query_String = ReadFile( rootPath & "queries\rep_packages_using_ignore_feature.sql" )
338
338 
 
339 
		OraDatabase.Parameters.Add "PROJ_ID", NNproj_id, ORAPARM_INPUT, ORATYPE_NUMBER
 339 
		OraDatabase.Parameters.Add "PROJ_ID", NNproj_id, ORAPARM_INPUT, ORATYPE_NUMBER
340 
		OraDatabase.Parameters.Add "RTAG_ID", NNrtag_id, ORAPARM_INPUT, ORATYPE_NUMBER
 340 
		OraDatabase.Parameters.Add "RTAG_ID", NNrtag_id, ORAPARM_INPUT, ORATYPE_NUMBER
341 
	%>
 341 
	%>
342 
	<table width="100%" border="0" cellspacing="0" cellpadding="2">
 342 
	<table width="100%" border="0" cellspacing="0" cellpadding="2">
343 
      <tr>
343 
      <tr>
344 
        <td width="1%" nowrap class="body_colb">&nbsp;</td>
 344 
        <td width="1%" nowrap class="body_colb">&nbsp;</td>
345 
        <td width="1%" nowrap class="body_colb">Package Name&nbsp;&nbsp;&nbsp;</td>
 345 
        <td width="1%" nowrap class="body_colb">Package Name&nbsp;&nbsp;&nbsp;</td>
346 
        <td width="1%" nowrap class="body_colb">Version&nbsp;&nbsp;&nbsp;</td>
 346 
        <td width="1%" nowrap class="body_colb">Version&nbsp;&nbsp;&nbsp;</td>
347 
        <td width="100%" nowrap class="body_colb">&nbsp;</td>
 347 
        <td width="100%" nowrap class="body_colb">&nbsp;</td>
348 
      </tr>
 348 
      </tr>
349 
      <tr>
349 
      <tr>
350 
        <td colspan="4" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 350 
        <td colspan="4" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
351 
      </tr>
 351 
      </tr>
352 
	  <%
 352 
	  <%
353 
	  Dim currRtag_id
 353 
	  Dim currRtag_id
354 
	  currRtag_id = -1
 354 
	  currRtag_id = -1
355 
	  Set rsRep = OraDatabase.DbCreateDynaset( Query_String, 0 )
 355 
	  Set rsRep = OraDatabase.DbCreateDynaset( Query_String, 0 )
356
356 
 
357 
	  If rsRep.RecordCount = 0 Then
 357 
	  If rsRep.RecordCount = 0 Then
358 
	  	With Response
 358 
	  	With Response
359 
			.write "<tr>"
 359 
			.write "<tr>"
360 
			.write "<td colspan='4' class='body_row'>Found 0 records</td>"
 360 
			.write "<td colspan='4' class='body_row'>Found 0 records</td>"
361 
			.write "</tr>"
 361 
			.write "</tr>"
362 
		End With
 362 
		End With
363 
	  End If
 363 
	  End If
364
364 
 
365 
	  While ((NOT rsRep.BOF) AND (NOT rsRep.EOF))
 365 
	  While ((NOT rsRep.BOF) AND (NOT rsRep.EOF))
366 
		  ' -------- GROUP BY RTAG_ID -----------------
 366 
		  ' -------- GROUP BY RTAG_ID -----------------
367 
		  If CDbl(currRtag_id) <> CDbl(rsRep("rtag_id")) Then
 367 
		  If CDbl(currRtag_id) <> CDbl(rsRep("rtag_id")) Then
368 
		  %>
 368 
		  %>
369 
	      <tr>
369 
	      <tr>
370 
	        <td colspan="3" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 370 
	        <td colspan="3" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
371 
	        <td></td>
 371 
	        <td></td>
372 
	      </tr>
 372 
	      </tr>
373 
	      <tr>
373 
	      <tr>
374 
	        <td colspan="4" nowrap class="body_scol"><%=rsRep("proj_name")  &" &gt; "& rsRep("rtag_name")%></td>
 374 
	        <td colspan="4" nowrap class="body_scol"><%=rsRep("proj_name")  &" &gt; "& rsRep("rtag_name")%></td>
375 
	      </tr>
 375 
	      </tr>
376 
		  <%
 376 
		  <%
377 
		  	currRtag_id = CDbl(rsRep("rtag_id"))
 377 
		  	currRtag_id = CDbl(rsRep("rtag_id"))
378 
		  End If
 378 
		  End If
379 
		  ' -------- END GROUP ------------------------
 379 
		  ' -------- END GROUP ------------------------
380 
		  %>
 380 
		  %>
381 
	      <tr>
381 
	      <tr>
382 
	        <td class="body_row"></td>
 382 
	        <td class="body_row"></td>
383 
	        <td nowrap><a href="dependencies.asp?rtag_id=<%=rsRep("rtag_id")%>&pv_id=<%=rsRep("pv_id")%>" class="txt_linked"><%=rsRep("pkg_name")%></a></td>
 383 
	        <td nowrap><a href="dependencies.asp?rtag_id=<%=rsRep("rtag_id")%>&pv_id=<%=rsRep("pv_id")%>" class="txt_linked"><%=rsRep("pkg_name")%></a></td>
384 
	        <td nowrap><a href="dependencies.asp?rtag_id=<%=rsRep("rtag_id")%>&pv_id=<%=rsRep("pv_id")%>" class="txt_linked"><%=rsRep("pkg_version")%></a></td>
 384 
	        <td nowrap><a href="dependencies.asp?rtag_id=<%=rsRep("rtag_id")%>&pv_id=<%=rsRep("pv_id")%>" class="txt_linked"><%=rsRep("pkg_version")%></a></td>
385 
	        <td class="body_row"></td>
 385 
	        <td class="body_row"></td>
386 
	      </tr>
 386 
	      </tr>
387 
	  <%  rsRep.MoveNext
 387 
	  <%  rsRep.MoveNext
388 
	  WEnd
 388 
	  WEnd
389 
	  %>
 389 
	  %>
390 
      <tr>
390 
      <tr>
391 
        <td colspan="3" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 391 
        <td colspan="3" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
392 
        <td></td>
 392 
        <td></td>
393 
      </tr>
 393 
      </tr>
394 
	  <tr>
394 
	  <tr>
395 
        <td colspan="4" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 395 
        <td colspan="4" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
396 
      </tr>
 396 
      </tr>
397 
    </table>
 397 
    </table>
398 
	<!-- PRINT, SAVE, ETC. ------------>
 398 
	<!-- PRINT, SAVE, ETC. ------------>
399 
	<%If parPrint = "" Then%>
 399 
	<%If parPrint = "" Then%>
Line 405... Line 405...
405 
	<!-- PRINT, SAVE, ETC. END -------->
 405 
	<!-- PRINT, SAVE, ETC. END -------->
406 
	<%
 406 
	<%
407 
		rsRep.Close
 407 
		rsRep.Close
408 
		Set rsRep = nothing
 408 
		Set rsRep = nothing
409 
	End If
 409 
	End If
410
410 
 
411 
End Sub
 411 
End Sub
412 
%>
 412 
%>
413 
<%
 413 
<%
414 
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
 414 
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
415 
'==================================================================================
 415 
'==================================================================================
Line 419... Line 419...
419 
' SQL INPUT			:	rtag_id
 419 
' SQL INPUT			:	rtag_id
420 
'==================================================================================
 420 
'==================================================================================
421 
Sub Current_State_of_Release ( SSsection, NNproj_id, NNrtag_id, NNpkg_states )
 421 
Sub Current_State_of_Release ( SSsection, NNproj_id, NNrtag_id, NNpkg_states )
422 
	Dim Query_String, rsRep
 422 
	Dim Query_String, rsRep
423 
	Const Disallow_All = FALSE
 423 
	Const Disallow_All = FALSE
424
424 
 
425 
	If NNproj_id = "" Then NNproj_id = -1
 425 
	If NNproj_id = "" Then NNproj_id = -1
426 
	If NNrtag_id = "" Then NNrtag_id = -1
 426 
	If NNrtag_id = "" Then NNrtag_id = -1
427 
	If NNpkg_states = "" Then NNpkg_states = -1
 427 
	If NNpkg_states = "" Then NNpkg_states = -1
428
428 
 
429 
	If SSsection = "TITLE" Then
 429 
	If SSsection = "TITLE" Then
430 
		Response.write "Current State of Release"
 430 
		Response.write "Current State of Release"
431 
		Exit Sub
 431 
		Exit Sub
432 
	End If
 432 
	End If
433
433 
 
434
434 
 
435 
	If SSsection = "FORM" Then
 435 
	If SSsection = "FORM" Then
436 
	%>
 436 
	%>
437 
	<table width="100%" border="0" cellpadding="2" cellspacing="1">
 437 
	<table width="100%" border="0" cellpadding="2" cellspacing="1">
438 
	  <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">
 438 
	  <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">
439 
      <tr>
439 
      <tr>
440 
        <td width="1%" nowrap class="form_field"><img src="images/spacer.gif" width="30" height="8"></td>
 440 
        <td width="1%" nowrap class="form_field"><img src="images/spacer.gif" width="30" height="8"></td>
441 
        <td width="1%" align="right" nowrap class="form_field">Project</td>
 441 
        <td width="1%" align="right" nowrap class="form_field">Project</td>
442 
        <td width="100%"><%Call Get_Projects( NNproj_id, Disallow_All )%></td>
 442 
        <td width="100%"><%Call Get_Projects( NNproj_id, Disallow_All )%></td>
443 
      </tr>
 443 
      </tr>
444 
      <tr>
444 
      <tr>
445 
        <td nowrap class="form_field">&nbsp;</td>
 445 
        <td nowrap class="form_field">&nbsp;</td>
446 
        <td align="right" nowrap class="form_field">Release</td>
 446 
        <td align="right" nowrap class="form_field">Release</td>
447 
        <td><%Call Get_Release_Labels ( NNproj_id, NNrtag_id, Disallow_All )%></td>
 447 
        <td><%Call Get_Release_Labels ( NNproj_id, NNrtag_id, Disallow_All )%></td>
448 
      </tr>
 448 
      </tr>
449 
	  <tr>
449 
	  <tr>
450 
        <td nowrap class="form_field">&nbsp;</td>
 450 
        <td nowrap class="form_field">&nbsp;</td>
451 
        <td align="right" nowrap class="form_field">Package States</td>
 451 
        <td align="right" nowrap class="form_field">Package States</td>
452 
        <td class="form_field" nowrap>
 452 
        <td class="form_field" nowrap>
453 
		<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;
 453 
		<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;
454 
		<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;
 454 
		<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;
455 
		<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;
 455 
		<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;
456 
		<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;
 456 
		<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;
457 
		<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;
 457 
		<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;
458 
		</td>
 458 
		</td>
459 
      </tr>
 459 
      </tr>
460 
      <tr>
460 
      <tr>
461 
        <td nowrap class="form_field">&nbsp;</td>
 461 
        <td nowrap class="form_field">&nbsp;</td>
462 
        <td align="right" nowrap class="form_field">&nbsp;</td>
 462 
        <td align="right" nowrap class="form_field">&nbsp;</td>
463 
        <td><br>
 463 
        <td><br>
464 
			<input type="hidden" name="group" value="<%=parGroup%>">
 464 
			<input type="hidden" name="group" value="<%=parGroup%>">
465 
			<input type="hidden" name="repnum" value="<%=parRepNum%>">
 465 
			<input type="hidden" name="repnum" value="<%=parRepNum%>">
466 
			<input type="hidden" name="action" value="true">
 466 
			<input type="hidden" name="action" value="true">
467 
		<input name="Submit" type="submit" class="form_btn" value="Submit">
467 
		<input name="Submit" type="submit" class="form_btn" value="Submit">
468 
        </td>
 468 
        </td>
469 
      </tr>
 469 
      </tr>
470 
	  </form>
 470 
	  </form>
471 
    </table>
 471 
    </table>
472 
	<%	Exit Sub
 472 
	<%	Exit Sub
473 
	End If
 473 
	End If
474
474 
 
475
475 
 
476 
	If SSsection = "BODY" Then
 476 
	If SSsection = "BODY" Then
477 
		If NOT CBool(Request("action")) Then Exit Sub
 477 
		If NOT CBool(Request("action")) Then Exit Sub
478
478 
 
479 
		Query_String = ReadFile( rootPath & "queries\rep_details_current_status_of_release.sql" )
 479 
		Query_String = ReadFile( rootPath & "queries\rep_details_current_status_of_release.sql" )
480 
		Query_String = Replace ( Query_String, "/*PKG_STATES*/", NNpkg_states )
 480 
		Query_String = Replace ( Query_String, "/*PKG_STATES*/", NNpkg_states )
481
481 
 
482 
		OraDatabase.Parameters.Add "RTAG_ID", NNrtag_id, ORAPARM_INPUT, ORATYPE_NUMBER
 482 
		OraDatabase.Parameters.Add "RTAG_ID", NNrtag_id, ORAPARM_INPUT, ORATYPE_NUMBER
483 
	%>
 483 
	%>
484 
	<table width="100%" border="0" cellspacing="0" cellpadding="2">
 484 
	<table width="100%" border="0" cellspacing="0" cellpadding="2">
485 
      <tr>
485 
      <tr>
486 
	    <td width="1%" nowrap class="body_colb">&nbsp;</td>
 486 
	    <td width="1%" nowrap class="body_colb">&nbsp;</td>
487 
        <td width="1%" nowrap class="body_colb">&nbsp;</td>
 487 
        <td width="1%" nowrap class="body_colb">&nbsp;</td>
488 
		<td width="1%" nowrap class="body_colb">&nbsp;</td>
 488 
		<td width="1%" nowrap class="body_colb">&nbsp;</td>
489 
        <td width="1%" nowrap class="body_colb">Package Name and Version&nbsp;&nbsp;&nbsp;</td>
 489 
        <td width="1%" nowrap class="body_colb">Package Name and Version&nbsp;&nbsp;&nbsp;</td>
490 
        <td width="1%" nowrap class="body_colb">Owner&nbsp;&nbsp;&nbsp;</td>
 490 
        <td width="1%" nowrap class="body_colb">Owner&nbsp;&nbsp;&nbsp;</td>
491 
		<td width="1%" nowrap class="body_colb">Last Modifier&nbsp;&nbsp;&nbsp;</td>
 491 
		<td width="1%" nowrap class="body_colb">Last Modifier&nbsp;&nbsp;&nbsp;</td>
492 
		<td width="1%" nowrap class="body_colb">Added to Release&nbsp;&nbsp;&nbsp;</td>
 492 
		<td width="1%" nowrap class="body_colb">Added to Release&nbsp;&nbsp;&nbsp;</td>
493 
        <td width="100%" nowrap class="body_colb">&nbsp;</td>
 493 
        <td width="100%" nowrap class="body_colb">&nbsp;</td>
494 
      </tr>
 494 
      </tr>
495 
      <tr>
495 
      <tr>
496 
        <td colspan="8" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 496 
        <td colspan="8" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
497 
      </tr>
 497 
      </tr>
498 
	   <%
 498 
	   <%
499 
	  Dim currView_id
 499 
	  Dim currView_id
500 
	  currView_id = -1
 500 
	  currView_id = -1
501 
	  Set rsRep = OraDatabase.DbCreateDynaset( Query_String, 0 )
 501 
	  Set rsRep = OraDatabase.DbCreateDynaset( Query_String, 0 )
502
502 
 
503 
	  If rsRep.RecordCount = 0 Then
 503 
	  If rsRep.RecordCount = 0 Then
504 
	  	With Response
 504 
	  	With Response
505 
			.write "<tr>"
 505 
			.write "<tr>"
506 
			.write "<td colspan='8' class='body_row'>Found 0 records</td>"
 506 
			.write "<td colspan='8' class='body_row'>Found 0 records</td>"
507 
			.write "</tr>"
 507 
			.write "</tr>"
508 
		End With
 508 
		End With
509 
	  End If
 509 
	  End If
510
510 
 
511 
	  While ((NOT rsRep.BOF) AND (NOT rsRep.EOF))
 511 
	  While ((NOT rsRep.BOF) AND (NOT rsRep.EOF))
512 
		  ' -------- GROUP BY RTAG_ID -----------------
 512 
		  ' -------- GROUP BY RTAG_ID -----------------
513 
		  If CDbl(currView_id) <> CDbl(rsRep("view_id")) Then
 513 
		  If CDbl(currView_id) <> CDbl(rsRep("view_id")) Then
514 
		  %>
 514 
		  %>
515 
	      <tr>
515 
	      <tr>
516 
	        <td colspan="7" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 516 
	        <td colspan="7" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
517 
	        <td></td>
 517 
	        <td></td>
518 
	      </tr>
 518 
	      </tr>
519 
		  <tr>
519 
		  <tr>
520 
	        <td colspan="8" nowrap class="body_scol"><%=rsRep("view_name")%></td>
 520 
	        <td colspan="8" nowrap class="body_scol"><%=rsRep("view_name")%></td>
521 
	      </tr>
 521 
	      </tr>
522 
		  <%
 522 
		  <%
523 
		  	currView_id = CDbl(rsRep("view_id"))
 523 
		  	currView_id = CDbl(rsRep("view_id"))
524 
		  End If
 524 
		  End If
525 
		  ' -------- END GROUP ------------------------
 525 
		  ' -------- END GROUP ------------------------
526 
		  %>
 526 
		  %>
527 
	      <tr>
527 
	      <tr>
528 
		  	<td class="body_row"></td>
 528 
		  	<td class="body_row"></td>
529 
		  	<td><%=DefineStateIcon ( rsRep("pkg_state"), rsRep("dlocked"), NULL, NULL, NULL, NULL )%></td>
 529 
		  	<td><%=DefineStateIcon ( rsRep("pkg_state"), rsRep("dlocked"), NULL, NULL, NULL, NULL )%></td>
530 
			<%If rsRep("dlocked") = "Y" Then%>
 530 
			<%If rsRep("dlocked") = "Y" Then%>
531 
		    	<td align="center" class="form_item"><img src='images/i_locked.gif' width='7' height='10' hspace='6'></td>
 531 
		    	<td align="center" class="form_item"><img src='images/i_locked.gif' width='7' height='10' hspace='6'></td>
532 
			<%Else%>
 532 
			<%Else%>
533 
		    	<td align="center" class="form_item"><img src='images/spacer.gif' width='7' height='10' hspace='6'></td>
533 
		    	<td align="center" class="form_item"><img src='images/spacer.gif' width='7' height='10' hspace='6'></td>
534 
			<%End If%>
 534 
			<%End If%>
535 
	        <td nowrap class="body_row"><%=rsRep("pkg_name") &" "& rsRep("pkg_version")%></td>
 535 
	        <td nowrap class="body_row"><%=rsRep("pkg_name") &" "& rsRep("pkg_version")%></td>
536 
	        <td nowrap><a href="mailto:<%=rsRep("owner_email")%>" class="txt_linked"><%=rsRep("owner")%></a>&nbsp;&nbsp;&nbsp;</td>
 536 
	        <td nowrap><a href="mailto:<%=rsRep("owner_email")%>" class="txt_linked"><%=rsRep("owner")%></a>&nbsp;&nbsp;&nbsp;</td>
537 
			<td nowrap><a href="mailto:<%=rsRep("modifier_email")%>" class="txt_linked"><%=rsRep("modifier")%></a>&nbsp;&nbsp;&nbsp;</td>
 537 
			<td nowrap><a href="mailto:<%=rsRep("modifier_email")%>" class="txt_linked"><%=rsRep("modifier")%></a>&nbsp;&nbsp;&nbsp;</td>
538 
	        <td class="body_row"><%=EuroDate( rsRep("insert_stamp") )%></td>
 538 
	        <td class="body_row"><%=EuroDate( rsRep("insert_stamp") )%></td>
539 
			<td class="body_row"></td>
 539 
			<td class="body_row"></td>
540 
	      </tr>
 540 
	      </tr>
541 
	  <%  rsRep.MoveNext
 541 
	  <%  rsRep.MoveNext
542 
	  WEnd
 542 
	  WEnd
543 
	  %>
 543 
	  %>
544 
	  <tr>
544 
	  <tr>
545 
        <td colspan="8" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 545 
        <td colspan="8" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
546 
      </tr>
 546 
      </tr>
547 
    </table>
 547 
    </table>
548 
	<!-- PRINT, SAVE, ETC. ------------>
 548 
	<!-- PRINT, SAVE, ETC. ------------>
549 
	<%If parPrint = "" Then%>
 549 
	<%If parPrint = "" Then%>
Line 555... Line 555...
555 
	<!-- PRINT, SAVE, ETC. END -------->
 555 
	<!-- PRINT, SAVE, ETC. END -------->
556 
	<%
 556 
	<%
557 
		rsRep.Close
 557 
		rsRep.Close
558 
		Set rsRep = nothing
 558 
		Set rsRep = nothing
559 
	End If
 559 
	End If
560
560 
 
561 
End Sub
 561 
End Sub
562 
%>
 562 
%>
563 
<%
 563 
<%
564 
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
 564 
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
565 
'==================================================================================
 565 
'==================================================================================
Line 567... Line 567...
567 
' Description		:	Locates bugs / issues imported from ClearQuest
 567 
' Description		:	Locates bugs / issues imported from ClearQuest
568 
' Form Input		:	CQ issue Database, CQ issue number list space separated
 568 
' Form Input		:	CQ issue Database, CQ issue number list space separated
569 
'==================================================================================
 569 
'==================================================================================
570 
Sub Where_Are_Bugs_Located ( SSsection, NNiss_db, SSiss_num_list )
 570 
Sub Where_Are_Bugs_Located ( SSsection, NNiss_db, SSiss_num_list )
571 
	Dim Query_String, rsRep
 571 
	Dim Query_String, rsRep
572
572 
 
573 
	If SSsection = "TITLE" Then
 573 
	If SSsection = "TITLE" Then
574 
		Response.write "Find ClearQuest Bugs / Issues Location"
 574 
		Response.write "Find ClearQuest Bugs / Issues Location"
575 
		Exit Sub
 575 
		Exit Sub
576 
	End If
 576 
	End If
577
577 
 
578
578 
 
579 
	If SSsection = "FORM" Then
 579 
	If SSsection = "FORM" Then
580 
	%>
 580 
	%>
581 
	<table width="100%" border="0" cellpadding="2" cellspacing="1">
 581 
	<table width="100%" border="0" cellpadding="2" cellspacing="1">
582 
	  <form action="<%=scriptName%>" method="post" name="repform" onSubmit="MM_validateForm('FRiss_num_list','Issue Number','R');return document.MM_returnValue">
 582 
	  <form action="<%=scriptName%>" method="post" name="repform" onSubmit="MM_validateForm('FRiss_num_list','Issue Number','R');return document.MM_returnValue">
583 
      <tr>
583 
      <tr>
584 
        <td width="1%" nowrap class="form_field"><img src="images/spacer.gif" width="30" height="8"></td>
 584 
        <td width="1%" nowrap class="form_field"><img src="images/spacer.gif" width="30" height="8"></td>
585 
        <td width="1%" align="right" nowrap class="form_field" valign="top">ClearQuest Database</td>
 585 
        <td width="1%" align="right" nowrap class="form_field" valign="top">ClearQuest Database</td>
586 
        <td width="100%">
 586 
        <td width="100%">
587 
		<select name="FRiss_db" class="form_item">
 587 
		<select name="FRiss_db" class="form_item">
588 
			<option value="<%=enumCLEARQUEST_DEVI_ID%>" <%If CDbl(NNiss_db) = enumCLEARQUEST_DEVI_ID Then%>selected<%End If%>>DEVI</option>
 588 
			<option value="<%=enumCLEARQUEST_DEVI_ID%>" <%If CDbl(NNiss_db) = enumCLEARQUEST_DEVI_ID Then%>selected<%End If%>>DEVI</option>
589 
			<option value="<%=enumCLEARQUEST_TDSE_ID%>" <%If CDbl(NNiss_db) = enumCLEARQUEST_TDSE_ID Then%>selected<%End If%>>TDSE</option>
 589 
			<option value="<%=enumCLEARQUEST_TDSE_ID%>" <%If CDbl(NNiss_db) = enumCLEARQUEST_TDSE_ID Then%>selected<%End If%>>TDSE</option>
590 
        </select>
 590 
        </select>
591 
		</td>
 591 
		</td>
592 
      </tr>
 592 
      </tr>
593 
      <tr>
593 
      <tr>
594 
        <td nowrap class="form_field">&nbsp;</td>
 594 
        <td nowrap class="form_field">&nbsp;</td>
595 
        <td align="right" nowrap class="form_field" valign="top">Issue Numbers</td>
 595 
        <td align="right" nowrap class="form_field" valign="top">Issue Numbers</td>
596 
        <td class="form_txt"><input type="text" name="FRiss_num_list" size="50" class="form_item" value="<%=SSiss_num_list%>"><br>
 596 
        <td class="form_txt"><input type="text" name="FRiss_num_list" size="50" class="form_item" value="<%=SSiss_num_list%>"><br>
597 
		HINTS:<br>
 597 
		HINTS:<br>
598 
		- You can use * wildcard. e.g. *0123 or 0123* or *0123*<br>
 598 
		- You can use * wildcard. e.g. *0123 or 0123* or *0123*<br>
599 
		- Use space separated issue numbers for multiple search.</td>
 599 
		- Use space separated issue numbers for multiple search.</td>
600 
      </tr>
 600 
      </tr>
601 
      <tr>
601 
      <tr>
602 
        <td nowrap class="form_field">&nbsp;</td>
 602 
        <td nowrap class="form_field">&nbsp;</td>
603 
        <td align="right" nowrap class="form_field">&nbsp;</td>
 603 
        <td align="right" nowrap class="form_field">&nbsp;</td>
604 
        <td><br>
 604 
        <td><br>
605 
			<input type="hidden" name="group" value="<%=parGroup%>">
 605 
			<input type="hidden" name="group" value="<%=parGroup%>">
606 
			<input type="hidden" name="repnum" value="<%=parRepNum%>">
 606 
			<input type="hidden" name="repnum" value="<%=parRepNum%>">
607 
			<input type="hidden" name="action" value="true">
 607 
			<input type="hidden" name="action" value="true">
608 
		<input name="Submit" type="submit" class="form_btn" value="Submit">
608 
		<input name="Submit" type="submit" class="form_btn" value="Submit">
609 
        </td>
 609 
        </td>
610 
      </tr>
 610 
      </tr>
611 
	  </form>
 611 
	  </form>
612 
    </table>
 612 
    </table>
613 
	<%	Exit Sub
 613 
	<%	Exit Sub
614 
	End If
 614 
	End If
615
615 
 
616
616 
 
617 
	If SSsection = "BODY" Then
 617 
	If SSsection = "BODY" Then
618 
		If NOT CBool(Request("action")) Then Exit Sub
 618 
		If NOT CBool(Request("action")) Then Exit Sub
619
619 
 
620 
		Dim SSsql, issARR, num_item, iss_num_col, issNumDict, rsCQ, recCount, maxRecCount
 620 
		Dim SSsql, issARR, num_item, iss_num_col, issNumDict, rsCQ, recCount, maxRecCount
621 
		Set rsCQ = Server.CreateObject("ADODB.Recordset")
 621 
		Set rsCQ = Server.CreateObject("ADODB.Recordset")
622 
		Set issNumDict = CreateObject("Scripting.Dictionary")
 622 
		Set issNumDict = CreateObject("Scripting.Dictionary")
623
623 
 
624
624 
 
625 
		'---- Find Issue numbers in ClearQuest ----
 625 
		'---- Find Issue numbers in ClearQuest ----
626 
		If CDbl(NNiss_db) = enumCLEARQUEST_MASSI_ID Then
 626 
		If CDbl(NNiss_db) = enumCLEARQUEST_MASSI_ID Then
627 
			iss_num_col = "new_num"
 627 
			iss_num_col = "new_num"
628 
			SSsql = _
 628 
			SSsql = _
629 
			" SELECT si.dbid AS iss_id, si."& iss_num_col &" AS iss_num"&_
 629 
			" SELECT si.dbid AS iss_id, si."& iss_num_col &" AS iss_num"&_
630 
			" FROM MASSI.admin.software_issue si"&_
 630 
			" FROM MASSI.admin.software_issue si"&_
631 
			" WHERE "
 631 
			" WHERE "
632
632 
 
633
633 
 
634 
		ElseIf CDbl(NNiss_db) = enumCLEARQUEST_DPGIM_ID Then
 634 
		ElseIf CDbl(NNiss_db) = enumCLEARQUEST_DPGIM_ID Then
635 
			iss_num_col = "new_num"
 635 
			iss_num_col = "new_num"
636 
			SSsql = _
 636 
			SSsql = _
637 
			" SELECT si.dbid AS iss_id, si."& iss_num_col &" AS iss_num"&_
 637 
			" SELECT si.dbid AS iss_id, si."& iss_num_col &" AS iss_num"&_
638 
			" FROM DPGIM.admin.software_issue si"&_
 638 
			" FROM DPGIM.admin.software_issue si"&_
639 
			" WHERE "
 639 
			" WHERE "
640
640 
 
641
641 
 
642 
		ElseIf CDbl(NNiss_db) = enumCLEARQUEST_DEVI_ID Then
 642 
		ElseIf CDbl(NNiss_db) = enumCLEARQUEST_DEVI_ID Then
643 
			iss_num_col = "new_num"
 643 
			iss_num_col = "new_num"
644 
			SSsql = _
 644 
			SSsql = _
645 
			" SELECT si.dbid AS iss_id, si."& iss_num_col &" AS iss_num"&_
 645 
			" SELECT si.dbid AS iss_id, si."& iss_num_col &" AS iss_num"&_
646 
			" FROM DEVI_PROD.admin.software_issue si"&_
 646 
      " FROM CQ_DEVI.admin.software_issue si"&_
647 
			" WHERE "
 647 
			" WHERE "
648
648 
 
649
649 
 
650 
		ElseIf CDbl(NNiss_db) = enumCLEARQUEST_TDSE_ID Then
 650 
		ElseIf CDbl(NNiss_db) = enumCLEARQUEST_TDSE_ID Then
651 
			iss_num_col = "job_number"
 651 
			iss_num_col = "job_number"
652 
			SSsql = _
 652 
			SSsql = _
653 
			" SELECT dbid AS iss_id, si."& iss_num_col &" AS iss_num"&_
 653 
			" SELECT dbid AS iss_id, si."& iss_num_col &" AS iss_num"&_
654 
			" FROM TDSE_2002.admin.request si"&_
 654 
      " FROM CQ_TDSE.admin.request si"&_
655 
			" WHERE "
 655 
			" WHERE "
656
656 
 
657 
		End If
 657 
		End If
658
658 
 
659
659 
 
660 
		'---- Split multiple search ----
 660 
		'---- Split multiple search ----
661 
		SSiss_num_list = Trim(SSiss_num_list)
 661 
		SSiss_num_list = Trim(SSiss_num_list)
662 
		If InStr( SSiss_num_list, " " ) > 0 Then
 662 
		If InStr( SSiss_num_list, " " ) > 0 Then
663 
			' space separator found
 663 
			' space separator found
664 
			issARR = Split ( SSiss_num_list, " ")
 664 
			issARR = Split ( SSiss_num_list, " ")
665
665 
 
666 
			For Each num_item In issARR
 666 
			For Each num_item In issARR
667 
				If num_item <> "" Then
 667 
				If num_item <> "" Then
668 
					SSsql = SSsql & " (si."& iss_num_col &" LIKE '"& Replace( SQLstring(num_item), "*", "%" ) &"') OR"
 668 
					SSsql = SSsql & " (si."& iss_num_col &" LIKE '"& Replace( SQLstring(num_item), "*", "%" ) &"') OR"
669 
				End If
 669 
				End If
670 
			Next
 670 
			Next
671
671 
 
672 
			SSsql = Left ( SSsql, Len(SSsql) - 2 )		' Removes last OR
 672 
			SSsql = Left ( SSsql, Len(SSsql) - 2 )		' Removes last OR
673
673 
 
674 
		Else
 674 
		Else
675 
			SSsql = SSsql & " (si."& iss_num_col &" LIKE '"& Replace( SQLstring(SSiss_num_list), "*", "%") &"')"
 675 
			SSsql = SSsql & " (si."& iss_num_col &" LIKE '"& Replace( SQLstring(SSiss_num_list), "*", "%") &"')"
676
676 
 
677 
		End If
 677 
		End If
678
678 
 
679 
		rsCQ.ActiveConnection = CQ_conn
 679 
		rsCQ.ActiveConnection = CQ_conn
680 
		rsCQ.Source = SSsql
 680 
		rsCQ.Source = SSsql
681 
		rsCQ.CursorType = 0
 681 
		rsCQ.CursorType = 0
682 
		rsCQ.CursorLocation = 2
 682 
		rsCQ.CursorLocation = 2
683 
		rsCQ.LockType = 3
 683 
		rsCQ.LockType = 3
684 
		rsCQ.Open()
 684 
		rsCQ.Open()
685
685 
 
686 
		' Get find results from CQ
 686 
		' Get find results from CQ
687 
		recCount = 1
 687 
		recCount = 1
688 
		maxRecCount = 1000
 688 
		maxRecCount = 1000
689 
		issNumDict.ADD "-1", "-1"		' take care of no results
 689 
		issNumDict.ADD "-1", "-1"		' take care of no results
690 
		While ((NOT rsCQ.BOF) AND (NOT rsCQ.EOF) AND (recCount < maxRecCount))
 690 
		While ((NOT rsCQ.BOF) AND (NOT rsCQ.EOF) AND (recCount < maxRecCount))
691 
			issNumDict.ADD Cstr(rsCQ("iss_id")), Cstr(rsCQ("iss_num"))
 691 
			issNumDict.ADD Cstr(rsCQ("iss_id")), Cstr(rsCQ("iss_num"))
692 
			recCount = recCount + 1
 692 
			recCount = recCount + 1
693 
			rsCQ.MoveNext
 693 
			rsCQ.MoveNext
694 
		WEnd
 694 
		WEnd
695
695 
 
696 
		rsCQ.Close
 696 
		rsCQ.Close
697 
		Set rsCQ = nothing
 697 
		Set rsCQ = nothing
698
698 
 
699 
		Query_String = ReadFile( rootPath & "queries\rep_where_are_bugs_located.sql" )
 699 
		Query_String = ReadFile( rootPath & "queries\rep_where_are_bugs_located.sql" )
700 
		Query_String = Replace ( Query_String, "/*ISS_DB*/", NNiss_db )
 700 
		Query_String = Replace ( Query_String, "/*ISS_DB*/", NNiss_db )
701 
		Query_String = Replace ( Query_String, "/*ISS_ID_LIST*/", Join( issNumDict.Keys, ",") )
 701 
		Query_String = Replace ( Query_String, "/*ISS_ID_LIST*/", Join( issNumDict.Keys, ",") )
702
702 
 
703 
	%>
 703 
	%>
704 
	<table width="100%" border="0" cellspacing="0" cellpadding="2">
 704 
	<table width="100%" border="0" cellspacing="0" cellpadding="2">
705 
      <tr>
705 
      <tr>
706 
        <td width="1%" nowrap class="body_colb">Issue Number&nbsp;&nbsp;&nbsp;</td>
 706 
        <td width="1%" nowrap class="body_colb">Issue Number&nbsp;&nbsp;&nbsp;</td>
707 
		<td width="1%" nowrap class="body_colb">Fixed At</td>
 707 
		<td width="1%" nowrap class="body_colb">Fixed At</td>
708 
        <td width="1%" nowrap class="body_colb">Package Name and Version&nbsp;&nbsp;&nbsp;</td>
 708 
        <td width="1%" nowrap class="body_colb">Package Name and Version&nbsp;&nbsp;&nbsp;</td>
709 
        <td width="1%" nowrap class="body_colb">Notes&nbsp;&nbsp;&nbsp;</td>
 709 
        <td width="1%" nowrap class="body_colb">Notes&nbsp;&nbsp;&nbsp;</td>
710 
        <td width="100%" nowrap class="body_colb">&nbsp;</td>
 710 
        <td width="100%" nowrap class="body_colb">&nbsp;</td>
711 
      </tr>
 711 
      </tr>
712 
      <tr>
712 
      <tr>
713 
        <td colspan="5" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 713 
        <td colspan="5" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
714 
      </tr>
 714 
      </tr>
715 
	   <%
 715 
	   <%
716 
	  Dim currIss_id
 716 
	  Dim currIss_id
717 
	  currIss_id = -1
 717 
	  currIss_id = -1
718 
	  Set rsRep = OraDatabase.DbCreateDynaset( Query_String, 0 )
 718 
	  Set rsRep = OraDatabase.DbCreateDynaset( Query_String, 0 )
719
719 
 
720 
	  If rsRep.RecordCount = 0 Then
 720 
	  If rsRep.RecordCount = 0 Then
721 
	  	With Response
 721 
	  	With Response
722 
			.write "<tr>"
 722 
			.write "<tr>"
723 
			.write "<td colspan='5' class='body_row'>Found 0 records</td>"
 723 
			.write "<td colspan='5' class='body_row'>Found 0 records</td>"
724 
			.write "</tr>"
 724 
			.write "</tr>"
725 
		End With
 725 
		End With
726 
	  End If
 726 
	  End If
727
727 
 
728 
	  While ((NOT rsRep.BOF) AND (NOT rsRep.EOF))
 728 
	  While ((NOT rsRep.BOF) AND (NOT rsRep.EOF))
729 
		  ' -------- GROUP BY ISS_ID -----------------
 729 
		  ' -------- GROUP BY ISS_ID -----------------
730 
		  If Cstr(currIss_id) <> Cstr(rsRep("iss_id")) Then
 730 
		  If Cstr(currIss_id) <> Cstr(rsRep("iss_id")) Then
731 
		  %>
 731 
		  %>
732 
		  <tr>
732 
		  <tr>
733 
	        <td colspan="4" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 733 
	        <td colspan="4" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
734 
	        <td></td>
 734 
	        <td></td>
735 
	      </tr>
 735 
	      </tr>
736 
	      <tr>
736 
	      <tr>
737 
	        <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>
 737 
	        <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>
738 
			<td colspan='4' class="body_scol"></td>
 738 
			<td colspan='4' class="body_scol"></td>
739 
	      </tr>
 739 
	      </tr>
740 
		  <%
 740 
		  <%
741 
		  	currIss_id = Cstr(rsRep("iss_id"))
 741 
		  	currIss_id = Cstr(rsRep("iss_id"))
742 
		  End If
 742 
		  End If
743 
		  ' -------- END GROUP ------------------------
 743 
		  ' -------- END GROUP ------------------------
744 
		  %>
 744 
		  %>
745 
	      <tr>
745 
	      <tr>
746 
		  	<td class="body_row"></td>
 746 
		  	<td class="body_row"></td>
747 
			<%If CDbl(rsRep("iss_state")) = enumISSUES_STATE_FIXED Then%>
 747 
			<%If CDbl(rsRep("iss_state")) = enumISSUES_STATE_FIXED Then%>
748 
		    	<td align="right"><img src="images/i_tick.gif" width="7" height="7" hspace="6"></td>
 748 
		    	<td align="right"><img src="images/i_tick.gif" width="7" height="7" hspace="6"></td>
749 
			<%Else%>
 749 
			<%Else%>
750 
		    	<td align="right"><img src='images/spacer.gif' width='7' height='7' hspace='6'></td>
750 
		    	<td align="right"><img src='images/spacer.gif' width='7' height='7' hspace='6'></td>
751 
			<%End If%>
 751 
			<%End If%>
752 
	        <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>
 752 
	        <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>
753 
	        <td nowrap><%=rsRep("notes")%></td>
 753 
	        <td nowrap><%=rsRep("notes")%></td>
754 
			<td class="body_row"></td>
 754 
			<td class="body_row"></td>
755 
	      </tr>
 755 
	      </tr>
756 
	  <%  rsRep.MoveNext
 756 
	  <%  rsRep.MoveNext
757 
	  WEnd
 757 
	  WEnd
758 
	  %>
 758 
	  %>
759 
	  <tr>
759 
	  <tr>
760 
        <td colspan="8" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 760 
        <td colspan="8" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
761 
      </tr>
 761 
      </tr>
762 
    </table>
 762 
    </table>
763 
	<!-- PRINT, SAVE, ETC. ------------>
 763 
	<!-- PRINT, SAVE, ETC. ------------>
764 
	<%If parPrint = "" Then%>
 764 
	<%If parPrint = "" Then%>
Line 770... Line 770...
770 
	<!-- PRINT, SAVE, ETC. END -------->
 770 
	<!-- PRINT, SAVE, ETC. END -------->
771 
	<%
 771 
	<%
772 
		rsRep.Close
 772 
		rsRep.Close
773 
		Set rsRep = nothing
 773 
		Set rsRep = nothing
774 
	End If
 774 
	End If
775
775 
 
776 
End Sub
 776 
End Sub
777 
%>
 777 
%>
778 
<%
 778 
<%
779 
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
 779 
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
780 
'==================================================================================
 780 
'==================================================================================
Line 782... Line 782...
782 
' Description		:	Locate a package in Release Manager
 782 
' Description		:	Locate a package in Release Manager
783 
' Form Input		:	Package Name, version extension
 783 
' Form Input		:	Package Name, version extension
784 
'==================================================================================
 784 
'==================================================================================
785 
Sub Find_Package ( SSsection, SSpkg_name, SSv_ext )
 785 
Sub Find_Package ( SSsection, SSpkg_name, SSv_ext )
786 
	Dim Query_String, rsRep, oRegExp
 786 
	Dim Query_String, rsRep, oRegExp
787
787 
 
788
788 
 
789 
	If SSsection = "TITLE" Then
 789 
	If SSsection = "TITLE" Then
790 
		Response.write "Find a Package"
 790 
		Response.write "Find a Package"
791 
		Exit Sub
 791 
		Exit Sub
792 
	End If
 792 
	End If
793
793 
 
794
794 
 
795 
	If SSsection = "FORM" Then
 795 
	If SSsection = "FORM" Then
796 
	%>
 796 
	%>
797 
	<table width="100%" border="0" cellpadding="2" cellspacing="1">
 797 
	<table width="100%" border="0" cellpadding="2" cellspacing="1">
798 
	  <form action="<%=scriptName%>" method="post" name="repform" onSubmit="MM_validateForm('FRpkg_name','Package Name','R');return document.MM_returnValue">
 798 
	  <form action="<%=scriptName%>" method="post" name="repform" onSubmit="MM_validateForm('FRpkg_name','Package Name','R');return document.MM_returnValue">
799 
      <tr>
799 
      <tr>
800 
        <td width="1%" nowrap class="form_field"><img src="images/spacer.gif" width="1" height="8"></td>
 800 
        <td width="1%" nowrap class="form_field"><img src="images/spacer.gif" width="1" height="8"></td>
801 
        <td width="1%" align="right" nowrap class="form_field" valign="top">Package Name</td>
 801 
        <td width="1%" align="right" nowrap class="form_field" valign="top">Package Name</td>
802 
        <td class="form_txt"><input type="text" name="FRpkg_name" size="30" class="form_item" value="<%=SSpkg_name%>"><br>
 802 
        <td class="form_txt"><input type="text" name="FRpkg_name" size="30" class="form_item" value="<%=SSpkg_name%>"><br>
803 
		HINTS:<br>
 803 
		HINTS:<br>
804 
		- You can use * wildcard. e.g. *0123 or 0123* or *0123*<br><br></td>
 804 
		- You can use * wildcard. e.g. *0123 or 0123* or *0123*<br><br></td>
805 
      </tr>
 805 
      </tr>
806 
      <tr>
806 
      <tr>
807 
        <td nowrap class="form_field">&nbsp;</td>
 807 
        <td nowrap class="form_field">&nbsp;</td>
808 
        <td align="right" nowrap class="form_field" valign="top">Version Extension (optional)</td>
 808 
        <td align="right" nowrap class="form_field" valign="top">Version Extension (optional)</td>
809 
        <td class="form_txt"><input type="text" name="FRv_ext" size="10" class="form_item" value="<%=SSv_ext%>"><br>
 809 
        <td class="form_txt"><input type="text" name="FRv_ext" size="10" class="form_item" value="<%=SSv_ext%>"><br>
810 
		e.g. .mas or .lvs or .oso or blank etc.</td>
 810 
		e.g. .mas or .lvs or .oso or blank etc.</td>
811 
      </tr>
 811 
      </tr>
812 
      <tr>
812 
      <tr>
813 
        <td nowrap class="form_field">&nbsp;</td>
 813 
        <td nowrap class="form_field">&nbsp;</td>
814 
        <td align="right" nowrap class="form_field">&nbsp;</td>
 814 
        <td align="right" nowrap class="form_field">&nbsp;</td>
815 
        <td><br>
 815 
        <td><br>
816 
		<input type="hidden" name="group" value="<%=parGroup%>">
 816 
		<input type="hidden" name="group" value="<%=parGroup%>">
817 
		<input type="hidden" name="repnum" value="<%=parRepNum%>">
 817 
		<input type="hidden" name="repnum" value="<%=parRepNum%>">
818 
		<input type="hidden" name="action" value="true">
 818 
		<input type="hidden" name="action" value="true">
819 
		<input name="Submit" type="submit" class="form_btn" value="Submit">
819 
		<input name="Submit" type="submit" class="form_btn" value="Submit">
820 
        </td>
 820 
        </td>
821 
      </tr>
 821 
      </tr>
822 
	  </form>
 822 
	  </form>
823 
    </table>
 823 
    </table>
824 
	<%	Exit Sub
 824 
	<%	Exit Sub
825 
	End If
 825 
	End If
826
826 
 
827
827 
 
828 
	If SSsection = "BODY" Then
 828 
	If SSsection = "BODY" Then
829 
		If NOT CBool(Request("action")) Then Exit Sub
 829 
		If NOT CBool(Request("action")) Then Exit Sub
830
830 
 
831 
		If SSpkg_name = "" Then SSpkg_name = "%"
 831 
		If SSpkg_name = "" Then SSpkg_name = "%"
832 
		If SSv_ext = "" Then SSv_ext = "%"
 832 
		If SSv_ext = "" Then SSv_ext = "%"
833 
		If Request("withwcard") <> "" Then SSpkg_name = "%"& Replace( SQLstring(SSpkg_name), "*", "") &"%"		'Place wild card automatically
 833 
		If Request("withwcard") <> "" Then SSpkg_name = "%"& Replace( SQLstring(SSpkg_name), "*", "") &"%"		'Place wild card automatically
834
834 
 
835
835 
 
836
836 
 
837 
		' -- Check if this is PV_ID
 837 
		' -- Check if this is PV_ID
838 
		Set oRegExp = New RegExp
 838 
		Set oRegExp = New RegExp
839
839 
 
840 
		oRegExp.Global = False	'Find only first match
 840 
		oRegExp.Global = False	'Find only first match
841 
	    oRegExp.Pattern = "\D" 'Match number only
 841 
	    oRegExp.Pattern = "\D" 'Match number only
842
842 
 
843
843 
 
844 
		If NOT oRegExp.Test(Request("FRpkg_name")) Then
 844 
		If NOT oRegExp.Test(Request("FRpkg_name")) Then
845 
			Query_String = ReadFile( rootPath & "queries\rep_find_package_by_pv_id.sql" )
 845 
			Query_String = ReadFile( rootPath & "queries\rep_find_package_by_pv_id.sql" )
846 
			Query_String = Replace ( Query_String, "/*PV_ID*/", SQLstring(Request("FRpkg_name") )  )
 846 
			Query_String = Replace ( Query_String, "/*PV_ID*/", SQLstring(Request("FRpkg_name") )  )
847
847 
 
848 
		Else
 848 
		Else
849 
			Query_String = ReadFile( rootPath & "queries\rep_find_package.sql" )
 849 
			Query_String = ReadFile( rootPath & "queries\rep_find_package.sql" )
850 
			Query_String = Replace ( Query_String, "/*PKG_NAME*/", Replace( SQLstring(SSpkg_name), "*", "%") )
 850 
			Query_String = Replace ( Query_String, "/*PKG_NAME*/", Replace( SQLstring(SSpkg_name), "*", "%") )
851 
			Query_String = Replace ( Query_String, "/*V_EXT*/", Replace( SQLstring(SSv_ext), "*", "%") )
 851 
			Query_String = Replace ( Query_String, "/*V_EXT*/", Replace( SQLstring(SSv_ext), "*", "%") )
852 
		End If
 852 
		End If
853
853 
 
854 
		Response.Write(Query_String)
 854 
		Response.Write(Query_String)
855 
	%>
 855 
	%>
856 
	<table width="100%" border="0" cellspacing="0" cellpadding="2">
 856 
	<table width="100%" border="0" cellspacing="0" cellpadding="2">
857 
      <tr>
857 
      <tr>
858 
        <td width="1%" nowrap class="body_colb">Package Name and Version&nbsp;&nbsp;&nbsp;</td>
 858 
        <td width="1%" nowrap class="body_colb">Package Name and Version&nbsp;&nbsp;&nbsp;</td>
859 
		<td width="1%" nowrap class="body_colb">Location</td>
 859 
		<td width="1%" nowrap class="body_colb">Location</td>
860 
        <td width="100%" nowrap class="body_colb">&nbsp;</td>
 860 
        <td width="100%" nowrap class="body_colb">&nbsp;</td>
861 
      </tr>
 861 
      </tr>
862 
      <tr>
862 
      <tr>
863 
        <td colspan="3" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 863 
        <td colspan="3" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
864 
      </tr>
 864 
      </tr>
865 
	   <%
 865 
	   <%
866 
	  Dim currPv_id
 866 
	  Dim currPv_id
867 
	  currPv_id = -1
 867 
	  currPv_id = -1
868 
	  Set rsRep = OraDatabase.DbCreateDynaset( Query_String, 0 )
 868 
	  Set rsRep = OraDatabase.DbCreateDynaset( Query_String, 0 )
869
869 
 
870 
	  If rsRep.RecordCount = 0 Then
 870 
	  If rsRep.RecordCount = 0 Then
871 
	  	With Response
 871 
	  	With Response
872 
			.write "<tr>"
 872 
			.write "<tr>"
873 
			.write "<td colspan='3' class='body_row'>Found 0 records</td>"
 873 
			.write "<td colspan='3' class='body_row'>Found 0 records</td>"
874 
			.write "</tr>"
 874 
			.write "</tr>"
875 
		End With
 875 
		End With
876 
	  End If
 876 
	  End If
877
877 
 
878 
	  While ((NOT rsRep.BOF) AND (NOT rsRep.EOF))
 878 
	  While ((NOT rsRep.BOF) AND (NOT rsRep.EOF))
879 
		  ' -------- GROUP BY Package Version -----------------
 879 
		  ' -------- GROUP BY Package Version -----------------
880 
		  If Cstr(currPv_id) <> Cstr(rsRep("pv_id")) Then
 880 
		  If Cstr(currPv_id) <> Cstr(rsRep("pv_id")) Then
881 
		  %>
 881 
		  %>
882 
	      <tr>
882 
	      <tr>
883 
	        <td colspan="2" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 883 
	        <td colspan="2" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
884 
	        <td></td>
 884 
	        <td></td>
885 
	      </tr>
 885 
	      </tr>
886 
		  <tr>
 886 
		  <tr>
887 
		    <%If Request("withwcard") <> "" Then%>
 887 
		    <%If Request("withwcard") <> "" Then%>
Line 896... Line 896...
896 
		  	currPv_id = Cstr(rsRep("pv_id"))
 896 
		  	currPv_id = Cstr(rsRep("pv_id"))
897 
		  End If
 897 
		  End If
898 
		  ' -------- END GROUP ------------------------
 898 
		  ' -------- END GROUP ------------------------
899 
		  %>
 899 
		  %>
900 
		  <%If NOT IsNull(rsRep("proj_name")) Then%>
 900 
		  <%If NOT IsNull(rsRep("proj_name")) Then%>
901 
	      <tr>
901 
	      <tr>
902 
		  	<td class="body_row"></td>
 902 
		  	<td class="body_row"></td>
903 
	        <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>
 903 
	        <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>
904 
			<td class="body_row"></td>
 904 
			<td class="body_row"></td>
905 
	      </tr>
 905 
	      </tr>
906 
		  <%Else%>
 906 
		  <%Else%>
907 
		  <tr>
907 
		  <tr>
908 
		  	<td class="body_row"></td>
 908 
		  	<td class="body_row"></td>
909 
	        <td class="body_row"></td>
 909 
	        <td class="body_row"></td>
910 
			<td class="body_row"></td>
 910 
			<td class="body_row"></td>
911 
	      </tr>
 911 
	      </tr>
912 
		  <%End If%>
 912 
		  <%End If%>
913 
	  <%  rsRep.MoveNext
 913 
	  <%  rsRep.MoveNext
914 
	  WEnd
 914 
	  WEnd
915 
	  %>
 915 
	  %>
916 
	  <tr>
916 
	  <tr>
917 
        <td colspan="3" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 917 
        <td colspan="3" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
918 
      </tr>
 918 
      </tr>
919 
    </table>
 919 
    </table>
920 
	<!-- PRINT, SAVE, ETC. ------------>
 920 
	<!-- PRINT, SAVE, ETC. ------------>
921 
	<%If parPrint = "" Then%>
 921 
	<%If parPrint = "" Then%>
Line 927... Line 927...
927 
	<!-- PRINT, SAVE, ETC. END -------->
 927 
	<!-- PRINT, SAVE, ETC. END -------->
928 
	<%
 928 
	<%
929 
		rsRep.Close
 929 
		rsRep.Close
930 
		Set rsRep = nothing
 930 
		Set rsRep = nothing
931 
	End If
 931 
	End If
932
932 
 
933 
End Sub
 933 
End Sub
934 
%>
 934 
%>
935 
<%
 935 
<%
936 
'==================================================================================
 936 
'==================================================================================
937 
' Report Name		: 	Find Package Version History
 937 
' Report Name		: 	Find Package Version History
938 
' Description		:	Locate all package versions and their current location
 938 
' Description		:	Locate all package versions and their current location
939 
' Form Input		:	Package Name, version extension
 939 
' Form Input		:	Package Name, version extension
940 
'==================================================================================
 940 
'==================================================================================
941 
Sub Find_Package_Version_History ( SSsection, SSpkg_name, SSv_ext )
 941 
Sub Find_Package_Version_History ( SSsection, SSpkg_name, SSv_ext )
942 
	Dim Query_String, rsRep
 942 
	Dim Query_String, rsRep
943
943 
 
944
944 
 
945 
	If SSsection = "TITLE" Then
 945 
	If SSsection = "TITLE" Then
946 
		Response.write "Find Package Version History"
 946 
		Response.write "Find Package Version History"
947 
		Exit Sub
 947 
		Exit Sub
948 
	End If
 948 
	End If
949
949 
 
950
950 
 
951 
	If SSsection = "FORM" Then
 951 
	If SSsection = "FORM" Then
952 
	%>
 952 
	%>
953 
	<table width="100%" border="0" cellpadding="2" cellspacing="1">
 953 
	<table width="100%" border="0" cellpadding="2" cellspacing="1">
954 
	  <form action="<%=scriptName%>" method="post" name="repform" onSubmit="MM_validateForm('FRpkg_name','Package Name','R');return document.MM_returnValue">
 954 
	  <form action="<%=scriptName%>" method="post" name="repform" onSubmit="MM_validateForm('FRpkg_name','Package Name','R');return document.MM_returnValue">
955 
      <tr>
955 
      <tr>
956 
        <td width="1%" nowrap class="form_field"><img src="images/spacer.gif" width="1" height="8"></td>
 956 
        <td width="1%" nowrap class="form_field"><img src="images/spacer.gif" width="1" height="8"></td>
957 
        <td width="1%" align="right" nowrap class="form_field" valign="top">Package Name</td>
 957 
        <td width="1%" align="right" nowrap class="form_field" valign="top">Package Name</td>
958 
        <td class="form_txt"><input type="text" name="FRpkg_name" size="30" class="form_item" value="<%=SSpkg_name%>"><br>
 958 
        <td class="form_txt"><input type="text" name="FRpkg_name" size="30" class="form_item" value="<%=SSpkg_name%>"><br>
959 
		HINTS:<br>
 959 
		HINTS:<br>
960 
		- You can use * wildcard. e.g. *0123 or 0123* or *0123*<br><br></td>
 960 
		- You can use * wildcard. e.g. *0123 or 0123* or *0123*<br><br></td>
961 
      </tr>
 961 
      </tr>
962 
      <tr>
962 
      <tr>
963 
        <td nowrap class="form_field">&nbsp;</td>
 963 
        <td nowrap class="form_field">&nbsp;</td>
964 
        <td align="right" nowrap class="form_field" valign="top">Version Extension (optional)</td>
 964 
        <td align="right" nowrap class="form_field" valign="top">Version Extension (optional)</td>
965 
        <td class="form_txt"><input type="text" name="FRv_ext" size="10" class="form_item" value="<%=SSv_ext%>"><br>
 965 
        <td class="form_txt"><input type="text" name="FRv_ext" size="10" class="form_item" value="<%=SSv_ext%>"><br>
966 
		e.g. .mas or .lvs or .oso or blank etc.</td>
 966 
		e.g. .mas or .lvs or .oso or blank etc.</td>
967 
      </tr>
 967 
      </tr>
968 
      <tr>
968 
      <tr>
969 
        <td nowrap class="form_field">&nbsp;</td>
 969 
        <td nowrap class="form_field">&nbsp;</td>
970 
        <td align="right" nowrap class="form_field">&nbsp;</td>
 970 
        <td align="right" nowrap class="form_field">&nbsp;</td>
971 
        <td><br>
 971 
        <td><br>
972 
		<input type="hidden" name="group" value="<%=parGroup%>">
 972 
		<input type="hidden" name="group" value="<%=parGroup%>">
973 
		<input type="hidden" name="repnum" value="<%=parRepNum%>">
 973 
		<input type="hidden" name="repnum" value="<%=parRepNum%>">
974 
		<input type="hidden" name="action" value="true">
 974 
		<input type="hidden" name="action" value="true">
975 
		<input name="Submit" type="submit" class="form_btn" value="Submit">
975 
		<input name="Submit" type="submit" class="form_btn" value="Submit">
976 
        </td>
 976 
        </td>
977 
      </tr>
 977 
      </tr>
978 
	  </form>
 978 
	  </form>
979 
    </table>
 979 
    </table>
980 
	<%	Exit Sub
 980 
	<%	Exit Sub
981 
	End If
 981 
	End If
982
982 
 
983
983 
 
984 
	If SSsection = "BODY" Then
 984 
	If SSsection = "BODY" Then
985 
		Const img_Official = "<img src='images/i_locked.gif' width='7' height='10' hspace='3' align='absmiddle'>"
 985 
		Const img_Official = "<img src='images/i_locked.gif' width='7' height='10' hspace='3' align='absmiddle'>"
986 
		If NOT CBool(Request("action")) Then Exit Sub
 986 
		If NOT CBool(Request("action")) Then Exit Sub
987
987 
 
988 
		If SSpkg_name = "" Then SSpkg_name = "%"
 988 
		If SSpkg_name = "" Then SSpkg_name = "%"
989 
		If SSv_ext = "" Then SSv_ext = "%"
 989 
		If SSv_ext = "" Then SSv_ext = "%"
990
990 
 
991 
		Query_String = ReadFile( rootPath & "queries\rep_package_version_history.sql" )
 991 
		Query_String = ReadFile( rootPath & "queries\rep_package_version_history.sql" )
992 
		Query_String = Replace ( Query_String, "/*PKG_NAME*/", Replace( SQLstring(SSpkg_name), "*", "%") )
 992 
		Query_String = Replace ( Query_String, "/*PKG_NAME*/", Replace( SQLstring(SSpkg_name), "*", "%") )
993 
		Query_String = Replace ( Query_String, "/*V_EXT*/", Replace( SQLstring(SSv_ext), "*", "%") )
 993 
		Query_String = Replace ( Query_String, "/*V_EXT*/", Replace( SQLstring(SSv_ext), "*", "%") )
994 
	%>
 994 
	%>
995 
	<table width="100%" border="0" cellspacing="0" cellpadding="2">
 995 
	<table width="100%" border="0" cellspacing="0" cellpadding="2">
996 
      <tr>
996 
      <tr>
997 
	    <td width="1%" nowrap class="body_colb" align="right">Official<%=img_Official%></td>
 997 
	    <td width="1%" nowrap class="body_colb" align="right">Official<%=img_Official%></td>
998 
        <td width="1%" nowrap class="body_colb">Package Name and Version&nbsp;&nbsp;&nbsp;</td>
 998 
        <td width="1%" nowrap class="body_colb">Package Name and Version&nbsp;&nbsp;&nbsp;</td>
999 
		<td width="1%" nowrap class="body_colb">Location</td>
 999 
		<td width="1%" nowrap class="body_colb">Location</td>
1000 
        <td width="100%" nowrap class="body_colb">&nbsp;</td>
 1000 
        <td width="100%" nowrap class="body_colb">&nbsp;</td>
1001 
      </tr>
 1001 
      </tr>
1002 
      <tr>
1002 
      <tr>
1003 
        <td colspan="4" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 1003 
        <td colspan="4" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
1004 
      </tr>
 1004 
      </tr>
1005 
	   <%
 1005 
	   <%
1006 
	  Dim currPv_id
 1006 
	  Dim currPv_id
1007 
	  currPv_id = -1
 1007 
	  currPv_id = -1
1008 
	  Set rsRep = OraDatabase.DbCreateDynaset( Query_String, 0 )
 1008 
	  Set rsRep = OraDatabase.DbCreateDynaset( Query_String, 0 )
1009
1009 
 
1010 
	  If rsRep.RecordCount = 0 Then
 1010 
	  If rsRep.RecordCount = 0 Then
1011 
	  	With Response
 1011 
	  	With Response
1012 
			.write "<tr>"
 1012 
			.write "<tr>"
1013 
			.write "<td colspan='4' class='body_row'>Found 0 records</td>"
 1013 
			.write "<td colspan='4' class='body_row'>Found 0 records</td>"
1014 
			.write "</tr>"
 1014 
			.write "</tr>"
1015 
		End With
 1015 
		End With
1016 
	  End If
 1016 
	  End If
1017
1017 
 
1018 
	  While ((NOT rsRep.BOF) AND (NOT rsRep.EOF))
 1018 
	  While ((NOT rsRep.BOF) AND (NOT rsRep.EOF))
1019 
		  ' -------- GROUP BY Package Version -----------------
 1019 
		  ' -------- GROUP BY Package Version -----------------
1020 
		  If Cstr(currPv_id) <> Cstr(rsRep("pv_id")) Then
 1020 
		  If Cstr(currPv_id) <> Cstr(rsRep("pv_id")) Then
1021 
		  %>
 1021 
		  %>
1022 
	      <tr>
1022 
	      <tr>
1023 
	        <td colspan="3" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 1023 
	        <td colspan="3" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
1024 
	        <td></td>
 1024 
	        <td></td>
1025 
	      </tr>
 1025 
	      </tr>
1026 
		  <tr>
1026 
		  <tr>
1027 
		    <td align="right"><%If rsRep("dlocked") = "Y" Then%><%=img_Official%><%End If%></td>
 1027 
		    <td align="right"><%If rsRep("dlocked") = "Y" Then%><%=img_Official%><%End If%></td>
1028 
	        <td nowrap class="body_scol"><%=rsRep("pkg_name") &" "& rsRep("pkg_version")%></td>
 1028 
	        <td nowrap class="body_scol"><%=rsRep("pkg_name") &" "& rsRep("pkg_version")%></td>
1029 
			<td colspan='2' class="body_scol"></td>
 1029 
			<td colspan='2' class="body_scol"></td>
1030 
	      </tr>
 1030 
	      </tr>
1031 
		  <%
 1031 
		  <%
1032 
		  	currPv_id = Cstr(rsRep("pv_id"))
 1032 
		  	currPv_id = Cstr(rsRep("pv_id"))
1033 
		  End If
 1033 
		  End If
1034 
		  ' -------- END GROUP ------------------------
 1034 
		  ' -------- END GROUP ------------------------
1035 
		  %>
 1035 
		  %>
1036 
	      <tr>
1036 
	      <tr>
1037 
		    <td class="body_row"></td>
 1037 
		    <td class="body_row"></td>
1038 
		  	<td class="body_row"></td>
 1038 
		  	<td class="body_row"></td>
1039 
			<%If IsNull(rsRep("rtag_id")) Then%>
 1039 
			<%If IsNull(rsRep("rtag_id")) Then%>
1040 
	        	<td nowrap class="body_txt_gray" valign="top">Not Used!</td>
 1040 
	        	<td nowrap class="body_txt_gray" valign="top">Not Used!</td>
1041 
			<%Else%>
 1041 
			<%Else%>
Line 1044... Line 1044...
1044 
			<td class="body_row"></td>
 1044 
			<td class="body_row"></td>
1045 
	      </tr>
 1045 
	      </tr>
1046 
	  <%  rsRep.MoveNext
 1046 
	  <%  rsRep.MoveNext
1047 
	  WEnd
 1047 
	  WEnd
1048 
	  %>
 1048 
	  %>
1049 
	  <tr>
1049 
	  <tr>
1050 
        <td colspan="4" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 1050 
        <td colspan="4" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
1051 
      </tr>
 1051 
      </tr>
1052 
    </table>
 1052 
    </table>
1053 
	<!-- PRINT, SAVE, ETC. ------------>
 1053 
	<!-- PRINT, SAVE, ETC. ------------>
1054 
	<%If parPrint = "" Then%>
 1054 
	<%If parPrint = "" Then%>
Line 1060... Line 1060...
1060 
	<!-- PRINT, SAVE, ETC. END -------->
 1060 
	<!-- PRINT, SAVE, ETC. END -------->
1061 
	<%
 1061 
	<%
1062 
		rsRep.Close
 1062 
		rsRep.Close
1063 
		Set rsRep = nothing
 1063 
		Set rsRep = nothing
1064 
	End If
 1064 
	End If
1065
1065 
 
1066 
End Sub
 1066 
End Sub
1067 
%>
 1067 
%>
1068 
<%
 1068 
<%
1069 
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
 1069 
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
1070 
'==================================================================================
 1070 
'==================================================================================
Line 1074... Line 1074...
1074 
'==================================================================================
 1074 
'==================================================================================
1075 
Sub Obsolete_Packages ( SSsection, NNproj_id, NNrtag_id )
 1075 
Sub Obsolete_Packages ( SSsection, NNproj_id, NNrtag_id )
1076 
	Dim Query_String, rsRep
 1076 
	Dim Query_String, rsRep
1077 
	Const Allow_All = TRUE
 1077 
	Const Allow_All = TRUE
1078 
	Const Disallow_All = FALSE
 1078 
	Const Disallow_All = FALSE
1079
1079 
 
1080 
	If NNproj_id = "" Then NNproj_id = -1
 1080 
	If NNproj_id = "" Then NNproj_id = -1
1081 
	If NNrtag_id = "" Then NNrtag_id = -1
 1081 
	If NNrtag_id = "" Then NNrtag_id = -1
1082
1082 
 
1083 
	If SSsection = "TITLE" Then
 1083 
	If SSsection = "TITLE" Then
1084 
		Response.write "Unused Packages"
 1084 
		Response.write "Unused Packages"
1085 
		Exit Sub
 1085 
		Exit Sub
1086 
	End If
 1086 
	End If
1087
1087 
 
1088
1088 
 
1089 
	If SSsection = "FORM" Then
 1089 
	If SSsection = "FORM" Then
1090 
	%>
 1090 
	%>
1091 
	<table width="100%" border="0" cellpadding="2" cellspacing="1">
 1091 
	<table width="100%" border="0" cellpadding="2" cellspacing="1">
1092 
	  <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">
 1092 
	  <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">
1093 
      <tr>
1093 
      <tr>
1094 
        <td width="1%" nowrap class="form_field"><img src="images/spacer.gif" width="30" height="8"></td>
 1094 
        <td width="1%" nowrap class="form_field"><img src="images/spacer.gif" width="30" height="8"></td>
1095 
        <td width="1%" align="right" nowrap class="form_field">Project</td>
 1095 
        <td width="1%" align="right" nowrap class="form_field">Project</td>
1096 
        <td width="100%"><%Call Get_Projects( NNproj_id, Disallow_All )%></td>
 1096 
        <td width="100%"><%Call Get_Projects( NNproj_id, Disallow_All )%></td>
1097 
      </tr>
 1097 
      </tr>
1098 
      <tr>
1098 
      <tr>
1099 
        <td nowrap class="form_field">&nbsp;</td>
 1099 
        <td nowrap class="form_field">&nbsp;</td>
1100 
        <td align="right" nowrap class="form_field">Release</td>
 1100 
        <td align="right" nowrap class="form_field">Release</td>
1101 
        <td><%Call Get_Release_Labels ( NNproj_id, NNrtag_id, Disallow_All )%></td>
 1101 
        <td><%Call Get_Release_Labels ( NNproj_id, NNrtag_id, Disallow_All )%></td>
1102 
      </tr>
 1102 
      </tr>
1103 
      <tr>
1103 
      <tr>
1104 
        <td nowrap class="form_field">&nbsp;</td>
 1104 
        <td nowrap class="form_field">&nbsp;</td>
1105 
        <td align="right" nowrap class="form_field">&nbsp;</td>
 1105 
        <td align="right" nowrap class="form_field">&nbsp;</td>
1106 
        <td><br>
 1106 
        <td><br>
1107 
			<input type="hidden" name="group" value="<%=parGroup%>">
 1107 
			<input type="hidden" name="group" value="<%=parGroup%>">
1108 
			<input type="hidden" name="repnum" value="<%=parRepNum%>">
 1108 
			<input type="hidden" name="repnum" value="<%=parRepNum%>">
1109 
			<input type="hidden" name="action" value="true">
 1109 
			<input type="hidden" name="action" value="true">
1110 
		<input name="Submit" type="submit" class="form_btn" value="Submit">
1110 
		<input name="Submit" type="submit" class="form_btn" value="Submit">
1111 
        </td>
 1111 
        </td>
1112 
      </tr>
 1112 
      </tr>
1113 
	  </form>
 1113 
	  </form>
1114 
    </table>
 1114 
    </table>
1115 
	<%	Exit Sub
 1115 
	<%	Exit Sub
1116 
	End If
 1116 
	End If
1117
1117 
 
1118
1118 
 
1119 
	If SSsection = "BODY" Then
 1119 
	If SSsection = "BODY" Then
1120 
		If NOT CBool(Request("action")) Then Exit Sub
 1120 
		If NOT CBool(Request("action")) Then Exit Sub
1121
1121 
 
1122 
		Query_String = ReadFile( rootPath & "queries\rep_obsolete_packages.sql" )
 1122 
		Query_String = ReadFile( rootPath & "queries\rep_obsolete_packages.sql" )
1123
1123 
 
1124 
		OraDatabase.Parameters.Add "RTAG_ID", NNrtag_id, ORAPARM_INPUT, ORATYPE_NUMBER
 1124 
		OraDatabase.Parameters.Add "RTAG_ID", NNrtag_id, ORAPARM_INPUT, ORATYPE_NUMBER
1125 
	%>
 1125 
	%>
1126 
	<table width="100%" border="0" cellspacing="0" cellpadding="2">
 1126 
	<table width="100%" border="0" cellspacing="0" cellpadding="2">
1127 
      <tr>
1127 
      <tr>
1128 
	    <td width="1%" nowrap class="body_colb">&nbsp;</td>
 1128 
	    <td width="1%" nowrap class="body_colb">&nbsp;</td>
1129 
        <td width="1%" nowrap class="body_colb">Package Name and Version&nbsp;&nbsp;&nbsp;</td>
 1129 
        <td width="1%" nowrap class="body_colb">Package Name and Version&nbsp;&nbsp;&nbsp;</td>
1130 
		<td width="1%" nowrap class="body_colb">Released&nbsp;&nbsp;&nbsp;</td>
 1130 
		<td width="1%" nowrap class="body_colb">Released&nbsp;&nbsp;&nbsp;</td>
1131 
		<td width="1%" nowrap class="body_colb">Added to Release&nbsp;&nbsp;&nbsp;</td>
 1131 
		<td width="1%" nowrap class="body_colb">Added to Release&nbsp;&nbsp;&nbsp;</td>
1132 
        <td width="100%" nowrap class="body_colb">&nbsp;</td>
 1132 
        <td width="100%" nowrap class="body_colb">&nbsp;</td>
1133 
      </tr>
 1133 
      </tr>
1134 
      <tr>
1134 
      <tr>
1135 
        <td colspan="5" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 1135 
        <td colspan="5" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
1136 
      </tr>
 1136 
      </tr>
1137 
	   <%
 1137 
	   <%
1138 
	  Dim currView_id
 1138 
	  Dim currView_id
1139 
	  currView_id = -1
 1139 
	  currView_id = -1
1140 
	  Set rsRep = OraDatabase.DbCreateDynaset( Query_String, 0 )
 1140 
	  Set rsRep = OraDatabase.DbCreateDynaset( Query_String, 0 )
1141
1141 
 
1142 
	  If rsRep.RecordCount = 0 Then
 1142 
	  If rsRep.RecordCount = 0 Then
1143 
	  	With Response
 1143 
	  	With Response
1144 
			.write "<tr>"
 1144 
			.write "<tr>"
1145 
			.write "<td colspan='5' class='body_row'>Found 0 records</td>"
 1145 
			.write "<td colspan='5' class='body_row'>Found 0 records</td>"
1146 
			.write "</tr>"
 1146 
			.write "</tr>"