Subversion Repositories DevTools

Rev

Rev 7288 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
119 ghuddy 1 
<%
2 
'=====================================================
5590 dpurdie 3 
'   _dependencies_page.asp
145 ghuddy 4 
'               Package Pages
119 ghuddy 5 
'=====================================================
6 
%>
7 
<!--#include file="_tabs.asp"-->
8 
<!--#include file="_action_buttons.asp"-->
9 
<%
10 
'------------ Variable Definition -------------
11 
Dim rsTemp
12 
Dim CanIgnoreWarnings
13 
'------------ Constants Declaration -----------
14 
'------------ Variable Init -------------------
6788 dpurdie 15 
 
119 ghuddy 16 
'----------------------------------------------
17 
%>
18 
<%
19 
'-----------------------------------------------------------------------------------------------------------------
20 
Sub Print_Pkg_Dependencies ( NNpv_id, NNrtag_id, BBextpkg )
145 ghuddy 21 
   Dim rsTemp, Query_String, noDependencies
22 
   noDependencies = FALSE
23 
 
24 
 
25 
   Query_String = ReadFile( rootPath & "queries\dependencies.sql" )
26 
 
27 
   OraDatabase.Parameters.Add "RTAG_ID", NNrtag_id, ORAPARM_INPUT
28 
   OraDatabase.Parameters("RTAG_ID").ServerType = ORATYPE_NUMBER
29 
 
30 
   OraDatabase.Parameters.Add "PV_ID", NNpv_id, ORAPARM_INPUT
31 
   OraDatabase.Parameters("PV_ID").ServerType = ORATYPE_NUMBER
32 
 
33 
   Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, 0 )
34 
 
35 
   CanIgnoreWarnings = FALSE
36 
   If NNrtag_id <> "" AND is_daemon_enabled_release(NNrtag_id, TRUE) = FALSE Then
37 
      If pkgInfoHash.Item("build_type") = "M" OR _
38 
         ( pkgInfoHash.Item("build_type") = "A" AND pkgInfoHash.Item("dlocked") = "Y" ) OR _
39 
         ( pkgInfoHash.Item("build_type") = "Y" AND pkgInfoHash.Item("dlocked") = "Y" ) Then
40 
         CanIgnoreWarnings = TRUE
41 
      End If
42 
   End If
183 brianf 43 
 
145 ghuddy 44 
   %>
6790 dpurdie 45 
   <table width="100%" border="0" cellspacing="1" cellpadding="3" class="stdGrey">
7292 dpurdie 46 
      <form name="ignore_warnings" method="get" action="_ignore_warnings.asp" onSubmit="showGlobalProgress();">
6790 dpurdie 47 
          <thead>
48 
             <tr>
49 
                <%If CanIgnoreWarnings Then%><th nowrap width="1%" align="center">Ignore<br>warnings</td><%End If%>
50 
                <th nowrap width="1%"></td>
51 
                <th nowrap width="1%">Name</td>
52 
                <th nowrap width="1%"><%=imgPkgLockSpacer%>Version</td>
53 
                <th nowrap width="100%"><%=imgPkgLockSpacer%>Released</td>
54 
                <th nowrap width="1%" align="center">Last&nbsp;Modified</td>
55 
                <th nowrap width="1%"></td>
56 
                <th nowrap width="1%">&nbsp;&nbsp;&nbsp;</td>
57 
             </tr>
58 
          </thead>
145 ghuddy 59 
         <%' Display "no dependencies" if needed%>
60 
         <%If rsTemp.RecordCount = 0 Then%>
6790 dpurdie 61 
            <tr>
6788 dpurdie 62 
               <%If CanIgnoreWarnings Then%><td>&nbsp;</td><%End If%>
6790 dpurdie 63 
               <td>&nbsp;</td>
64 
               <td>&nbsp;</td>
65 
               <td>&nbsp;</td>
66 
               <td>&nbsp;</td>
67 
               <td>&nbsp;</td>
68 
               <td></td>
69 
               <td>&nbsp;</td>
145 ghuddy 70 
            </tr>
71 
            <%
72 
            noDependencies = TRUE
73 
         End If
74 
         %>
75 
         <%
76 
         Dim objTempSession, pkgURL, workInProgress
77 
 
78 
         Do Until ((rsTemp.BOF) OR (rsTemp.EOF))
79 
            pkgURL = "#"
4043 dpurdie 80 
            If NOT IsNull(rsTemp.Fields("dpv_link")) Then
81 
                pkgURL = scriptName &"?pv_id="& rsTemp("dpv_link") &"&rtag_id="& NNrtag_id
