Subversion Repositories DevTools

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
119 ghuddy 1 
<%
2 
'=====================================================
3 
'					Package Pages
4 
'=====================================================
5 
%>
6 
<!--#include file="_tabs.asp"-->
7 
<!--#include file="_action_buttons.asp"-->
8 
<%
9 
'------------ Variable Definition -------------
10 
Dim parExtpkg, parExtrtag_id
11 
Dim rsTemp
12 
Dim CanIgnoreWarnings
13 
'Dim parFileDiff
14 
'Dim parComparePvId
15 
'Dim parFileFilter
16 
'Dim dFileFilter
17 
'Dim parDepFilter
18 
'Dim dDepFilter
19 
'------------ Constants Declaration -----------
20 
Const imgPkgLocked = "<img src='images/i_locked.gif' width='7' height='10' hspace='4' align='absmiddle'>"
21 
Const imgPkgLockSpacer = "<img src='images/spacer.gif' width='7' height='10' hspace='4' align='absmiddle'>"
22 
'------------ Variable Init -------------------
23 
parExtpkg = QStrPar("extpkg")
24 
parExtrtag_id = QStrPar("extrtag_id")
25 
'----------------------------------------------
26 
%>
27 
<%
28 
'-----------------------------------------------------------------------------------------------------------------
29 
Sub Print_Pkg_Dependencies ( NNpv_id, NNrtag_id, BBextpkg )
30 
	Dim rsTemp, Query_String, noDependencies
31 
	noDependencies = FALSE
32 
 
33 
	Query_String = ReadFile( rootPath & "queries\dependencies.sql" )
34 
 
35 
	OraDatabase.Parameters.Add "RTAG_ID", NNrtag_id, ORAPARM_INPUT
36 
	OraDatabase.Parameters("RTAG_ID").ServerType = ORATYPE_NUMBER
37 
 
38 
	OraDatabase.Parameters.Add "PV_ID", NNpv_id, ORAPARM_INPUT
39 
	OraDatabase.Parameters("PV_ID").ServerType = ORATYPE_NUMBER
40 
 
41 
	Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, 0 )
42 
 
43 
	CanIgnoreWarnings = FALSE
44 
	If Request("rtag_id") <> ""  Then
45 
		If pkgInfoHash.Item("build_type") = "M" OR _
46 
		   ( pkgInfoHash.Item("build_type") = "A" AND pkgInfoHash.Item("dlocked") = "Y" ) OR _
47 
		   ( pkgInfoHash.Item("build_type") = "Y" AND pkgInfoHash.Item("dlocked") = "Y" ) Then
48 
			CanIgnoreWarnings = TRUE
49 
		End If
50 
	End If
51 
	%>
52 
	<table width="100%" border="0" cellspacing="1" cellpadding="3">
53 
	  <form name="ignore_warnings" method="get" action="_ignore_warnings.asp" onSubmit="ProgressBar.style.visibility='visible';">
54 
	  <tr>
55 
	    <%If CanIgnoreWarnings Then%><td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field" align="center">Ignore<br>warnings</td><%End If%>
56 
	    <td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field"></td>
57 
	    <td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field">Name<br><img src="images/h_trsp_dot.gif" width="120" height="1"></td>
58 
	    <td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field"><%=imgPkgLockSpacer%>Version</td>
59 
	    <td background="images/bg_form_lightbluedark.gif" nowrap width="100%" class="form_field"><%=imgPkgLockSpacer%>Released</td>
60 
		<td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field" align="center">Last&nbsp;Modified</td>
61 
	    <td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field"></td>
62 
	  </tr>
63 
	<%' Display "no dependencies" if needed%>
64 
	<%If rsTemp.RecordCount = 0 Then%>
65 
	  <tr>
66 
	    <%If CanIgnoreWarnings Then%><td align="center" nowrap background="images/bg_form_lightgray.gif"></td><%End If%>
67 
	    <td align="center" background="images/bg_form_lightgray.gif" class="form_item">&nbsp;</td>
