Subversion Repositories DevTools

Rev

Details | Last modification | View Log | RSS feed

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