<% '===================================================== ' _dependencies_all.asp ' Core Implementation. ' Needs to be used via a wrapper '===================================================== %> <% '------------ Variable Definition ------------- Dim rsTemp Dim totalBuildTime : totalBuildTime = 0 Dim bUnknown : bUnknown = False '------------ Constants Declaration ----------- '------------ Variable Init ------------------- '---------------------------------------------- ' ' '---------------------------------------------- %> <%If pkgInfoHash.Exists("pv_id") Then%>
All packages that this package depends on - Complete list
<% OraDatabase.Parameters.Add "RTAG_ID", parRtag_id, ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "PV_ID", pkgInfoHash.Item("pv_id"), ORAPARM_INPUT, ORATYPE_NUMBER Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("DependsOnAll.sql"), cint(0)) OraDatabase.Parameters.Remove "PV_ID" OraDatabase.Parameters.Remove "RTAG_ID" %> <%While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Dim buildTime : buildTime = rsTemp("build_time") If ISNULL(buildTime) Then buildTime = "Unknown" bUnknown = TRUE Else buildTime = CLng(buildTime) totalBuildTime = totalBuildTime + buildTime End If %> <%If rsTemp("deprecated_state") <> "" AND rsTemp("pkg_state") = 0 Then%> <%Else%> <%End If%> <%rsTemp.MoveNext WEnd%> <%If rsTemp.RecordCount <= 1 Then%> <%End If%>
Build
Level<%=Quick_Help("h_buildLevel")%>
Name Version Build
Time<%=Quick_Help("h_buildTime")%>
Last Modified
<%=DefineStateIcon ( rsTemp("deprecated_state"), rsTemp("dlocked"), NULL, NULL, pkgInfoHash.Item("build_type"), TRUE )%><%=DefineStateIcon ( rsTemp("pkg_state"), rsTemp("dlocked"), NULL, NULL, pkgInfoHash.Item("build_type"), TRUE )%><%=rsTemp("BuildLevel")%> #<%=rsTemp("pv_id")%>" class="txt_linked"><%=rsTemp("pkg_name")%> &rtag_id=<%=parRtag_id%>" class="txt_linked"><%=rsTemp("pkg_version")%> <%=buildTime%> <%=emailField(enum_imgUser & rsTemp("full_name"), rsTemp("user_email"))%> <%=DisplayDate ( rsTemp("modified_stamp") )%>
  Root Package - Has no dependencies
Total Packages: <%=rsTemp.RecordCount%> Total Built Time <%=totalBuildTime%> [<%=NiceDuration(totalBuildTime)%>] <%If bUnknown Then%>  Note:Some package build times not known <%End If%>
<%rsTemp.Close()%> <%Set rsTemp = nothing%> <%End If%>