<% '===================================================== ' _dependencies_page.asp ' Package Pages '===================================================== %> <% '------------ Variable Definition ------------- Dim rsTemp Dim CanIgnoreWarnings '------------ Constants Declaration ----------- '------------ Variable Init ------------------- '---------------------------------------------- %> <% '----------------------------------------------------------------------------------------------------------------- Sub Print_Pkg_Dependencies ( NNpv_id, NNrtag_id, BBextpkg ) Dim rsTemp, Query_String, noDependencies noDependencies = FALSE Query_String = ReadFile( rootPath & "queries\dependencies.sql" ) OraDatabase.Parameters.Add "RTAG_ID", NNrtag_id, ORAPARM_INPUT OraDatabase.Parameters("RTAG_ID").ServerType = ORATYPE_NUMBER OraDatabase.Parameters.Add "PV_ID", NNpv_id, ORAPARM_INPUT OraDatabase.Parameters("PV_ID").ServerType = ORATYPE_NUMBER Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, 0 ) CanIgnoreWarnings = FALSE If NNrtag_id <> "" AND is_daemon_enabled_release(NNrtag_id, TRUE) = FALSE Then If pkgInfoHash.Item("build_type") = "M" OR _ ( pkgInfoHash.Item("build_type") = "A" AND pkgInfoHash.Item("dlocked") = "Y" ) OR _ ( pkgInfoHash.Item("build_type") = "Y" AND pkgInfoHash.Item("dlocked") = "Y" ) Then CanIgnoreWarnings = TRUE End If End If %> <%If CanIgnoreWarnings Then%> <%' Display "no dependencies" if needed%> <%If rsTemp.RecordCount = 0 Then%> <%If CanIgnoreWarnings Then%><%End If%> <% noDependencies = TRUE End If %> <% Dim objTempSession, pkgURL, workInProgress Do Until ((rsTemp.BOF) OR (rsTemp.EOF)) pkgURL = "#" If NOT IsNull(rsTemp.Fields("dpv_link")) Then pkgURL = scriptName &"?pv_id="& rsTemp("dpv_link") &"&rtag_id="& NNrtag_id ElseIf NOT IsNull(rsTemp.Fields("orig_pv_id")) Then pkgURL = scriptName &"?pv_id="& rsTemp("orig_pv_id") End If If rsTemp("latest_dlocked") = "N" Then workInProgress = enum_imgUser Else workInProgress = "" End If %> <%If CanIgnoreWarnings Then%> <%End If%> <% rsTemp.MoveNext Loop %> <%If noDependencies OR releaseIsClosed(ReleaseMode) Then%> <%ElseIf CanIgnoreWarnings Then%> <%Else%> <%End If%>

Ignore warnings<%End If%>		Name	<%=imgPkgLockSpacer%>Version	<%=imgPkgLockSpacer%>Released	Last Modified

" <%=Define_Ignore_State ( rsTemp("ignore_warn"), rsTemp("is_patch_ignore"), rsTemp("pkg_state"), rsTemp("latest_pkg_version"), rsTemp("dlocked") )%>>	<%=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 )%>	<%=rsTemp.Fields("dpkg_name")%>	<%If rsTemp("dlocked") = "Y" Then%><%=imgPkgLocked%><%Else%><%=imgPkgLockSpacer%><%End If%><%=rsTemp("dpkg_version")%>	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")%>	<%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%>	<%If ((NOT pkgInfoHash.Item("is_sdkpkg")) AND ((pkgInfoHash.Item ("dlocked") = "N") OR (pkgInfoHash.Item ("dlocked") = "R"))) OR (criticalSectionIsEditable) Then%> &rtag_id=<%=NNrtag_id%>" onClick="return vixConfirmDelete('this Build Dependency');"> <%Else%> <%End If%>	<%If (NNrtag_id <> "") and ((CInt(rsTemp("pkg_state")) = enumPKG_NOT_FOUND) OR (CInt(rsTemp("pkg_state")) = enumPKG_SDK_DEPENDENCY)) Then%> <% Dim sonclick Dim surl surl = "_wform_add_missing_dependency.asp" &_ "?rfile=" & scriptName &_ "&ppv_id=" & NNpv_id &_ "&pv_id=" & rsTemp("orig_pv_id") &_ "&rtag_id=" & NNrtag_id sonclick = "MM_openVixIFrame('" & surl & "','Add Dependency');" %> <%Else%> <%End If%>

