<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| RequestReleasePackages.asp | '| | '===================================================== %> <% Option explicit ' Good idea to set when using redirect Response.Expires = 0 ' always load the page, dont store %> <% '------------ Variable Definition ------------- Dim rsTemp Dim BaseId '------------ Constants Declaration ----------- '------------ Variable Init ------------------- '---------------------------------------------- %> <% '------------------------ MAIN LINE --------------------------------- %>
<% OraDatabase.Parameters.Add "RTAG_ID", Request("rtag_id"), ORAPARM_INPUT, ORATYPE_NUMBER Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("PackageMetricsList.sql"), cint(0)) OraDatabase.Parameters.Remove "RTAG_ID" If rsTemp.RecordCount < 1 Then %> <% Else While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) BaseId = "PREV_" & Request("rtag_id") & "_" & rsTemp("pv_id") %> <%rsTemp.MoveNext WEnd rsTemp.Close Set rsTemp = nothing End If %>
Package Version Autobuilt Lines Of Code Unit Tested Autotested Last Modified
 
&pv_id=<%=rsTemp("pv_id")%>;" class="txt_linked" onClick="ToggleLoadControl('<%=BaseId%>','RequestPackageVersionHistoryMetrics.asp?rtag_id=<%=Request("rtag_id")%>&pv_id=<%=rsTemp("pv_id")%>');"> &rtag_id=<%=rsTemp("rtag_id")%>"><%=rsTemp("pkg_name")%> <%=rsTemp("pkg_version")%> <%If rsTemp("is_autobuildable") = "Y" Then%>Yes<%Else%>No<%End If%> <%=rsTemp("code_lines")%> <%If rsTemp("unit_tested") = "Y" Then%>Yes<%Else%>No<%End If%> <%If IsNull(rsTemp("autotested")) OR rsTemp("autotested") <> "Y" Then %>No<%ElseIf rsTemp("test_count") = "0" Then%>?<%Else%><%=rsTemp("test_count")%><%End If%> <%=rsTemp("modified_stamp")%>

<% Call Destroy_All_Objects %>