Subversion Repositories DevTools

<%@LANGUAGE="VBSCRIPT"%>
<%
'=====================================================
'|                                                   |
'|              RequestReleasePackages.asp           |
'|                                                   |
'=====================================================
%>
<%
Option explicit
' Good idea to set when using redirect
Response.Expires = 0   ' always load the page, dont store
%>
<!--#include file="common/conf.asp"-->
<!--#include file="common/globals.asp"-->
<!--#include file="common/formating.asp"-->
<!--#include file="common/qstr.asp"-->
<!--#include file="common/common_subs.asp"-->
<%
'------------ Variable Definition -------------
Dim rsTemp
Dim PageInfoHash
'------------ Constants Declaration -----------
'------------ Variable Init -------------------
Set PageInfoHash = CreateObject("Scripting.Dictionary")
'----------------------------------------------
%>
<%
'------------------------------------------------------------------------------------------------------------------------
'------------------------------------------------------------------------------------------------------------------------
%>
<%
'------------------------ MAIN LINE ---------------------------------
'--------------------------------------------------------------------
Dim BaseId
BaseId = "TOP10_" & Request("rtag_id")
%>
<!-- RequestReleasePackages.asp -->
<table width="100%" border="0" cellspacing="1" cellpadding="1">
<tr class="form_field_bg">
    <td nowrap class="body_row">
          <a href='javascript:;' class="txt_linked" onClick="ToggleLoadControl('<%=BaseId%>','RequestTop10Changes.asp?rtag_id=<%=Request("rtag_id")%>&Interval=1');">
          <img id='IMG_<%=BaseId%>' src="images/bt_plus.gif" border="0" align="absmiddle" hspace="3">
          <img src="images/i_world.gif" border="0" align="absmiddle" hspace="3">
          Top 10 Changed Packages In Last Week
          </a>
    </td>
</tr>
<tr class="form_field_bg" id="TGL_<%=BaseId%>" style="display:none;">
  <td nowrap class="body_row"><div id='<%=BaseId%>'><%=enumLOADING%></div></td>
</tr>
<%BaseId = "TOP10MON_" & Request("rtag_id")%>
<tr class="form_field_bg">
    <td nowrap class="body_row">
          <a href='javascript:;' class="txt_linked" onClick="ToggleLoadControl('<%=BaseId%>','RequestTop10Changes.asp?rtag_id=<%=Request("rtag_id")%>&Interval=2');">
          <img id='IMG_<%=BaseId%>' src="images/bt_plus.gif" border="0" align="absmiddle" hspace="3">
          <img src="images/i_world.gif" border="0" align="absmiddle" hspace="3">
          Top 10 Changed Packages In Last Month
          </a>
    </td>
</tr>
<tr class="form_field_bg" id="TGL_<%=BaseId%>" style="display:none;">
  <td nowrap class="body_row"><div id='<%=BaseId%>'><%=enumLOADING%></div></td>
</tr>
<%BaseId = "TOP10_3MON_" & Request("rtag_id")%>
<tr class="form_field_bg">
    <td nowrap class="body_row">
          <a href='javascript:;' class="txt_linked" onClick="ToggleLoadControl('<%=BaseId%>','RequestTop10Changes.asp?rtag_id=<%=Request("rtag_id")%>&Interval=3');">
          <img id='IMG_<%=BaseId%>' src="images/bt_plus.gif" border="0" align="absmiddle" hspace="3">
          <img src="images/i_world.gif" border="0" align="absmiddle" hspace="3">
          Top 10 Changed Packages In Last 3 Months
          </a>
    </td>
</tr>
<tr class="form_field_bg" id="TGL_<%=BaseId%>" style="display:none;">
  <td nowrap class="body_row"><div id='<%=BaseId%>'><%=enumLOADING%></div></td>
</tr>

<tr class="form_field_bg">
  <td>
     <table width="100%" border="0" cellspacing="1" cellpadding="1">
        <tr class="form_field_bg">
           <td nowrap class="body_row" valign="top">Package Version</td>
           <td nowrap class="body_row" valign="top">Autobuilt</td>
           <td nowrap class="body_row" valign="top">Lines Of Code</td>
           <td nowrap class="body_row" valign="top">Unit Tested</td>
           <td nowrap class="body_row" valign="top">Autotested</td>
           <td nowrap class="body_row" valign="top">Last Modified</td>
        </tr>

        <%
        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
        %>
           <tr class="form_field_grey_bg">
              <td colspan="7" nowrap>&nbsp;</td>
           </tr>
        <%
        Else

           While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
            BaseId = "PREV_" & Request("rtag_id") & "_" & rsTemp("pv_id")
           %>
              <tr class="form_field_grey_bg">
                 <td nowrap class="body_row">
                       <a href="javascript:;" class="txt_linked" onClick="ToggleLoadControl('<%=BaseId%>','RequestPackageVersionHistoryMetrics.asp?rtag_id=<%=Request("rtag_id")%>&pv_id=<%=rsTemp("pv_id")%>');">
                          <img id='IMG_<%=BaseId%>' src="images/bt_plus.gif" border="0" align="absmiddle" hspace="3">
                          <img src="images/i_world.gif" border="0" align="absmiddle" hspace="3">
                       </a>
                       <a class="txt_linked" href="dependencies.asp?pv_id=<%=rsTemp("pv_id")%>&rtag_id=<%=rsTemp("rtag_id")%>">
                          <%=rsTemp("pkg_name")%>&nbsp;<%=rsTemp("pkg_version")%>
                       </a>
                 </td>
                 <td nowrap class="body_row">
                    <%If rsTemp("is_autobuildable") = "Y" Then%>Yes<%Else%>No<%End If%>
                 </td>
                 <td nowrap class="body_row"><%=rsTemp("code_lines")%></td>
                 <td nowrap class="body_row">
                    <%If rsTemp("unit_tested") = "Y" Then%>Yes<%Else%>No<%End If%>
                 </td>
                 <td nowrap class="body_row">
                    <%If  IsNull(rsTemp("autotested")) OR rsTemp("autotested") <> "Y" Then %>No<%ElseIf rsTemp("test_count") = "0" Then%>?<%Else%><%=rsTemp("test_count")%><%End If%>
                 </td>
                 <td nowrap class="body_row"><%=rsTemp("modified_stamp")%></td>
              </tr>
              <tr class="form_field_bg" id='TGL_<%=BaseId%>' style="display:none;">
                 <td nowrap class="body_row" colspan="6"><div id='<%=BaseId%>'><%=enumLOADING%></td></div>
              </tr>
              <%rsTemp.MoveNext
           WEnd
           rsTemp.Close
           Set rsTemp = nothing
        End If
        %>
     </table>
  </td>
</tr>
</table>
<br>
<%
Call Destroy_All_Objects
%>