<% OraDatabase.Parameters.Remove "RTAG_ID" OraDatabase.Parameters.Remove "PV_ID" rsTemp.Close Set rsTemp = nothing End Sub '----------------------------------------------------------------------------------------------------------------- Sub Print_Patch_Dependencies ( NNpv_id, NNrtag_id, BBextpkg ) Dim rsTemp, Query_String, noDependencies noDependencies = FALSE Query_String = ReadFile( rootPath & "queries\dependencies.sql" ) OraDatabase.Parameters.Add "RTAG_ID", NNrtag_id, ORAPARM_INPUT OraDatabase.Parameters("RTAG_ID").ServerType = ORATYPE_NUMBER OraDatabase.Parameters.Add "PV_ID", NNpv_id, ORAPARM_INPUT OraDatabase.Parameters("PV_ID").ServerType = ORATYPE_NUMBER Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, 0 )%> <%' Display "no dependencies" if needed%> <%If rsTemp.RecordCount = 0 Then%> <% noDependencies = TRUE End If %> <% Dim objTempSession, pkgURL, workInProgress Do Until ((rsTemp.BOF) OR (rsTemp.EOF)) pkgURL = "#" If NOT IsNull(rsTemp.Fields("dpv_link")) Then pkgURL = scriptName &"?pv_id="& rsTemp("orig_pv_id") &"&rtag_id="& parRtag_id ElseIf NOT IsNull(rsTemp.Fields("orig_pv_id")) Then pkgURL = scriptName &"?pv_id="& rsTemp("orig_pv_id") End If If rsTemp("latest_dlocked") = "N" Then workInProgress = enum_imgUser Else workInProgress = "" End If %> <% rsTemp.MoveNext Loop %>

Name	<%=imgPkgLockSpacer%>Version	Last Modified

<%If rsTemp("is_patch") = "Y" Then%><%=PatchIcon ( rsTemp("is_patch"), rsTemp("is_obsolete") )%><%End If%><%=rsTemp.Fields("dpkg_name")%>	<%If rsTemp("dlocked") = "Y" Then%><%=imgPkgLocked%><%Else%><%=imgPkgLockSpacer%><%End If%><%=rsTemp("dpkg_version")%>	<%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%>	<%If (pkgInfoHash.Item ("dlocked") = "N") OR (pkgInfoHash.Item ("dlocked") = "R") Then%>&rtag_id=<%=parRtag_id%>" onClick="return confirmDelete('this Build Dependency');"><%Else%><%End If%>

<% OraDatabase.Parameters.Remove "RTAG_ID" OraDatabase.Parameters.Remove "PV_ID" rsTemp.Close Set rsTemp = nothing End Sub '----------------------------------------------------------------------------------------------------------------- Function Define_Ignore_State ( BBcurr_ignore_state, cIsPatchIgnore, NNpkg_state, SSlatest, SSdlocked ) ' ==== Ignore Warning Rules ==== ' ENABLE - Dependency is official AND PKG_STATE is OK AND has no latest AND current ignore warning is not ticked AND not Patch Ignore ' ENABLE - current ignore state is ticked AND not Patch Ignore If (SSdlocked = "Y") AND _ ( (CInt(NNpkg_state) <> enumPKG_STATE_OK) OR (SSlatest <> "") ) _ Then Define_Ignore_State = " "& BBcurr_ignore_state Else Define_Ignore_State = "disabled "& BBcurr_ignore_state End If 'If ( (SSdlocked = "Y") AND _ ' (CInt(NNpkg_state) = enumPKG_STATE_OK) AND _ ' (SSlatest <> "") AND _ ' IsNull(BBcurr_ignore_state) AND _ ' IsNull(cIsPatchIgnore) ) _ ' OR _ ' ( NOT IsNull(BBcurr_ignore_state) AND IsNull(cIsPatchIgnore) ) Then ' ' Define_Ignore_State = " "& BBcurr_ignore_state 'Else ' Define_Ignore_State = "disabled "& BBcurr_ignore_state 'End If End Function '----------------------------------------------------------------------------------------------------------------- '----------------------------------------------------------------------------------------------------------------- %> <% '------------------------- MAIN LINE --------------------------- '--------------------------------------------------------------- %> <%If (parPv_id <> "") Then%>

<%Call RenderActionBar(parRtag_id,parPv_id)%>

<%Call RenderStatus(parRtag_id,parPv_id)%>

<%Call Generate_Tab_Menu ( TABarray1, "Dependencies", "orange" )%>

<%Call Action_Buttons ( "Build Dependencies" )%>

Build Dependencies <% If pkgInfoHash.Item ("is_patch") = "Y" Then Call Print_Patch_Dependencies ( parPv_id, parRtag_id, FALSE ) Else Call Print_Pkg_Dependencies ( parPv_id, parRtag_id, FALSE ) End If %>

Dependency Changes

&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

<%Else%>

<%Call RenderActionBar(parRtag_id,NULL)%>

<%Call RenderStatus(parRtag_id,parPv_id)%>

« Select package

<%End If%> <%'Response.write "TOTAL TIME: "& Timer - tempTimer%>