68 
	    <td background="images/bg_form_lightgray.gif" class="form_item">&nbsp;</td>
69 
	    <td background="images/bg_form_lightgray.gif" class="form_item">&nbsp;</td>
70 
		<td background="images/bg_form_lightgray.gif" class="form_item">&nbsp;</td>
71 
		<td background="images/bg_form_lightgray.gif" class="form_item">&nbsp;</td>
72 
	    <td background="images/bg_form_lightgray.gif" class="form_item"></td>
73 
	  </tr>
74 
	<%
75 
	noDependencies = TRUE
76 
	End If
77 
	%>
78 
	<%
79 
	Dim objTempSession, pkgURL, workInProgress
80 
 
81 
	Do Until ((rsTemp.BOF) OR (rsTemp.EOF))
82 
		pkgURL = "#"
83 
		If NOT IsNull(rsTemp.Fields("dpv_link")) Then pkgURL = scriptName &"?pv_id="& rsTemp("dpv_link") &"&rtag_id="& parRtag_id
84 
 
85 
		If rsTemp("latest_dlocked") = "N" Then
86 
			workInProgress = "<img src='images/i_user.gif' width='10' height='13' border='0' alt='Work is in progress...' align='absmiddle' hspace='2'>"
87 
		Else
88 
			workInProgress = ""
89 
		End If
90 
 
91 
	%>
92 
	  <tr>
93 
	    <%If CanIgnoreWarnings Then%><td align="center" nowrap background="images/bg_form_lightbluedark.gif"><input type="checkbox" name="forced" value="<%=rsTemp("ignore_dpv")%>" <%=Define_Ignore_State ( rsTemp("ignore_warn"), rsTemp("is_patch_ignore"), rsTemp("pkg_state"), rsTemp("latest_pkg_version"), rsTemp("dlocked") )%>></td><%End If%>
94 
	    <td align="center" background="images/bg_form_lightgray.gif" class="form_item">
95 
		<%If rsTemp("pkg_state") = 0 AND rsTemp("deprecated_state") <> "" Then%>
96 
			<%=DefineStateIcon ( rsTemp("deprecated_state"), rsTemp("dlocked"), rsTemp("ignore_warn"), rsTemp("is_patch_ignore"), pkgInfoHash.Item("build_type"), FALSE )%>
97 
		<%Else%>
98 
			<%=DefineStateIcon ( rsTemp("pkg_state"), rsTemp("dlocked"), rsTemp("ignore_warn"), rsTemp("is_patch_ignore"), pkgInfoHash.Item("build_type"), FALSE )%>
99 
		<%End If%>
100 
		</td>
101 
	    <td background="images/bg_form_lightgray.gif" class="envPkg" nowrap><%If NOT IsNull(rsTemp.Fields("dpv_link")) Then%><a href="<%=pkgURL%>" class="txt_linked"><%=rsTemp.Fields("dpkg_name")%></a><%Else%><%=rsTemp.Fields("dpkg_name")%><%End If%></td>
102 
	    <td background="images/bg_form_lightgray.gif" class="form_item" nowrap><%If rsTemp("dlocked") = "Y" Then%><%=imgPkgLocked%><%Else%><%=imgPkgLockSpacer%><%End If%><%=rsTemp("dpkg_version")%></td>
103 
	    <td background="images/bg_form_lightgray.gif" <%If IsNull(rsTemp("ignore_warn")) Then%>class="sublbox_hitem"<%Else%>class="body_scol_thin"<%End If%>><%If rsTemp("latest_dlocked") = "Y" AND ( NOT IsNull(rsTemp("latest_pkg_version")) ) Then%><%=imgPkgLocked%><%Else%><%=imgPkgLockSpacer%><%End If%><%=rsTemp("latest_pkg_version")%></td>
