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
'------------ Constants Declaration -----------
'------------ Variable Init -------------------
Set PageInfoHash = CreateObject("Scripting.Dictionary")
'----------------------------------------------
'------------------------ MAIN LINE ---------------------------------
%>
<table width="100%" border="0" cellspacing="1" cellpadding="1">
   <tr>
      <td background="images/bg_form_lightbluedark.gif">
         <table width="100%" border="0" cellspacing="1" cellpadding="3">
            <tr>
               <td nowrap class="body_txt" valign="top" background="images/bg_form_lightbluedark.gif">Release</td>
               <td nowrap class="body_txt" valign="top" background="images/bg_form_lightbluedark.gif">Last Autobuild<br>Completed</td>
               <td nowrap class="body_txt" valign="top" background="images/bg_form_lightbluedark.gif">Autobuilt Packages</td>
               <td nowrap class="body_txt" valign="top" background="images/bg_form_lightbluedark.gif">Lines Of Code</td>
               <td nowrap class="body_txt" valign="top" background="images/bg_form_lightbluedark.gif">Unit Tested</td>
               <td nowrap class="body_txt" valign="top" background="images/bg_form_lightbluedark.gif">Autotested</td>
            </tr>

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

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

            OraDatabase.Parameters.Remove "PROJ_ID"

            If rsTemp.RecordCount < 1 Then%>
               <tr>
                  <td background="images/bg_form_lightgray.gif" nowrap>&nbsp;</td>
               </tr>
            <%Else

               While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))

                  Auto=FormatPercent(rsTemp("autobuilt")/rsTemp("total_packages"), 2)
                  %>

                  <tr>
                     <td background="images/bg_form_lightgray.gif" nowrap class="body_txt">
                        <SPAN id="IMG_EXPAND_RTAG_<%=rsTemp("rtag_id")%>" style="display:block;">
                           <a href="javascript:;" class="txt_linked" onClick="RequestReleasePackages('?rtag_id=<%=rsTemp("rtag_id")%>', '<%=rsTemp("rtag_id")%>');">
                              <img src="images/bt_plus.gif" border="0" align="absmiddle" hspace="3">
                              <img src="images/i_world.gif" border="0" align="absmiddle" hspace="3">
                              <%=rsTemp("rtag_name")%>
                           </a>
                        </SPAN>
                        <SPAN id="IMG_COLLAPSE_RTAG_<%=rsTemp("rtag_id")%>" style="display:none;">
                           <a href="javascript:;" class="txt_linked" onClick="ToggleDisplay( 'DIVRTAG_<%=rsTemp("rtag_id")%>', 'IMG_EXPAND_RTAG_<%=rsTemp("rtag_id")%>', 'IMG_COLLAPSE_RTAG_<%=rsTemp("rtag_id")%>');">
                              <img src="images/bt_minus.gif" border="0" align="absmiddle" hspace="3">
                              <img src="images/i_world.gif" border="0" align="absmiddle" hspace="3">
                              <%=rsTemp("rtag_name")%>
                           </a>
                        </SPAN>
                     </td>
                     <td nowrap class="body_txt" background="images/bg_form_lightgray.gif"><%=rsTemp("last_build_time")%></td>
                     <td nowrap class="body_txt" background="images/bg_form_lightgray.gif"><%=rsTemp("autobuilt")%>/<%=rsTemp("total_packages")%> (<%=Auto%>)</td>
                     <td nowrap class="body_txt" background="images/bg_form_lightgray.gif"><%=rsTemp("lines_of_code")%></td>
                     <td nowrap class="body_txt" background="images/bg_form_lightgray.gif"><%=rsTemp("unit_tested")%></td>
                     <td nowrap class="body_txt" background="images/bg_form_lightgray.gif"><%=rsTemp("autotested")%></td>
                  </tr>
                  <tr>
                     <td nowrap class="body_txt" colspan="6">
                        <DIV id="DIVRTAG_<%=rsTemp("rtag_id")%>" style="display:none;"><%=enumLOADING%></DIV>
                     </td>
                  </tr>

                  <%rsTemp.MoveNext
               WEnd
               rsTemp.Close
               Set rsTemp = nothing

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

<%
Call Destroy_All_Objects
%>