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
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">Package Version</td>
                                        <td nowrap class="body_txt" valign="top" background="images/bg_form_lightbluedark.gif">Autobuilt</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>
                                        <td nowrap class="body_txt" valign="top" background="images/bg_form_lightbluedark.gif">Branches</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> 
                                        <td colspan="7" background="images/bg_form_lightgray.gif" nowrap>&nbsp;</td>
        </tr>
                                <%
                                Else
                                
                                While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
                          %>
                                <tr>
                                        <td nowrap class="body_txt" background="images/bg_form_lightgray.gif"><a class="txt_linked" href="dependencies.asp?pv_id=<%=rsTemp("pv_id")%>&rtag_id=<%=rsTemp("rtag_id")%>"><%=rsTemp("pkg_name")%><%=VBNEWLine%><%=rsTemp("pkg_version")%></a></td>
                                        <td nowrap class="body_txt" background="images/bg_form_lightgray.gif">
                                                <%If rsTemp("is_autobuildable") = "Y" Then%>Yes<%Else%>No<%End If%> 
                                        </td>                                                                   
                                        <td nowrap class="body_txt" background="images/bg_form_lightgray.gif"><%=rsTemp("code_lines")%></td>
                                        <td nowrap class="body_txt" background="images/bg_form_lightgray.gif">
                                                <%If rsTemp("unit_tested") = "Y" Then%>Yes<%Else%>No<%End If%>
                                        </td>
                                        <td nowrap class="body_txt" background="images/bg_form_lightgray.gif">
                                                <%If rsTemp("autotested") = "Y" Then%>Yes<%Else%>No<%End If%>
                                        </td>
                                        <td nowrap class="body_txt" background="images/bg_form_lightgray.gif"><%=rsTemp("branches")%></td>
                                </tr>   
<!--
        <tr> 
                                        <td colspan="6" background="images/bg_form_lightbluedark_line.gif"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
        </tr>
-->        
                                <%rsTemp.MoveNext       
                                WEnd
                                rsTemp.Close
                                Set rsTemp = nothing
                                
                                End If
                                %>                      
                        </table>
    </td>                                               
  </tr>
</table>
<br>
                                                
<%
Call Destroy_All_Objects
%>