104 
		<td background="images/bg_form_lightgray.gif" class="form_item" nowrap><%If NOT IsNull(rsTemp.Fields("modifier_name")) Then%><a href="mailto:<%=rsTemp.Fields("modifier_email")%>" class="txt_linked"><%=workInProgress%><%=rsTemp.Fields("modifier_name")%></a> on <%=EuroDateTime ( rsTemp("modified_stamp")  )%><%End If%></td>
105 
	    <td background="images/bg_form_lightgray.gif" class="form_item"><%If pkgInfoHash.Item ("dlocked") = "N" Then%><a href="_remove_build_dependency.asp?pv_id=<%=parPv_id%>&dpv_id=<%=rsTemp("orig_pv_id")%>&rtag_id=<%=parRtag_id%>" onClick="return confirmDelete('this Build Dependency');"><img src="images/i_delete.gif" alt="Remove from list." width="13" height="12" hspace="3" border="0"></a><%Else%><img src="images/i_delete_disable.gif" width="13" height="12" hspace="3" border="0"><%End If%></td>
106 
	  </tr>
107 
<%
108 
		rsTemp.MoveNext
109 
	Loop
110 
%>	    <tr>
111 
		<%If noDependencies OR (ReleaseMode = enumDB_RELEASE_IN_CLOSED_MODE) Then%>
112 
		 <td></td>
113 
		<%Else%>
114 
	     <%If CanIgnoreWarnings Then%><td nowrap background="images/bg_form_lightbluedark.gif" align="center"><input name="Submit" type="submit" class="form_btn" id="Submit" value="Apply" ></td><%End If%>
115 
		<%End If%>
116 
	    <td colspan="2" class="body_scol"><SPAN id="ProgressBar" name="ProgressBar" style="visibility:hidden;"><img src="images/i_processing.gif" width="11" height="17" align="absmiddle" hspace="3">Processing...</SPAN></td>
117 
	    <td><img src="images/h_spacer.gif" width="150" height="1"></td>
118 
		<td></td>
119 
		<td></td>
120 
	    <td></td>
121 
	  </tr>
122 
	  <input type="hidden" name="pv_id" value="<%=parPv_id%>">
123 
	  <input type="hidden" name="rtag_id" value="<%=parRtag_id%>">
124 
	  </form>
125 
	</table>
126 
<%
127 
	OraDatabase.Parameters.Remove "RTAG_ID"
128 
	OraDatabase.Parameters.Remove "PV_ID"
129 
	rsTemp.Close
130 
	Set rsTemp = nothing
131 
End Sub
132 
'-----------------------------------------------------------------------------------------------------------------
133 
Sub Print_Patch_Dependencies ( NNpv_id, NNrtag_id, BBextpkg )
134 
	Dim rsTemp, Query_String, noDependencies
135 
	noDependencies = FALSE
136 
 
137 
	Query_String = ReadFile( rootPath & "queries\dependencies.sql" )
138 
 
139 
	OraDatabase.Parameters.Add "RTAG_ID", NNrtag_id, ORAPARM_INPUT
140 
	OraDatabase.Parameters("RTAG_ID").ServerType = ORATYPE_NUMBER
141 
 
142 
	OraDatabase.Parameters.Add "PV_ID", NNpv_id, ORAPARM_INPUT
143 
	OraDatabase.Parameters("PV_ID").ServerType = ORATYPE_NUMBER
144 
 
145 
	Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, 0 )%>
146 
 
147 
	<table width="100%" border="0" cellspacing="1" cellpadding="3">
148 
	  <tr>
149 
	    <td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field">Name<br><img src="images/h_trsp_dot.gif" width="120" height="1"></td>
150 
	    <td background="images/bg_form_lightbluedark.gif" nowrap width="100%" class="form_field"><%=imgPkgLockSpacer%>Version</td>
151 
		<td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field" align="center">Last&nbsp;Modified</td>
152 
	    <td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field"></td>
153 
	  </tr>
154 
	<%' Display "no dependencies" if needed%>
155 
	<%If rsTemp.RecordCount = 0 Then%>
156 
	  <tr>
157 
	    <td background="images/bg_form_lightgray.gif" class="form_item">&nbsp;</td>
