<%@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 rsTemp Dim rsMetrics Dim parPvId '------------ Constants Declaration ----------- '------------ Variable Init ------------------- parPvId = Request("pv_id") '---------------------------------------------- %> <% '------------------------------------------------------------------------------------------------------------------------ ' Thus function formulates a query that is intended to find the top 10 packages that have changed the most in a period of ' time, limited in scope to those packages that have at least one version in the specified release. ' The function relies upon the user of this ASP file having setup the Interval parameter as needed (see RequestReleasePackages.asp) Function formQueryString2 Dim qs qs = " SELECT pv_id, last_pv_id, pkg_id, pkg_version, v_ext, created_stamp, modified_stamp FROM package_versions " _ & " CONNECT BY NOCYCLE PRIOR last_pv_id = pv_id " _ & " START WITH pv_id = :PV_ID " _ & " ORDER BY pv_id DESC " formQueryString2 = qs End Function '------------------------------------------------------------------------------------------------------------------------ %> <% '------------------------ MAIN LINE --------------------------------- '-------------------------------------------------------------------- %>

<% ' Get the list of ancestor versions OraDatabase.Parameters.Add "PV_ID", Request("pv_id"), ORAPARM_INPUT, ORATYPE_NUMBER Set rsTemp = OraDatabase.DbCreateDynaset( formQueryString2, cint(0)) OraDatabase.Parameters.Remove "PV_ID" If rsTemp.RecordCount < 1 Then %> <% Else While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) OraDatabase.Parameters.Add "PV_ID", rsTemp("pv_id"), ORAPARM_INPUT, ORATYPE_NUMBER Set rsMetrics = OraDatabase.DbCreateDynaset( GetQuery("PackageVersionMetrics.sql"), cint(0)) OraDatabase.Parameters.Remove "PV_ID" If rsMetrics.RecordCount > 0 Then %> <% End If rsTemp.MoveNext rsMetrics.Close WEnd rsTemp.Close Set rsTemp = nothing End If %> Package Version   Autobuilt   Lines Of Code   Unit Tested   Autotested   Branches   Last Modified     "> <%=rsMetrics("pkg_name")%> <%=VBNEWLine%><%=rsMetrics("pkg_version")%>     <%If rsMetrics("is_autobuildable") = "Y" Then%>Yes<%Else%>No<%End If%> <%=rsMetrics("code_lines")%> <%If rsMetrics("unit_tested") = "Y" Then%>Yes<%Else%>No<%End If%> <%If rsMetrics("autotested") = "Y" Then%>Yes<%Else%>No<%End If%> <%=rsMetrics("branches")%> <%=EuroDate(rsTemp("modified_stamp"))%>

<% Call Destroy_All_Objects %>