Subversion Repositories DevTools

<%@LANGUAGE="VBSCRIPT"%>
<%
'=====================================================
'|                                                   |
'|          Edit/View Build Configuration            |
'|                                                   |
'=====================================================
%>
<%
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"-->
<!--#include file="common/_form_window_common.asp"-->
<!--#include file="_action_buttons.asp"-->
<!--#include file="class/classActionButtonControl.asp"-->
<% '------------ ACCESS CONTROL ------------------ %>
<!--#include file="_access_control_login.asp"-->
<!--#include file="_access_control_general.asp"-->
<!--#include file="_access_control_action_project.asp"-->
<%
'------------ Variable Definition -------------
Dim parRtagId
'------------ Constants Declaration -----------
'------------ Variable Init -------------------
parRtagId = Request("rtag_id")
objPMod.PersistInQryString("rtag_id")
'----------------------------------------------
%>
<%
%>
<%
'------------ RUN BEFORE PAGE RENDER ----------
'----------------------------------------------------
' --- RUN onPostBack ---
If Request("action") <> "" AND objAccessControl.UserLogedIn Then

      If objEH.Finally Then
         Call OpenInWindow ( "release_config.asp?rtag_id="& parRtagId )
      End If

End If
'----------------------------------------------
Sub LeftPanelContent
%>
<%
End Sub

Sub MainPanelContent
    Dim pkgCount : pkgCount= 0
    Dim pkgTestCount : pkgTestCount= 0
    Dim testCount: testCount = 0
    Dim rsQry

    OraDatabase.Parameters.Add "RTAG_ID", parRtagId, ORAPARM_INPUT, ORATYPE_NUMBER
    Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("release_stats.sql"), 0 )
        OraDatabase.Parameters.Remove "RTAG_ID"

%>
   <table class="embedded_table" style="margin-bottom:20px">
      <tr>
         <td>
            <!-- Box Title -->
            <div class="form_ttl nowrap" align="left">
                 Package Unit Tests
            </div>
         </td>
      </tr>
      <tr>
         <td>
            <!-- Box Content -->
            <div class="rounded_box">
               <div style="background-color: white;border-left: white solid 10px;border-right: white solid 10px;">
                    <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
                    <!--#include file="messages/_msg_inline.asp"-->
                    <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
                    <table width="100%" class="embedded_table">
                       <tr class="body_col envGroup">
                          <td valign="top" nowrap>Package</td>
                          <td valign="top" nowrap>Version</td>
                          <td valign="top" nowrap>Test Count</td>
                          <td valign="top" nowrap>Built</td>
                       </tr>
                        <%
                        Do While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
                            pkgCount = pkgCount + 1
                            Dim tcount : tcount = NiceInt(rsQry("test_count"), 0)
                            If tcount > 0 Then
                                pkgTestCount = pkgTestCount + 1
                                testCount = testCount + tcount 
                            End If

                            Dim vrefStr, prefStr, crefStr
                            crefStr = "unit_test_log.asp?pv_id=" & rsQry("pv_id") & "&rtag_id=" & parRtagId 
                            prefStr = "view_by_version.asp?pkg_id=" & rsQry("pkg_id")  & "&listby=1"
                            vrefStr = "dependencies.asp?pv_id=" & rsQry("pv_id") & "&rtag_id=" & parRtagId 
                        %>
                       <tr>
                        <td nowrap class="body_rowg"><a href=<%=prefStr%>><%=rsQry("pkg_name")%></a></td>
                        <td nowrap class="body_rowg"><a href=<%=vrefStr%>><%=rsQry("pkg_version")%></a></td>
                        <td nowrap class="body_rowg"><a href=<%=crefStr%>><%=rsQry("test_count")%></a></td>
                        <td nowrap class="body_rowg"><%=rsQry("lastBuild")%></td>
                       </tr>
                       <%
                       rsQry.MoveNext
                       Loop
                       %>
                       <tr><td>&nbsp;</td></tr>
                       <tr><td td colspan=4>
                            <table class=full_table>
                                <tr class="body_col envGroup"><td colspan=4>Summary</td></tr>
                                <tr class="body_rowg"><td>Total Packages</td><td><%=pkgCount%></td></tr>
                                <tr class="body_rowg"><td>Total Packages with Tests</td><td><%=pkgTestCount%></td></tr>
                                <tr class="body_rowg"><td>Total Unit Tests</td><td><%=testCount%></td></tr>
                            </table>
                       </td></tr>
                  </table>
               </div>
            </div>
         </td>
      </tr>
   </table>
<%
    rsQry.close
    Set rsQry = nothing
End Sub
%>
<NOSCRIPT LANGUAGE="VBScript" RUNAT=SERVER SRC="common/VarDump.vbs"></NOSCRIPT> 
<html>
   <head>
      <title>Release Manager</title>
      <link rel="shortcut icon" href="<%=FavIcon%>"/>
      <meta http-equiv="Pragma" content="no-cache">
      <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
      <link rel="stylesheet" href="images/release_manager_style.css" type="text/css">
      <link rel="stylesheet" href="images/navigation.css" type="text/css">
      <script language="JavaScript" src="images/common.js"></script>
      <!-- DROPDOWN MENUS -->
      <!--#include file="_jquery_includes.asp"-->
      <!--#include file="_menu_def.asp"-->
      <script language="JavaScript1.2" src="images/popup_menu.js"></script>
   </head>
   <body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0">
      <!-- HEADER -->
      <!--#include file="_header.asp"-->
      <!-- BODY ---->
      <table class="full_table">
         <tr>
            <td width="146px" class="panel_bg" valign="top">
                <%Call LeftPanelContent%>
            </td>
            <td width="100%" rowspan="2" align="center" valign="top" bgcolor="#EEEFEF">
                <%Call MainPanelContent%>
            </td>
         </tr>
         <tr>
            <td class="panel_bg" valign="bottom" align="center" height="350">
                <img src="images/release_stats.png" vspace="20" hspace="30"></td>
         </tr>
      </table>
      <!-- FOOTER -->
      <!--#include file="_footer.asp"-->
   </body>
</html>