158 
	    <td background="images/bg_form_lightgray.gif" class="form_item">&nbsp;</td>
159 
		<td background="images/bg_form_lightgray.gif" class="form_item">&nbsp;</td>
160 
		<td background="images/bg_form_lightgray.gif" class="form_item">&nbsp;</td>
161 
	  </tr>
162 
	<%
163 
	noDependencies = TRUE
164 
	End If
165 
	%>
166 
	<%
167 
	Dim objTempSession, pkgURL, workInProgress
168 
 
169 
	Do Until ((rsTemp.BOF) OR (rsTemp.EOF))
170 
		pkgURL = "#"
171 
		If NOT IsNull(rsTemp.Fields("dpv_link")) Then pkgURL = scriptName &"?pv_id="& rsTemp("orig_pv_id") &"&rtag_id="& parRtag_id
172 
 
173 
		If rsTemp("latest_dlocked") = "N" Then
174 
			workInProgress = "<img src='images/i_user.gif' width='10' height='13' border='0' alt='Work is in progress...' align='absmiddle' hspace='2'>"
175 
		Else
176 
			workInProgress = ""
177 
		End If
178 
 
179 
	%>
180 
	  <tr>
181 
	    <td background="images/bg_form_lightgray.gif" class="envPkg" nowrap><a href="<%=pkgURL%>" class="txt_linked"><%If rsTemp("is_patch") = "Y" Then%><%=PatchIcon ( rsTemp("is_patch"), rsTemp("is_obsolete") )%><%End If%><%=rsTemp.Fields("dpkg_name")%></a></td>
182 
	    <td background="images/bg_form_lightgray.gif" class="form_item" nowrap><%If rsTemp("dlocked") = "Y" Then%><%=imgPkgLocked%><%Else%><%=imgPkgLockSpacer%><%End If%><%=rsTemp("dpkg_version")%></td>
183 
		<td background="images/bg_form_lightgray.gif" class="form_item" nowrap><%If NOT IsNull(rsTemp.Fields("modifier_name")) Then%><a href="mailto:<%=rsTemp.Fields("modifier_email")%>" class="txt_linked"><%=workInProgress%><%=rsTemp.Fields("modifier_name")%></a> on <%=EuroDateTime ( rsTemp("modified_stamp") )%><%End If%></td>
184 
	    <td background="images/bg_form_lightgray.gif" class="form_item"><%If pkgInfoHash.Item ("dlocked") = "N" Then%><a href="_remove_build_dependency.asp?pv_id=<%=parPv_id%>&dpv_id=<%=rsTemp("orig_pv_id")%>&rtag_id=<%=parRtag_id%>" onClick="return confirmDelete('this Build Dependency');"><img src="images/i_delete.gif" alt="Remove from list." width="13" height="12" hspace="3" border="0"></a><%Else%><img src="images/i_delete_disable.gif" width="13" height="12" hspace="3" border="0"><%End If%></td>
185 
	  </tr>
186 
<%
187 
		rsTemp.MoveNext
188 
	Loop
189 
%>	    <tr>
190 
	    <td colspan="2" class="body_scol"><SPAN id="ProgressBar" name="ProgressBar" style="visibility:hidden;"><img src="images/i_processing.gif" width="11" height="17" align="absmiddle" hspace="3">Processing...</SPAN></td>
191 
		<td></td>
192 
	    <td></td>
193 
		<td></td>
194 
	  </tr>
195 
	</table>
196 
<%
197 
	OraDatabase.Parameters.Remove "RTAG_ID"
198 
	OraDatabase.Parameters.Remove "PV_ID"
199 
	rsTemp.Close
200 
	Set rsTemp = nothing
201 
End Sub
202 
'-----------------------------------------------------------------------------------------------------------------
203 
Function Define_Ignore_State ( BBcurr_ignore_state, cIsPatchIgnore, NNpkg_state, SSlatest, SSdlocked )
204 
	' ==== Ignore Warning Rules ====
