<% '===================================================== ' Package Pages '===================================================== %> <% '------------ Variable Definition ------------- Dim parExtpkg, parExtrtag_id Dim rsTemp Dim CanIgnoreWarnings 'Dim parFileDiff 'Dim parComparePvId 'Dim parFileFilter 'Dim dFileFilter 'Dim parDepFilter 'Dim dDepFilter '------------ Constants Declaration ----------- Const imgPkgLocked = "" Const imgPkgLockSpacer = "" '------------ Variable Init ------------------- parExtpkg = QStrPar("extpkg") parExtrtag_id = QStrPar("extrtag_id") '---------------------------------------------- %> <% '----------------------------------------------------------------------------------------------------------------- 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%><%End If%> <%' 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 If rsTemp("latest_dlocked") = "N" Then workInProgress = "Work is in progress..." Else workInProgress = "" End If %> <%If CanIgnoreWarnings Then%><%End If%> <% rsTemp.MoveNext Loop %> <%If noDependencies OR (ReleaseMode = enumDB_RELEASE_IN_CLOSED_MODE) Then%> <%Else%> <%If CanIgnoreWarnings Then%><%End If%> <%End If%>
Ignore
warnings		 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") )%>> <%If rsTemp("pkg_state") = 0 AND rsTemp("deprecated_state") <> "" Then%> <%=DefineStateIcon ( rsTemp("deprecated_state"), rsTemp("dlocked"), rsTemp("ignore_warn"), rsTemp("is_patch_ignore"), pkgInfoHash.Item("build_type"), FALSE )%> <%Else%> <%=DefineStateIcon ( rsTemp("pkg_state"), rsTemp("dlocked"), rsTemp("ignore_warn"), rsTemp("is_patch_ignore"), pkgInfoHash.Item("build_type"), FALSE )%> <%End If%> <%If NOT IsNull(rsTemp.Fields("dpv_link")) Then%><%=rsTemp.Fields("dpkg_name")%><%Else%><%=rsTemp.Fields("dpkg_name")%><%End If%> <%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%>" class="txt_linked"><%=workInProgress%><%=rsTemp.Fields("modifier_name")%> on <%=EuroDateTime ( rsTemp("modified_stamp") )%><%End If%> <%If (pkgInfoHash.Item ("dlocked") = "N") OR (pkgInfoHash.Item ("dlocked") = "R") Then%>&rtag_id=<%=NNrtag_id%>" onClick="return confirmDelete('this Build Dependency');">Remove from list.<%Else%><%End If%> <%If (NNrtag_id <> "") and (CInt(rsTemp("pkg_state")) = enumPKG_NOT_FOUND) 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_openBrWindow('" & surl & "','AddDependency','resizable=yes,width=560,height=310');" %> Add missing 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 If rsTemp("latest_dlocked") = "N" Then workInProgress = "Work is in progress..." 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%>" class="txt_linked"><%=workInProgress%><%=rsTemp.Fields("modifier_name")%> on <%=EuroDateTime ( 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');">Remove from list.<%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 %>


&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
Dependency Changes

 
<%Else%>
<%Call RenderActionBar(parRtag_id,NULL)%>
<%Call RenderStatus(parRtag_id,parPv_id)%>
 
« Select package  
 
<%End If%> <%'Response.write "TOTAL TIME: "& Timer - tempTimer%>