82 
            ElseIf NOT IsNull(rsTemp.Fields("orig_pv_id")) Then
83 
                pkgURL = scriptName &"?pv_id="& rsTemp("orig_pv_id")
84 
            End If
145 ghuddy 85 
 
86 
            If rsTemp("latest_dlocked") = "N" Then
6610 dpurdie 87 
               workInProgress = enum_imgUser
145 ghuddy 88 
            Else
89 
               workInProgress = ""
90 
            End If
91 
 
92 
            %>
6790 dpurdie 93 
            <tr>
5175 dpurdie 94 
               <%If CanIgnoreWarnings Then%>
6790 dpurdie 95 
					<td align="center" nowrap class=>
5175 dpurdie 96 
						<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") )%>>
97 
					</td>
98 
			   <%End If%>
6790 dpurdie 99 
               <td align="center">
5175 dpurdie 100 
				  <%=DefineStateIcon ( iif(rsTemp("pkg_state") <> 0,rsTemp("pkg_state"),rsTemp("deprecated_state")), rsTemp("dlocked"), rsTemp("ignore_warn"), rsTemp("is_patch_ignore"), pkgInfoHash.Item("build_type"), FALSE )%>
145 ghuddy 101 
               </td>
6790 dpurdie 102 
               <td nowrap><a href="<%=pkgURL%>" class="txt_linked"><%=rsTemp.Fields("dpkg_name")%></a></td>
103 
               <td nowrap><%If rsTemp("dlocked") = "Y" Then%><%=imgPkgLocked%><%Else%><%=imgPkgLockSpacer%><%End If%><%=rsTemp("dpkg_version")%></td>
6788 dpurdie 104 
               <td <%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>
6790 dpurdie 105 
               <td nowrap><%If NOT IsNull(rsTemp.Fields("modifier_name")) Then%><%=emailField(workInProgress & rsTemp.Fields("modifier_name"), rsTemp.Fields("modifier_email"))%> on <%=DisplayDateTime ( rsTemp("modified_stamp")  )%><%End If%></td>
106 
               <td>
5080 dpurdie 107 
                        <%If (NOT pkgInfoHash.Item("is_sdkpkg")) AND ((pkgInfoHash.Item ("dlocked") = "N") OR (pkgInfoHash.Item ("dlocked") = "R")) Then%>
5190 dpurdie 108 
                            <a href="_remove_build_dependency.asp?pv_id=<%=NNpv_id%>&dpv_id=<%=rsTemp("orig_pv_id")%>&rtag_id=<%=NNrtag_id%>" onClick="return vixConfirmDelete('this Build Dependency');"><img src="images/i_delete.gif" alt="Remove from list." width="13" height="12" hspace="3" border="0" title="Delete this package as a dependency"></a>
5080 dpurdie 109 
                        <%Else%>
110 
                            <img src="images/i_delete_disable.gif" width="13" height="12" hspace="3" border="0" title="Delete this package as a dependency">
111 
                        <%End If%>
112 
               </td>
6790 dpurdie 113 
               <td>
5083 dpurdie 114 
               <%If (NNrtag_id <> "") and ((CInt(rsTemp("pkg_state")) = enumPKG_NOT_FOUND) OR (CInt(rsTemp("pkg_state")) = enumPKG_SDK_DEPENDENCY)) Then%>
183 brianf 115 
               <%
116 
                 Dim sonclick
117 
                 Dim surl
118 
                 surl = "_wform_add_missing_dependency.asp" &_
119 
                   "?rfile=" & scriptName &_
120 
                   "&ppv_id=" & NNpv_id &_
121 
                   "&pv_id=" & rsTemp("orig_pv_id") &_
122 
                   "&rtag_id=" & NNrtag_id
5607 dpurdie 123 
                 sonclick = "MM_openVixIFrame('" & surl & "','Add Dependency');"
183 brianf 124 
               %>
5080 dpurdie 125 
                 <img onclick="<%=sonclick%>" src="images/i_add_missing_dep.gif" alt="Add missing dependency." width="15" height="15" hspace="3" border="0" title="Add this package to the Release">
183 brianf 126 
               <%Else%>
6788 dpurdie 127 
                 <img src="images/i_add_missing_dep.gif" width="15" height="15" hspace="3" border="0" class="lessOpacity" style="visibility:hidden">
183 brianf 128 
               <%End If%>
129 
               </td>
130 
 
131 
 
145 ghuddy 132 
            </tr>
133 
            <%
134 
            rsTemp.MoveNext
135 
         Loop
136 
         %>
6790 dpurdie 137 
        <tr class=blank>