205 
	' ENABLE - Dependency is   official  AND  PKG_STATE is OK  AND  has no latest  AND  current ignore warning is not ticked AND not Patch Ignore
206 
	' ENABLE - current ignore state is ticked AND not Patch Ignore
207 
 
208 
	If  (SSdlocked = "Y") AND _
209 
		( (CInt(NNpkg_state) <> enumPKG_STATE_OK) OR (SSlatest <> "") ) _
210 
	Then
211 
 
212 
		Define_Ignore_State = " "& BBcurr_ignore_state
213 
 
214 
	Else
215 
 
216 
		Define_Ignore_State = "disabled "& BBcurr_ignore_state
217 
 
218 
	End If
219 
 
220 
 
221 
	'If ( (SSdlocked = "Y") AND _
222 
	'     (CInt(NNpkg_state) = enumPKG_STATE_OK) AND _
223 
	'     (SSlatest <> "") AND _
224 
	'     IsNull(BBcurr_ignore_state) AND _
225 
	'	 IsNull(cIsPatchIgnore) ) _
226 
	'   OR _
227 
	'   ( NOT IsNull(BBcurr_ignore_state)  AND  IsNull(cIsPatchIgnore) ) Then
228 
	'
229 
	'	Define_Ignore_State = " "& BBcurr_ignore_state
230 
	'Else
231 
	'	Define_Ignore_State = "disabled "& BBcurr_ignore_state
232 
	'End If
233 
End Function
234 
'-----------------------------------------------------------------------------------------------------------------
235 
'-----------------------------------------------------------------------------------------------------------------
236 
%>
237 
<%
238 
'------------------------- MAIN LINE ---------------------------
239 
 
240 
 
241 
'---------------------------------------------------------------
242 
%>
243 
<%If (parPv_id <> "") Then%>
244 
<!-- MAIN PAGE ------------------------------------------>
245 
<table width="100%" border="0" cellspacing="0" cellpadding="0">
246 
  <tr>
247 
    <td width="1%" background="images/bg_action_norm.gif"><IMG height=35 src="images/spacer.gif" width=15></td>
248 
    <td width="100%" background="images/bg_action_norm.gif"><!--#include file="_pkg_action_buttons.asp"--></td>
249 
    <td width="1%" background="images/bg_action_norm.gif"><IMG height=1 src="images/spacer.gif" width=15></td>
250 
  </tr>
251 
  <!-- PACKAGE PROPERTIES ----------------------------  -->
252 
  <%Call RenderPackageProperties ()%>
253 
  <tr>
254 
    <td background="images/bg_lght_gray.gif">&nbsp;</td>
255 
    <td valign="bottom" background="images/bg_lght_gray.gif">
256 
      <table width="100" border="0" cellspacing="0" cellpadding="0">
257 
        <tr>
258 
          <td><IMG height=1 src="images/spacer.gif" width=50></td>
259 
          <td>
260 
		  <!-- TABS ------------------------------------->
261 
		  <%Call Generate_Tab_Menu ( TABarray1, "Dependencies", "orange" )%>
262 
		  </td>
263 
        </tr>
264 
      </table>
265 
    </td>
266 
    <td background="images/bg_lght_gray.gif">&nbsp;</td>
267 
  </tr>
268 
  <tr>
269 
    <td background="images/lbox_bg_orange.gif"><IMG height=35 src="images/spacer.gif" width=1></td>
270 
    <td background="images/lbox_bg_orange.gif">
271 
	<!-- TAB ACTION BUTTONS ------------------------------------->
272 
	<%Call Action_Buttons ( "Build Dependencies" )%>
273 
	</td>
274 
    <td background="images/lbox_bg_orange.gif">&nbsp;</td>
275 
  </tr>
276 
  <tr>
277 
    <td></td>
278 
    <td valign="top">
279 
	<!-- BUILD DEPENDENCIES ------------------------------------->
280 
	<br>
281 
	<fieldset>
282 
	<legend class="body_colb">Build Dependencies</legend>
