<%@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 PageInfoHash '------------ Constants Declaration ----------- '------------ Variable Init ------------------- Set PageInfoHash = CreateObject("Scripting.Dictionary") '---------------------------------------------- %> <% '------------------------------------------------------------------------------------------------------------------------ '------------------------------------------------------------------------------------------------------------------------ %> <% '------------------------ MAIN LINE --------------------------------- '-------------------------------------------------------------------- %>
_TOP10_1_WEEK" style="display:block;"> &Interval=1', '<%=Request("rtag_id")%>');"> Top 10 Changed Packages In Last Week _TOP10_1_WEEK" style="display:none;"> _TOP10_1_WEEK', 'IMG_EXPAND_RTAG_<%=Request("rtag_id")%>_TOP10_1_WEEK', 'IMG_COLLAPSE_RTAG_<%=Request("rtag_id")%>_TOP10_1_WEEK');"> Top 10 Changed Packages In Last Week
_TOP10_1_WEEK" style="display:none;"><%=enumLOADING%>
_TOP10_1_MONTH" style="display:block;"> &Interval=2', '<%=Request("rtag_id")%>');"> Top 10 Changed Packages In Last Month _TOP10_1_MONTH" style="display:none;"> _TOP10_1_MONTH', 'IMG_EXPAND_RTAG_<%=Request("rtag_id")%>_TOP10_1_MONTH', 'IMG_COLLAPSE_RTAG_<%=Request("rtag_id")%>_TOP10_1_MONTH');"> Top 10 Changed Packages In Last Month
_TOP10_1_MONTH" style="display:none;"><%=enumLOADING%>
_TOP10_3_MONTHS" style="display:block;"> &Interval=3', '<%=Request("rtag_id")%>');"> Top 10 Changed Packages In Last 3 Months _TOP10_3_MONTHS" style="display:none;"> _TOP10_3_MONTHS', 'IMG_EXPAND_RTAG_<%=Request("rtag_id")%>_TOP10_3_MONTHS', 'IMG_COLLAPSE_RTAG_<%=Request("rtag_id")%>_TOP10_3_MONTHS');"> Top 10 Changed Packages In Last 3 Months
_TOP10_3_MONTHS" style="display:none;"><%=enumLOADING%>
<% 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)) %> <%rsTemp.MoveNext WEnd rsTemp.Close Set rsTemp = nothing End If %>
Package Version Autobuilt Lines Of Code Unit Tested Autotested Branches Last Modified
 
_<%=rsTemp("pv_id")%>_PREV_PKG_VERS" style="display:block;"> &pv_id=<%=rsTemp("pv_id")%>', '<%=Request("rtag_id")&"_"&rsTemp("pv_id")%>');"> &rtag_id=<%=rsTemp("rtag_id")%>"> <%=rsTemp("pkg_name")%> <%=VBNEWLine%><%=rsTemp("pkg_version")%> _<%=rsTemp("pv_id")%>_PREV_PKG_VERS" style="display:none;"> _<%=rsTemp("pv_id")%>_PREV_PKG_VERS', 'IMG_EXPAND_RTAG_<%=Request("rtag_id")%>_<%=rsTemp("pv_id")%>_PREV_PKG_VERS', 'IMG_COLLAPSE_RTAG_<%=Request("rtag_id")%>_<%=rsTemp("pv_id")%>_PREV_PKG_VERS');"> &rtag_id=<%=rsTemp("rtag_id")%>"> <%=rsTemp("pkg_name")%> <%=VBNEWLine%><%=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 rsTemp("autotested") = "Y" Then%>Yes<%Else%>No<%End If%> <%=rsTemp("branches")%> <%=EuroDate(rsTemp("modified_stamp"))%>
_<%=rsTemp("pv_id")%>_PREV_PKG_VERS" style="display:none;"><%=enumLOADING%>

<% Call Destroy_All_Objects %>