Subversion Repositories DevTools

<%@LANGUAGE="VBSCRIPT"%>

<%

'=====================================================

'   RequestPackageVersionHistoryMetrics.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 rsMetrics

Dim parPvId

Dim parRtagId

Dim parMode

Dim parInterval

Dim qFile

'------------ Constants Declaration -----------

'------------ Variable Init -------------------

parPvId = Request("pv_id")

parRtagId = RequestDefault("rtag_id", 0)

parMode = RequestDefault("mode", 0)

parInterval = RequestDefault("interval", 0)

qFile = Iif ( parMode = 1, "PackageVersionMetricsAll.sql", "PackageVersionMetrics.sql") 

'----------------------------------------------

%>

<%

'------------------------ MAIN LINE ---------------------------------

'--------------------------------------------------------------------

' Get the list of ancestor versions

OraDatabase.Parameters.Add "RTAG_ID", parRtagId,    ORAPARM_INPUT, ORATYPE_NUMBER

OraDatabase.Parameters.Add "PV_ID", parPvId,        ORAPARM_INPUT, ORATYPE_NUMBER

Set rsMetrics = OraDatabase.DbCreateDynaset( GetQuery(qFile), cint(0))

OraDatabase.Parameters.Remove "PV_ID"

OraDatabase.Parameters.Remove "RTAG_ID"

%>

<!-- RequestPackageVersionHistoryMetrics.asp -->

<table width="100%" border="0" cellspacing="1" cellpadding="1">

<tr>

  <td>

     <table width="100%" border="0" cellspacing="1" cellpadding="1">

        <tr class="form_field_bg">

           <td nowrap class="body_row" valign="top" >Package Version [<%=rsMetrics.RecordCount%>]</td>

           <td nowrap class="body_row" valign="top" >Autobuilt</td>

           <td nowrap class="body_row" valign="top" >Build Reason</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>

        <%

        If rsMetrics.RecordCount < 1 Then

        %>

           <tr class="form_field_grey_bg">

              <td colspan="7" class="body_row" nowrap>None Found</td>

           </tr>

        <%

        Else

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

               Dim trClass : trClass = "form_field_grey_bg"

               If parMode > 0 Then

                If rsMetrics("inRelease") <> 0 OR CLng(rsMetrics("ageDays")) <= CLng(parInterval) Then

                    trClass = "form_field_hilight_bg"

                End If

               End If

              %>

                 <tr class="<%=trClass%>">

                    <td nowrap class="body_row">

                       <a class="txt_linked" href="dependencies.asp?pv_id=<%=rsMetrics("pv_id")%>"><%=rsMetrics("pkg_name")%>&nbsp;<%=rsMetrics("pkg_version")%></a>

                    </td>

                    <td nowrap class="body_row"><%=IIf(rsMetrics("is_autobuildable") = "Y", "Yes", "No")%></td>

                    <td nowrap class="body_row"><%=rsMetrics("reason")%></td>

                    <td nowrap class="body_row"><%=rsMetrics("code_lines")%></td>

                    <td nowrap class="body_row"><%=IIf(rsMetrics("unit_tested") = "Y", "Yes", "No")%></td>

                    <td nowrap class="body_row"><%If IsNull(rsMetrics("autotested")) OR rsMetrics("autotested") <> "Y" Then %>No<%ElseIf rsMetrics("test_count") = "0" Then%>?<%Else%><%=rsMetrics("test_count")%><%End If%></td>

                    <td nowrap class="body_row"><%=rsMetrics("modified_stamp")%></td>

                 </tr>

              <%

           rsMetrics.MoveNext

           WEnd

        End If

        rsMetrics.Close

        Set rsMetrics = nothing

        %>

     </table>

  </td>

</tr>

</table>

<br>

<%

Call Destroy_All_Objects

%>