283 
	<a name="DEPENDENCIES"></a>
284 
	<%
285 
	If pkgInfoHash.Item ("is_patch") = "Y" Then
286 
		Call Print_Patch_Dependencies ( parPv_id, parRtag_id, FALSE )
287 
	Else
288 
		Call Print_Pkg_Dependencies ( parPv_id, parRtag_id, FALSE )
289 
	End If
290 
	%>
291 
	</fieldset>
292 
	<br><br>
293 
	<!-- MODULE CHANGES ----------------------------------------->
294 
	<table width="100%"  border="0" cellspacing="0" cellpadding="3">
295 
	  <tr>
296 
		<td align="right"><a href="javascript:;" onClick="MM_openBrWindow('_wform_dependency_changes.asp?rtag_id=<%=parRtag_id%>&pv_id=<%=parPv_id%>&rfile=<%=ScriptName%>&compare_pv_id=<%=Request("compare_pv_id")%>&filediff=<%=Request("filediff")%>','DependencyChanges','scrollbars=yes,resizable=yes,width=700,height=600')" class="txt_linked" title='Open this section in new window.'><%=LIMG_NEW_WINDOW%>New Window</a> </td>
297 
	  </tr>
298 
	</table>
299 
 
300 
	<fieldset>
301 
	<legend class="body_colb">Dependency Changes</legend>
302 
	<!--#include file="_mod_dependency_changes.asp"-->
303 
	</fieldset><br>
304 
	<!----------------------------------------------------------->
305 
	</td>
306 
    <td>&nbsp;</td>
307 
  </tr>
308 
</table>
309 
 
310 
<%Else%>
311 
 
312 
<!-- NO PACKAGE SELECTED  ------------------------------------>
313 
<table width="100%" border="0" cellspacing="0" cellpadding="0">
314 
  <tr>
315 
    <td width="1%" background="images/bg_action_norm.gif"><IMG height=35 src="images/spacer.gif" width=15></td>
316 
    <td width="100%" background="images/bg_action_norm.gif"></td>
317 
    <td width="1%" background="images/bg_action_norm.gif"><IMG height=1 src="images/spacer.gif" width=15></td>
318 
  </tr>
319 
  <tr>
320 
    <td background="images/bg_lght_gray.gif"><IMG height=50 src="images/spacer.gif" width=1></td>
321 
    <td background="images/bg_lght_gray.gif" nowrap class="lbox_ttl"></td>
322 
    <td background="images/bg_lght_gray.gif"></td>
323 
  </tr>
324 
  <tr>
325 
    <td background="images/bg_lght_gray.gif"></td>
326 
    <td valign="bottom" background="images/bg_lght_gray.gif">
327 
      <table width="100" border="0" cellspacing="0" cellpadding="0">
328 
        <tr>
329 
          <td><IMG height=1 src="images/spacer.gif" width=150></td>
330 
          <td><!-- TABS -------------------------------------></td>
331 
        </tr>
332 
      </table>
333 
    </td>
334 
    <td background="images/bg_lght_gray.gif">&nbsp;</td>
335 
  </tr>
336 
  <tr>
337 
    <td background="images/lbox_bg_orange.gif"><IMG height=35 src="images/spacer.gif" width=1></td>
338 
    <td background="images/lbox_bg_orange.gif"><span class="sublbox_ttl">&laquo;&nbsp;Select package</span></td>
339 
    <td background="images/lbox_bg_orange.gif">&nbsp;</td>
340 
  </tr>
341 
  <tr>
342 
    <td></td>
343 
    <td valign="top"><SPAN id="ProgressBar" name="ProgressBar" style="visibility:hidden;"><img src="images/i_processing.gif" width="11" height="17" align="absmiddle" hspace="3">Processing...</SPAN></td>
344 
    <td>&nbsp;</td>
345 
  </tr>
346 
</table>
347 
<%End If%>
348 
<%'Response.write "TOTAL TIME: "&  Timer - tempTimer%>