Subversion Repositories DevTools

<%@LANGUAGE="VBSCRIPT"%>
<%
'=====================================================
'|                                                   |
'|            RequestProjectRelease.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
Dim Query_String
Dim Auto
Dim BaseId

'------------ Constants Declaration -----------
'------------ Variable Init -------------------
Set PageInfoHash = CreateObject("Scripting.Dictionary")
'----------------------------------------------
'------------------------ MAIN LINE ---------------------------------
%>
<!-- RequestProjectRelease.asp -->
<table width="100%" border="0" cellspacing="1" cellpadding="1">
<tr>
  <td class="form_field_bg">
     <table width="100%" border="0" cellspacing="1" cellpadding="1">
        <tr class="form_field_bg">
           <td nowrap class="body_row" valign="top">Release</td>
           <td nowrap class="body_row" valign="top">Last Autobuild<br>Completed</td>
           <td nowrap class="body_row" valign="top">Autobuilt Packages</td>
           <td nowrap class="body_row" valign="top">Lines Of Code</td>
           <td nowrap class="body_row" valign="top">Packages<br>Unit Tested</td>
           <td nowrap class="body_row" valign="top">Packages<br>Autotested</td>
           <td nowrap class="body_row" valign="top">Total Auto<br>Test Count</td>
        </tr>

        <%
        OraDatabase.Parameters.Add "PROJ_ID", Request("proj_id"),    ORAPARM_INPUT, ORATYPE_NUMBER

        Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("ReleaseMetricsFull.sql"), cint(0))

        OraDatabase.Parameters.Remove "PROJ_ID"

        If rsTemp.RecordCount < 1 Then%>
           <tr class="form_field_grey_bg">
              <td nowrap>&nbsp;</td>
           </tr>
        <%Else

           While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
              BaseId = "RTAG_" & rsTemp("rtag_id")
              Auto=FormatPercent(rsTemp("autobuilt")/rsTemp("total_packages"), 2)
              %>
                <tr class="form_field_grey_bg">
                    <td nowrap class="body_row">
                        <a title="Show Metrics for this Release" href='javascript://rtag_id=<%=rsTemp("rtag_id")%>;' class=txt_linked onClick="ToggleLoadControl('<%=BaseId%>','RequestReleasePackages.asp?rtag_id=<%=rsTemp("rtag_id")%>');"><img id='IMG_<%=BaseId%>' src="images/bt_plus.gif" border="0" align="absmiddle" hspace="3" ><%=ReleaseIcon(rsTemp("official"))%></a>
                        <a title="Open this Release" href='dependencies.asp?rtag_id=<%=rsTemp("rtag_id")%>'><%=rsTemp("rtag_name")%></a>
                    </td>
                    <td nowrap class="body_row"><%=rsTemp("last_build_time")%></td>
                    <td nowrap class="body_row"><%=rsTemp("autobuilt")%>/<%=rsTemp("total_packages")%> (<%=Auto%>)</td>
                    <td nowrap class="body_row"><%=rsTemp("lines_of_code")%></td>
                    <td nowrap class="body_row"><%=rsTemp("unit_tested")%></td>
                    <td nowrap class="body_row"><%=rsTemp("autotested")%></td>
                    <td nowrap class="body_row"><%=rsTemp("total_test_count")%></td>
                </tr>
                <tr class="form_field_grey_bg" id="TGL_<%=BaseId%>" style="display:none;">
                  <td nowrap class="body_row" colspan="7"><div class=subindent id='<%=BaseId%>'><%=enumLOADING%></div></td>
                </tr>
              <%rsTemp.MoveNext
           WEnd
           rsTemp.Close
           Set rsTemp = nothing

        End If%>
     </table>
</td>
</tr>
</table>
<br>
<%
Call Destroy_All_Objects
%>