5178 dpurdie 138 
            <%If noDependencies OR releaseIsClosed(ReleaseMode) Then%>
145 ghuddy 139 
               <td></td>
6790 dpurdie 140 
            <%ElseIf CanIgnoreWarnings Then%>
141 
                <td nowrap align="center" class="form_field_bg"><input name="Submit" type="submit" class="form_btn" id="Submit" value="Apply" ></td>
142 
                <td></td>
145 ghuddy 143 
            <%Else%>
6790 dpurdie 144 
               <td></td>
145 ghuddy 145 
            <%End If%>
7288 dpurdie 146 
            <td colspan="2"></td>
183 brianf 147 
            <td><img src="images/spacer.gif" width="150" height="1"></td>
145 ghuddy 148 
            <td></td>
149 
            <td></td>
150 
            <td></td>
151 
         </tr>
152 
         <input type="hidden" name="pv_id" value="<%=NNpv_id%>">
153 
         <input type="hidden" name="rtag_id" value="<%=NNrtag_id%>">
154 
      </form>
155 
   </table>
156 
   <%
157 
   OraDatabase.Parameters.Remove "RTAG_ID"
158 
   OraDatabase.Parameters.Remove "PV_ID"
159 
   rsTemp.Close
160 
   Set rsTemp = nothing
119 ghuddy 161 
End Sub
162 
'-----------------------------------------------------------------------------------------------------------------
163 
Sub Print_Patch_Dependencies ( NNpv_id, NNrtag_id, BBextpkg )
145 ghuddy 164 
   Dim rsTemp, Query_String, noDependencies
165 
   noDependencies = FALSE
166 
 
167 
   Query_String = ReadFile( rootPath & "queries\dependencies.sql" )
168 
 
169 
   OraDatabase.Parameters.Add "RTAG_ID", NNrtag_id, ORAPARM_INPUT
170 
   OraDatabase.Parameters("RTAG_ID").ServerType = ORATYPE_NUMBER
171 
 
172 
   OraDatabase.Parameters.Add "PV_ID", NNpv_id, ORAPARM_INPUT
173 
   OraDatabase.Parameters("PV_ID").ServerType = ORATYPE_NUMBER
174 
 
175 
   Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, 0 )%>
176 
 
6790 dpurdie 177 
   <table width="100%" border="0" cellspacing="1" cellpadding="3" class="stdGrey">
178 
       <thead>
179 
          <tr>
180 
             <th nowrap width="1%" >Name<br><img src="images/h_trsp_dot.gif" width="120" height="1"></td>
181 
             <th nowrap width="100%" ><%=imgPkgLockSpacer%>Version</td>
182 
             <th nowrap width="1%" align="center">Last&nbsp;Modified</td>
183 
             <th nowrap width="1%" ></td>
184 
          </tr>
185 
       </thead>
145 ghuddy 186 
      <%' Display "no dependencies" if needed%>
187 
      <%If rsTemp.RecordCount = 0 Then%>
6790 dpurdie 188 
         <tr>
189 
            <td>&nbsp;</td>
190 
            <td>&nbsp;</td>
191 
            <td>&nbsp;</td>
192 
            <td>&nbsp;</td>
145 ghuddy 193 
         </tr>
194 
         <%
195 
         noDependencies = TRUE
196 
      End If
197 
      %>
198 
      <%
199 
      Dim objTempSession, pkgURL, workInProgress
200 
 
201 
      Do Until ((rsTemp.BOF) OR (rsTemp.EOF))
202 
         pkgURL = "#"
4043 dpurdie 203 
         If NOT IsNull(rsTemp.Fields("dpv_link")) Then
204 
            pkgURL = scriptName &"?pv_id="& rsTemp("orig_pv_id") &"&rtag_id="& parRtag_id
205 
         ElseIf NOT IsNull(rsTemp.Fields("orig_pv_id")) Then
206 
            pkgURL = scriptName &"?pv_id="& rsTemp("orig_pv_id")
207 
         End If
145 ghuddy 208 
 
209 
         If rsTemp("latest_dlocked") = "N" Then
6610 dpurdie 210 
            workInProgress = enum_imgUser
145 ghuddy 211 
         Else
212 
            workInProgress = ""
213 
         End If
214 
 
215 
         %>
6790 dpurdie 216 
         <tr>
217 
            <td 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>
218 
            <td nowrap><%If rsTemp("dlocked") = "Y" Then%><%=imgPkgLocked%><%Else%><%=imgPkgLockSpacer%><%End If%><%=rsTemp("dpkg_version")%></td>
