<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== ' RequestPackageVersionHistoryMetrics.asp '===================================================== %> <% Option explicit ' Good idea to set when using redirect Response.Expires = 0 ' always load the page, dont store %> <% '------------ Variable Definition ------------- Dim rsMetrics Dim parPvId Dim parRtagId Dim parMode Dim parInterval Dim qFile Dim iRippleBasePVID, iLastSignificantPVID '------------ Constants Declaration ----------- '------------ Variable Init ------------------- parPvId = Request("pv_id") parRtagId = RequestDefault("rtag_id", 0) parMode = RequestDefault("mode", 0) parInterval = RequestDefault("interval", 0) qFile = Iif ( parMode = 1, "PackageVersionMetricsAll.sql", "PackageVersionMetrics.sql") If parMode <> 0 Then Call getLastSignificantVersions (parPvId, iRippleBasePVID, iLastSignificantPVID) End If '---------------------------------------------- %> <% '------------------------ MAIN LINE --------------------------------- '-------------------------------------------------------------------- ' Get the list of ancestor versions OraDatabase.Parameters.Add "RTAG_ID", parRtagId, ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "PV_ID", parPvId, ORAPARM_INPUT, ORATYPE_NUMBER Set rsMetrics = OraDatabase.DbCreateDynaset( GetQuery(qFile), cint(0)) OraDatabase.Parameters.Remove "PV_ID" OraDatabase.Parameters.Remove "RTAG_ID" %>

<% If rsMetrics.RecordCount < 1 Then %> <% Else While ((NOT rsMetrics.BOF) AND (NOT rsMetrics.EOF)) Dim trClass : trClass = "form_field_grey_bg" Dim showBaseRippleHelp : showBaseRippleHelp = FALSE Dim showInterval : showInterval = FALSE If parMode > 0 Then If rsMetrics("inRelease") <> 0 OR CLng(rsMetrics("ageDays")) <= CLng(parInterval) Then trClass = "form_field_hilight_bg" showInterval = TRUE End If If CLng(iRippleBasePVID) = CLng(rsMetrics("pv_id")) Then trClass = "form_field_hilight_bg" showBaseRippleHelp = TRUE End If End If %> <%If showBaseRippleHelp OR showInterval Then%> <%End If%> <% rsMetrics.MoveNext WEnd End If rsMetrics.Close Set rsMetrics = nothing %> Package Version [<%=rsMetrics.RecordCount%>] Autobuilt Build Reason Lines Of Code Unit Tested Autotested Last Modified None Found "><%=rsMetrics("pkg_name")%> <%=rsMetrics("pkg_version")%> <%=IIf(rsMetrics("is_autobuildable") = "Y", "Yes", "No")%> <%=rsMetrics("reason")%> <%=rsMetrics("code_lines")%> <%=IIf(rsMetrics("unit_tested") = "Y", "Yes", "No")%> <%If IsNull(rsMetrics("autotested")) OR rsMetrics("autotested") <> "Y" Then %>No<%ElseIf rsMetrics("test_count") = "0" Then%>?<%Else%><%=rsMetrics("test_count")%><%End If%> <%=rsMetrics("modified_stamp")%> <%If showInterval Then%> <%=Quick_Help("h_showInterval")%> <%End If%> <%If showBaseRippleHelp Then%> <%=Quick_HelpImg("h_baseRipple", "images/btn_left.gif")%> <%End If%>

<% Call Destroy_All_Objects %>