219 
            <td nowrap><%If NOT IsNull(rsTemp.Fields("modifier_name")) Then%><%=emailField(workInProgress & rsTemp.Fields("modifier_name"), rsTemp.Fields("modifier_email"))%> on <%=DisplayDateTime ( rsTemp("modified_stamp") )%><%End If%></td>
220 
            <td><%If (pkgInfoHash.Item ("dlocked") = "N") OR (pkgInfoHash.Item ("dlocked") = "R") 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>
145 ghuddy 221 
         </tr>
222 
         <%
223 
         rsTemp.MoveNext
224 
      Loop
225 
      %>
226 
      <tr>
7288 dpurdie 227 
         <td colspan="2" ></td>
145 ghuddy 228 
         <td></td>
229 
         <td></td>
230 
      </tr>
231 
   </table>
232 
   <%
233 
   OraDatabase.Parameters.Remove "RTAG_ID"
234 
   OraDatabase.Parameters.Remove "PV_ID"
235 
   rsTemp.Close
236 
   Set rsTemp = nothing
119 ghuddy 237 
End Sub
238 
'-----------------------------------------------------------------------------------------------------------------
239 
Function Define_Ignore_State ( BBcurr_ignore_state, cIsPatchIgnore, NNpkg_state, SSlatest, SSdlocked )
145 ghuddy 240 
   ' ==== Ignore Warning Rules ====
241 
   ' ENABLE - Dependency is   official  AND  PKG_STATE is OK  AND  has no latest  AND  current ignore warning is not ticked AND not Patch Ignore
242 
   ' ENABLE - current ignore state is ticked AND not Patch Ignore
243 
 
244 
   If  (SSdlocked = "Y") AND _
245 
      ( (CInt(NNpkg_state) <> enumPKG_STATE_OK) OR (SSlatest <> "") ) _
246 
   Then
247 
 
248 
      Define_Ignore_State = " "& BBcurr_ignore_state
249 
 
250 
   Else
251 
 
252 
      Define_Ignore_State = "disabled "& BBcurr_ignore_state
253 
 
254 
   End If
255 
 
256 
 
257 
   'If ( (SSdlocked = "Y") AND _
258 
   '     (CInt(NNpkg_state) = enumPKG_STATE_OK) AND _
259 
   '     (SSlatest <> "") AND _
260 
   '     IsNull(BBcurr_ignore_state) AND _
261 
   '    IsNull(cIsPatchIgnore) ) _
262 
   '   OR _
263 
   '   ( NOT IsNull(BBcurr_ignore_state)  AND  IsNull(cIsPatchIgnore) ) Then
264 
   '
265 
   '   Define_Ignore_State = " "& BBcurr_ignore_state
266 
   'Else
267 
   '   Define_Ignore_State = "disabled "& BBcurr_ignore_state
268 
   'End If
119 ghuddy 269 
End Function
270 
'-----------------------------------------------------------------------------------------------------------------
271 
'-----------------------------------------------------------------------------------------------------------------
272 
%>
273 
<%
274 
'------------------------- MAIN LINE ---------------------------
275 
 
276 
 
277 
'---------------------------------------------------------------
278 
%>
279 
<%If (parPv_id <> "") Then%>
145 ghuddy 280 
   <!-- MAIN PAGE ------------------------------------------>
281 
   <table width="100%" border="0" cellspacing="0" cellpadding="0">
282 
      <tr>
6877 dpurdie 283 
         <td width='1%' class='bg_dialog'><IMG height=35 src="images/spacer.gif" width=15></td>
284 
         <td width='100%' class='bg_dialog'><%Call RenderActionBar(parRtag_id,parPv_id)%></td>
285 
         <td width='1%' class='bg_dialog'><IMG height=1 src="images/spacer.gif" width=15></td>
145 ghuddy 286 
      </tr>
6879 dpurdie 287 
      <tr class='bg_grey'>
288 
        <td><IMG height="45" src="images/spacer.gif" width=1></td>
289 
        <td><%Call RenderStatus(parRtag_id,parPv_id)%></td>
290 
        <td>&nbsp;</td>
183 brianf 291 
      </tr>
6879 dpurdie 292 
      <tr class='bg_grey'>
293 
         <td>&nbsp;</td>
294 
         <td valign="bottom">
6873 dpurdie 295 
            <table width="100%" border="0" cellspacing="0" cellpadding="0">
145 ghuddy 296 
               <tr>
4687 dpurdie 297 
                  <td><IMG height="1" src="images/spacer.gif" width="0" alt="tab-left-margin" ></td>
145 ghuddy 298 
                  <td>
299 
                     <!-- TABS ------------------------------------->
300 
                     <%Call Generate_Tab_Menu ( TABarray1, "Dependencies", "orange" )%>
301 
                  </td>
302 
               </tr>
303 
            </table>
304 
         </td>
6879 dpurdie 305 
         <td>&nbsp;</td>
145 ghuddy 306 
      </tr>
6876 dpurdie 307 
      <tr class='bg_panel'>
6873 dpurdie 308 
         <td></td>
309 
         <td>
145 ghuddy 310 
            <!-- TAB ACTION BUTTONS ------------------------------------->
311 
            <%Call Action_Buttons ( "Build Dependencies" )%>
312 
         </td>
6873 dpurdie 313 
         <td></td>
145 ghuddy 314 
      </tr>
315 
      <tr>
316 
         <td></td>
317 
         <td valign="top">
318 
            <!-- BUILD DEPENDENCIES ------------------------------------->
319 
            <br>
320 
            <fieldset>
321 
               <legend class="body_colb">Build Dependencies</legend>
322 
               <a name="DEPENDENCIES"></a>
323 
               <%
324 
               If pkgInfoHash.Item ("is_patch") = "Y" Then
325 
                  Call Print_Patch_Dependencies ( parPv_id, parRtag_id, FALSE )
326 
               Else
327 
                  Call Print_Pkg_Dependencies ( parPv_id, parRtag_id, FALSE )
328 
               End If
329 
               %>
330 
            </fieldset>
6683 dpurdie 331 
            <br>
145 ghuddy 332 
            <!-- MODULE CHANGES ----------------------------------------->
333 
            <fieldset>
334 
               <legend class="body_colb">Dependency Changes</legend>
6683 dpurdie 335 
               <div style="display: block;float: right;margin-top: -20px;background-color: #FFF;padding: 0 5px;">
6827 dpurdie 336 
                    <span 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=1200,height=600')" class="txt_linked pointer" title='Open this section in new window.'><%=LIMG_NEW_WINDOW%>New Window</span>
6683 dpurdie 337 
               </div>
145 ghuddy 338 
               <!--#include file="_mod_dependency_changes.asp"-->
339 
            </fieldset><br>
340 
            <!----------------------------------------------------------->
341 
         </td>
342 
         <td>&nbsp;</td>
343 
      </tr>
344 
   </table>
119 ghuddy 345 
 
346 
<%Else%>
347 
 
145 ghuddy 348 
   <!-- NO PACKAGE SELECTED  ------------------------------------>
349 
   <table width="100%" border="0" cellspacing="0" cellpadding="0">
350 
      <tr>
6877 dpurdie 351 
         <td width='1%' class='bg_dialog'><IMG height=35 src="images/spacer.gif" width=15></td>
352 
         <td width='100%' class='bg_dialog'><%Call RenderActionBar(parRtag_id,NULL)%></td>
353 
         <td width='1%' class='bg_dialog'><IMG height=1 src="images/spacer.gif" width=15></td>
145 ghuddy 354 
      </tr>
355 
      <tr>
356 
         <td background="images/bg_lght_gray.gif"><IMG height=50 src="images/spacer.gif" width=1></td>
187 brianf 357 
         <td background="images/bg_lght_gray.gif"><%Call RenderStatus(parRtag_id,parPv_id)%></td>
145 ghuddy 358 
         <td background="images/bg_lght_gray.gif"></td>
359 
      </tr>
360 
      <tr>
361 
         <td background="images/bg_lght_gray.gif"></td>
362 
         <td valign="bottom" background="images/bg_lght_gray.gif">
6873 dpurdie 363 
            <table width="100%" border="0" cellspacing="0" cellpadding="0">
145 ghuddy 364 
               <tr>
365 
                  <td><IMG height=1 src="images/spacer.gif" width=150></td>
366 
                  <td><!-- TABS -------------------------------------></td>
367 
               </tr>
368 
            </table>
369 
         </td>
370 
         <td background="images/bg_lght_gray.gif">&nbsp;</td>
371 
      </tr>
6876 dpurdie 372 
      <tr class='bg_panel' style="height:35px;">
6873 dpurdie 373 
        <td></td>
374 
        <td class="sublbox_ttl">&laquo;&nbsp;Select package</td>
375 
        <td></td>
145 ghuddy 376 
      </tr>
377 
      <tr>
378 
         <td></td>
7288 dpurdie 379 
         <td valign="top"></td>
145 ghuddy 380 
         <td>&nbsp;</td>
381 
      </tr>
382 
   </table>
119 ghuddy 383 
<%End If%>
145 ghuddy 384 
<%'Response.write "TOTAL TIME: "&  Timer - tempTimer%>